08-12-18, 11:42 PM
مراحب للجميع 
لعملية التحديث التلقائي ثلاث خطوات لكل خطوة اربعة نقاط
اولاً :
1- ادخل الى موقع PasteBin وانشئ حساب
2- اختر New Paste وانشئ 2 مشاركات
3- الأولى اكتب بها رقم الاصدار و الثانية ضع بها كلمة URL
4- اختر لكل مشاركة بعد حفظها RAW وانسخ الروابط و احفضها بملف لأن رح تحتاجها بالخطوة الثالثة
ثانياً :
1- ببرنامجك ضع هذا Function
كود :
Public Function InternetConnection() As Boolean
Try
Using client = New System.Net.WebClient()
Using stream = client.OpenRead("http://www.google.com")
Return True
End Using
End Using
Catch
Return False
End Try
End Function2- أضف أداة BackgroundWorker وضع بها الكود التالي
كود :
'استبدل عبارةالرابط الاول مع رابط التحقق
If InternetConnection() Then ' هنا يتحقق من توافر الانترنت
Dim Y As String
Y = x.DownloadString("الرابط الاول") 'رابط التحقق
If Not V = Y Then
Form2.ShowDialog()
End If
End If3- ببرنامجك ضع الكود التالي في Form Load
كود :
BackgroundWorker1.RunWorkerAsync() 'BackgroundWorker1 تشغيل4- أنشئ Form2 وضع به Button , Label و ProgressBar واضف له الكود التالي كاملاً و غير في الكود عبارة اسم البرنامج باسم برنامجك
كود :
Imports System.Net
Public Class Form2
Dim x As New System.Net.WebClient
Public WithEvents download As System.Net.WebClient
Dim P = "اسم البرنامج.exe"
Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
Dim valu = ProgressBar1.Value
Label1.Text = valu + "%"
If ProgressBar1.Value = 100 Then
open()
End If
End Sub
Private Sub open()
If System.IO.File.Exists(Application.StartupPath & "\" & P) Then
Process.Start(Application.StartupPath & "\" & p)
End
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'استبدل عبارةالرابط الثاني مع رابط التنزيل المباشر
download = New System.Net.WebClient
download.DownloadFileAsync(New Uri(x.DownloadString("الرابط الثاني")), P)
End Sub
End Classثالثاً :
1- في Form1 تحت Public Class Form1 ضع الكود التالي
كود :
Dim x As New System.Net.WebClient
Dim V = 1 'هنا رقم إصدار البرنامج2- في Form1 استبدل عبارة الرابط الاول بالرابط الاول من الخطوة الأولى و في Form2 استبدل عبارة الرابط الثاني بالرابط الثاني من الخطوة الأولى
3- ارفع تحديث برنامجك على موقع يعطيك الرابط المباشر مثل Hot Upload
4- استبدل كلمة URL من الخطوة الأولى بالرابط المباشر للتحديث الخاص ببرنامجك
الان اصبح برنامج يفحص كل مرة يعمل بها من توافر الانترنت 
واذا توفر يتحقق من التحديث 
واذا توفر يقوم بابلاغك عنه ويحمله 
وكل هذا يتم عن طريق BackgroundWorker لكي لا يتوقف البرنامج عن العمل أو تحدث به اخطاء 
واذا توفر يتحقق من التحديث واذا توفر يقوم بابلاغك عنه ويحمله وكل هذا يتم عن طريق BackgroundWorker لكي لا يتوقف البرنامج عن العمل أو تحدث به اخطاء في كل مرة تقوم باصدار تحديث جديد ما عليك سوى رفع تحديثك على موقع يعطيك الرابط المباشر مثل Hot Upload واخذ الرابط المباشر لتحديثك و وضعه في المشاركة الثانية من الخطوة الاولى وتغيير قيمة المشاركة الاولى الى قيمة الاصدار الجديد
الى هنا انتهى الشرح اتمنى تكونون استفدتوا 
ولا تنسون تقييم وشكراً
![[صورة مرفقة: TwUcuKmKM-rk7JpQO7ocrJ-lJ4Z8-hYbBK7xOuNW...88-h913-no]](https://lh3.googleusercontent.com/TwUcuKmKM-rk7JpQO7ocrJ-lJ4Z8-hYbBK7xOuNW-8G-eY4XqzU7mAw93DuSivZkrLRTdjx4hRZ39OZEvcYJcwEGYVV07NT34dAvduQ1Gx4g0hpJ3hEqzDQloLi-pM-6rWjP64BkzVXKAczv5ksBzVtOrghepXIGwK4KNwXr0Au_5n-lZHtRdzXuclcSCTBvA-GNRcTZ_dUf1rhiI-OsuumLGydPTjaM4mf-IaqrKnqnNFKMeqZ83LlmYxv0aBuSTGegbPIPVtY5viVMmCaLVhegm488Ls5VtD2M0reoHFdZsiO5c2mSVOvcrEQ_pabH1ZcRd0auzP0TjuUFFBIQGl_SQda2XEhPO8yVUcuQ4D-yBg8NW5wyEhjZvauXW-NWl85DZLnSCWJvFb3q2c6nogN6i1WGNK3pcZQr8b-yLPBhKxUnFBa488xVQ8hLo7GP75fZg8D-M1_n0rgKZFghDRCCBi9lIEy-P_4SHDhPTvjESxI6-pcewL6QK-j3TUb8jHUucjenMxnYVQT9Xy2csgLEI26hnK8IC7azRGMsWpD9CqdRDHkQNOuSTsbu445tshm3LDSjeBCopQa343dQEX3XW9qa91XZiKCAZma2EOkHqAm002ieE55JA522DqprjFzzycWXa7vGuzIXP3KnbZw72UFOHFs=w1188-h913-no)
