منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] عمل تحديث تلقائي لبرنامجك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] عمل تحديث تلقائي لبرنامجك (/showthread.php?tid=27834)

عمل تحديث تلقائي لبرنامجك - DK-x - 08-12-18

مراحب للجميع  Heart

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

اولاً : 
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 وضع بها الكود التالي


[attachment=20325]
كود :
'استبدل عبارةالرابط الاول مع رابط التحقق
       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 ليبدو بهذا الشكل 


[attachment=20326]


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

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

2- في Form1 استبدل عبارة الرابط الاول بالرابط الاول من الخطوة الأولى و في Form2  استبدل عبارة الرابط الثاني  بالرابط الثاني من الخطوة الأولى
3- ارفع تحديث برنامجك على موقع يعطيك الرابط المباشر مثل Hot Upload
4- استبدل كلمة URL من الخطوة الأولى بالرابط المباشر للتحديث الخاص ببرنامجك

الان اصبح برنامج يفحص كل مرة يعمل بها من توافر الانترنت  Idea  واذا توفر يتحقق من التحديث  Big Grin  واذا توفر يقوم بابلاغك عنه ويحمله  Huh  وكل هذا يتم عن طريق BackgroundWorker لكي لا يتوقف البرنامج عن العمل أو تحدث به اخطاء  Cool
في كل مرة تقوم باصدار تحديث جديد ما عليك سوى رفع تحديثك على موقع يعطيك الرابط المباشر مثل Hot Upload واخذ الرابط المباشر لتحديثك و وضعه في المشاركة الثانية من الخطوة الاولى وتغيير قيمة المشاركة الاولى الى قيمة الاصدار الجديد
الى هنا انتهى الشرح اتمنى تكونون استفدتوا  Tongue
ولا تنسون تقييم وشكراً  Heart


RE: عمل تحديث تلقائي لبرنامجك - dubai.eig - 09-12-18

احسنت

جري التجربه

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

RE: عمل تحديث تلقائي لبرنامجك - abumuhannadzym - 25-12-18

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


RE: عمل تحديث تلقائي لبرنامجك - Top King - 13-04-19

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


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


[صورة مرفقة: TwUcuKmKM-rk7JpQO7ocrJ-lJ4Z8-hYbBK7xOuNW...88-h913-no]

RE: عمل تحديث تلقائي لبرنامجك - DK-x - 14-04-19

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


RE: عمل تحديث تلقائي لبرنامجك - MR.Palestine - 01-07-19

http://hotupload.net/598qjr2b1ken/Annotation_2019-07-01_072050.png.html
اخي عم يظهر عندي هاد الخطا شو السبب

RE: عمل تحديث تلقائي لبرنامجك - elgokr - 05-07-19

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

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

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

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


RE: عمل تحديث تلقائي لبرنامجك - hamadz - 19-12-20

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