منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

اخواني انا بصمم برنامج لشركتنا وفيها اكثر من 30 جهاز فهل في طريقة انه بمجرد احدث البرنامج يضهر انه في تحديث للبرنامج ويحدث الجديد يعني مثلا يحدث الواجهات الداخليه فهل في طريقة افيدون

لانه صعب كل ما اعدل في البرنامج اروح لكل جهز وانزله من جديد

البرنامج مصمم على فجول بيسك 2015

تفظل اخي هاي الطريقة انا معتمدها

الاحتياجات 
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 فانه لا يوجد تحديث اما اذا كان ف نه يوجد وسوف يضهر له زر التحديث

الله يجزاك الجنه بسويها واشوف يعطيك الف عافيه اخوي

بدل روابط ال لابديت كما شرحت مسبقا ورابط البرنامج وشكرا

(15-02-18, 01:24 AM)كناري008 كتب : [ -> ]

كود :

تم تحديث الكود كما يلي




Imports System.Net
Public Class update1


   Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
       Me.Close()
   End Sub

   Private Sub update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       WebBrowser1.Navigate("https://dl.dropbox.com/s/yid14htg4141/update.exe?dl=0")
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

       WebBrowser1.Visible = False
       Dim web As New WebClient
       On Error Resume Next
       Label2.Text = web.DownloadString("https://dl.dropbox.com/update.txt?dl=0")
       Timer1.Stop()
       On Error Resume Next
       If Label2.Text = "F" Then
           Label1.Text = "لا يوجد اي تحديث جديد"
           Label2.Visible = False
       ElseIf Label2.Text = "T" Then
           On Error Resume Next
           Timer1.Stop()
           Label1.Text = "يوجد تحديث جديد"
           Label3.Text = "نرجو تحديث البرنامج بالضغط على  زر تحديث الان"
           Button2.Visible = True
           Label2.Visible = False
       Else
           Label1.Text = "يرجى التحقق من الانترنيت"
       End If
   End Sub

   Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

   End Sub
End Class

بدل روابط ال لابديت كما شرحت مسبقا ورابط البرنامج وشكرا