14-02-18, 02:06 AM
تفظل اخي هاي الطريقة انا معتمدها
الاحتياجات
1- WebBrowser1
2- botton1
3- Label1
4- Label3
5- timer
ب اضافة الى حساب في كوكل دروب بوكس
وتعمل تيسكت خارجي تسميه update.txt
تضع فيه شروطك اما F او T + ترفعه في حسابك على دروب بوكس
بعد ما ترفع تاخذ الامتداد الرابط وتضع بدال www تحولها الى كما موضح في اسفل الشرح في التايمر = web.DownloadString("https://dl.dropbox.com/s/l2413lkk/update.txt?dl=0
العمل كل تالي
تضع هذا الكود في التايمر1 timer
بعدها ترفع برنامجك ايضا على دروب بوكس وتنسخ الرابط وتضع بدال www الى dll ومن بعدها تنسخ هذا الكود في botton1
وايضا تضع في الفورم1 form
Timer1.Start()
ب اضافة طريقة العمل
اذا كان في update.txt نص مكتوب F فانه لا يوجد تحديث اما اذا كان ف نه يوجد وسوف يضهر له زر التحديث
الاحتياجات
1- WebBrowser1
2- botton1
3- Label1
4- Label3
5- timer
ب اضافة الى حساب في كوكل دروب بوكس
وتعمل تيسكت خارجي تسميه update.txt
تضع فيه شروطك اما F او T + ترفعه في حسابك على دروب بوكس
بعد ما ترفع تاخذ الامتداد الرابط وتضع بدال www تحولها الى كما موضح في اسفل الشرح في التايمر = web.DownloadString("https://dl.dropbox.com/s/l2413lkk/update.txt?dl=0
العمل كل تالي
تضع هذا الكود في التايمر1 timer
PHP كود :
WebBrowser1.Visible = False
Dim web As New WebClient
رابط التيكست ' ("Label2.Text = web.DownloadString("https://dl.dropbox.com/s/l2413lkk/update.txt?dl=0")
Timer1.Stop()
If Label2.Text = "F" Then
Label1.Text = "لا يوجد اي تحديث جديد"
Label2.Visible = False
Else
Timer1.Stop()
Label1.Text = "يوجد تحديث جديد"
Label3.Text = "نرجو تحديث البرنامج بالضغط على زر تحديث الان"
Button2.Visible = True
Label2.Visible = False
End If
بعدها ترفع برنامجك ايضا على دروب بوكس وتنسخ الرابط وتضع بدال www الى dll ومن بعدها تنسخ هذا الكود في botton1
PHP كود :
رابط برنامجك الذي فيه تحديث' ("WebBrowser1.Navigate("https://dl.dropbox.com/s/yidhtgkyup0839a/update.exe?dl=0")
وايضا تضع في الفورم1 form
Timer1.Start()
ب اضافة طريقة العمل
اذا كان في update.txt نص مكتوب F فانه لا يوجد تحديث اما اذا كان ف نه يوجد وسوف يضهر له زر التحديث
