تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل تحديث تلقائي لبرنامجك
#1
Rainbow 
مراحب للجميع  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 وضع بها الكود التالي


   
كود :
'استبدل عبارةالرابط الاول مع رابط التحقق
       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 من الخطوة الأولى بالرابط المباشر للتحديث الخاص ببرنامجك

الان اصبح برنامج يفحص كل مرة يعمل بها من توافر الانترنت  Idea  واذا توفر يتحقق من التحديث  Big Grin  واذا توفر يقوم بابلاغك عنه ويحمله  Huh  وكل هذا يتم عن طريق BackgroundWorker لكي لا يتوقف البرنامج عن العمل أو تحدث به اخطاء  Cool
في كل مرة تقوم باصدار تحديث جديد ما عليك سوى رفع تحديثك على موقع يعطيك الرابط المباشر مثل Hot Upload واخذ الرابط المباشر لتحديثك و وضعه في المشاركة الثانية من الخطوة الاولى وتغيير قيمة المشاركة الاولى الى قيمة الاصدار الجديد
الى هنا انتهى الشرح اتمنى تكونون استفدتوا  Tongue
ولا تنسون تقييم وشكراً  Heart
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي
 DarkUpload - ArabLike 
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , tryold , elgokr , ابو روضة
#2
احسنت

جري التجربه

عمل جميل بارك الله فيك
الرد
تم الشكر بواسطة: DK-x , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 70 14,336 اليوم, 12:38 AM
آخر رد: عماد السيد
  [جديد] شرح إحترافي لعمل باسورد افتراضي لبرنامجك + تغير الباسورد من اختيارك abo_ramas 9 3,551 19-11-18, 01:55 AM
آخر رد: اسامه الهرماوي
  تحديث أداة الويب براوزر WebBrowser خالد 6 777 01-10-18, 10:32 PM
آخر رد: rnmr
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 12 4,829 01-11-17, 09:48 PM
آخر رد: mohamed2316
  إضافة - تحديث - حذف بضغطة زر واحدة khodor1985 10 2,564 30-07-17, 10:45 PM
آخر رد: مصمم هاوي
Lightbulb [مثال] مثال ابلاغ عملائك بوجود تحديث للبرنامج Basil Abdallah 13 2,560 08-03-17, 01:13 PM
آخر رد: Basil Abdallah
Thumbs Up (تحديث) اتصال لقاعدة بيانات من نوع sqlserver عبر ثلاث طرق جميل علي 15 4,033 14-09-16, 04:42 PM
آخر رد: جميل علي
  ابسط مثال للتصاريح (سعود) (تحديث) جميل علي 3 1,114 13-09-16, 11:49 PM
آخر رد: جميل علي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم