[Mohamed Magdy]

(02-10-18, 05:33 AM)ScreamVoice كتب : السلام عليكم ورحمة الله وبركاته

محتاج مساعده في كود التحديث 

حيث ان كلا الخياران yes او no 

بيجيب صفحة الداون لود 

كمان انا عايز لما اضغط no البرنامج يتقفل

دا الكود اللي استخدمته

كود :

   Private Sub ScreamUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Hide()
       WebBrowser1.Hide()
       Dim web As New WebClient
       Label1.Text = web.DownloadString("https://dl.dropbox.com/s/4n6dd8c6et7lufj/Update.txt?dl=0")
       If Label1.Text = "No" Then
           Timer1.Stop()
           ScreamAct.Show()
           Me.Hide()
       Else
           Timer1.Stop()
           MsgBox("يوجد تحديث جديد للبرنامج", MsgBoxStyle.YesNo)
           If vbYes Then
               WebBrowser1.Navigate("https://dl.dropbox.com/s/v313ag8wxuipdes/ScreamSport.exe?dl=0")
           End If
           If vbNo Then

               ScreamAct.Show()
               Me.Hide()
           End If
       End If
   End Sub
End Class

وضح مشكلتك اكثر وانا ممكن اقدر اسعدك لانى كنت اصنع برنامج كونكت زى الى انتا عايز تعملوة