[DK-x]

مراحب للجميع 

لعملية التحديث التلقائي ثلاث خطوات لكل خطوة اربعة نقاط

اولاً : 

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 Function

2- أضف أداة BackgroundWorker وضع بها الكود التالي

   

كود :

'استبدل عبارةالرابط الاول مع رابط التحقق
       If InternetConnection() Then ' هنا يتحقق من توافر الانترنت
           Dim Y As String
           Y = x.DownloadString("الرابط الاول") 'رابط التحقق
           If Not V = Y Then
               Form2.ShowDialog()
           End If
       End If

3- ببرنامجك ضع الكود التالي في 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

رتب Form2 ليبدو بهذا الشكل 

   

ثالثاً :

1-   في Form1 تحت Public Class Form1 ضع الكود التالي

كود :

Dim x As New System.Net.WebClient
       Dim V = 1 'هنا رقم إصدار البرنامج

2- في Form1 استبدل عبارة الرابط الاول بالرابط الاول من الخطوة الأولى و في Form2  استبدل عبارة الرابط الثاني  بالرابط الثاني من الخطوة الأولى

3- ارفع تحديث برنامجك على موقع يعطيك الرابط المباشر مثل Hot Upload

4- استبدل كلمة URL من الخطوة الأولى بالرابط المباشر للتحديث الخاص ببرنامجك

الان اصبح برنامج يفحص كل مرة يعمل بها من توافر الانترنت   واذا توفر يتحقق من التحديث   واذا توفر يقوم بابلاغك عنه ويحمله   وكل هذا يتم عن طريق BackgroundWorker لكي لا يتوقف البرنامج عن العمل أو تحدث به اخطاء 

في كل مرة تقوم باصدار تحديث جديد ما عليك سوى رفع تحديثك على موقع يعطيك الرابط المباشر مثل Hot Upload واخذ الرابط المباشر لتحديثك و وضعه في المشاركة الثانية من الخطوة الاولى وتغيير قيمة المشاركة الاولى الى قيمة الاصدار الجديد

الى هنا انتهى الشرح اتمنى تكونون استفدتوا 

ولا تنسون تقييم وشكراً 

[dubai.eig]

احسنت

جري التجربه

عمل جميل بارك الله فيك

[abumuhannadzym]

هل من الممكن السورس كود

[Top King]

طب انا عايز اسال سؤال دلوقتي الملف ال انا هرفعو بتاع التحديث هينزل فين ؟


وياريت كمان عايز حل للمشكلة دي 

[DK-x]

ملف التحديث رح ينزل في مجلد المشروع

والصورة اعتذر ما فتحت عندي

[MR.Palestine]

http://hotupload.net/598qjr2b1ken/Annota...0.png.html
اخي عم يظهر عندي هاد الخطا شو السبب

[elgokr]

(01-07-19, 08:23 AM)MR.Palestine كتب : http://hotupload.net/598qjr2b1ken/Annota...0.png.html
اخي عم يظهر عندي هاد الخطا شو السبب

تاكد من صحة رابط التحميل المدرج فى الكود

من الممكن ان يكون رابط غير مباشر

ويحول الى صفحة مثل الانتظار وما شبه

تحياتى لك

وتمنياتى لك التوفيق

[hamadz]

بوركت اخي في الشرح

لو يكون الشرح بي الفيديو يكون افضل