02-10-18, 05:33 AM
السلام عليكم ورحمة الله وبركاته
محتاج مساعده في كود التحديث
حيث ان كلا الخياران yes او no
بيجيب صفحة الداون لود
كمان انا عايز لما اضغط no البرنامج يتقفل
دا الكود اللي استخدمته
محتاج مساعده في كود التحديث
حيث ان كلا الخياران 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