Know How Much Person Using Your program

معرفة  كم من شخص يستخدم برنامجك
English version in Bottom


أحيانا نحتاج لمعرفة  كم من شخص  يستخدم تطبيقنا وكم مرة استخدم يوميا او لمعرفة المتواجدين اون لاين في حالة تطبيق للدردشة او تطبيق للألعاب اون لاين  ، حتى  نتاكد من نجاح  او فشل التطبيق وهل ستتلقى  نسخة محدثة  من التطبيق نجاحا كالنسخة القديمة وهل يصلح للتسويق . 

أولا سنقوم بإنشاء ملفين إثنين الاول ملف php والتاني مجرد نص txt 
الملف الاول سيكون كالتالي acounter.php


<?php

$type = $_GET['action'];

if($type == "maxi")
{
    $rusers = fopen("user.txt" , "r") or die("Error!");
    $count = fread($rusers,filesize("user.txt"));
    $txt =$count += 1;
   
    $wusers =fopen("user.txt" , "w") or die ("Error!");
    fwrite($wusers,$txt);
    fclose($wusers);
    fclose($rusers);
}
else if ($type == "mini")
{
    $rusers = fopen("user.txt" , "r") or die ("Error!");
    $count = fread($rusers,filesize("user.txt"));
    $txt = $count -=1;
   
    $wusers =fopen("user.txt" , "w") or die ("Error!");
    fwrite($wusers,$txt);
    fclose($wusers);
    fclose($rusers);
}

?>

اما  الملف الثاني   user.txtاتركه فارغ  او اكتب فيه فقط   0

ثم بعد ذلك افتح مشروع جديد في برنامج الفيوجل بيسك (لا يهم نوع النسخة فقط ان يكون دوت نت).

ضع الكود التالي  بعد اضافة كل من 2  label في الفورم  


Public Class Form1
    Dim wclient As New System.Net.WebClient

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Label2.Text = wclient.DownloadString("http://localhost/acount/acounter.php?action=mini")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        wclient.DownloadString("http://localhost/acount/acounter.php?action=maxi")
        Label2.Text = wclient.DownloadString("http://localhost/acount/user.txt")
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label2.Text = wclient.DownloadString("http://localhost/acount/user.txt")
    End Sub
End Class


حسنا  يمكنك وضع ضومينك الخاص بدلا من اللوكل هوست اورابط السرفر المحلي 
للفهم اكثر شاهد الفيديو :



 
 
 
hi friend ,
How you Know How Much  Person Using Your  program

using php & vb.net we can do this

acounter.php file :
=====
<?php

$type = $_GET['action'];

if($type == "maxi")
{
    $rusers = fopen("user.txt" , "r") or die("Error!");
    $count = fread($rusers,filesize("user.txt"));
    $txt =$count += 1;
   
    $wusers =fopen("user.txt" , "w") or die ("Error!");
    fwrite($wusers,$txt);
    fclose($wusers);
    fclose($rusers);
}
else if ($type == "mini")
{
    $rusers = fopen("user.txt" , "r") or die ("Error!");
    $count = fread($rusers,filesize("user.txt"));
    $txt = $count -=1;
   
    $wusers =fopen("user.txt" , "w") or die ("Error!");
    fwrite($wusers,$txt);
    fclose($wusers);
    fclose($rusers);
}

?>

==== =
end text file named  : user.txt value 0

now vb file put this code to the form :

 =====
Public Class Form1
    Dim wclient As New System.Net.WebClient

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Label2.Text = wclient.DownloadString("http://localhost/acount/acounter.php?action=mini")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        wclient.DownloadString("http://localhost/acount/acounter.php?action=maxi")
        Label2.Text = wclient.DownloadString("http://localhost/acount/user.txt")
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label2.Text = wclient.DownloadString("http://localhost/acount/user.txt")
    End Sub
End Class


======

Post a Comment

0 Comments