04-01-17, 09:16 PM
(23-12-16, 08:40 PM)Basil Abdallah كتب :السلام عليكم ورحمة الله وبركاتهالمثال بالاسفل يوضح فكرة لابلاغ العملاء بوجود تحديث للبرنامجوهو يوضح الفكرة المعتمدة حاليا لاغلب البرامج البسيطة
شكرا لك على البرنامج الجميل
قمت بتجربة
كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Try
TextBox1.Text = WebBrowser1.Document.GetElementById("vi").OuterText
TextBox2.Text = WebBrowser1.Document.GetElementById("link").OuterText
Timer1.Interval = 10000
Timer1.Start()
Catch ex As Exception
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Stop()
Try
If Not TextBox1.Text = "2.0 BETA" Then
Dim result As Integer = MessageBox.Show("A new version is available would like to install it now ?", "install now version", MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then
My.Computer.Network.DownloadFile(TextBox2.Text, ".\Log.exe ")
MsgBox("update was successful!", MsgBoxStyle.Information)
Me.Hide()
Process.Start(".\Log.exe ")
End
ElseIf result = DialogResult.No Then
End If
End If
Catch ex As Exception
MsgBox("Errer", MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://log.com/h6-page")
End Subقمت بتغيير
Timer1.Interval = 10000
Timer1.Start()
لان اريده يقتح بعد ثواني بعد فتح البرنامج
وعملت ملف htm
كود :
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
???? ???? :
<p id="vi">
2.0 BETA
</p>
???? ????? ???? ???? :
<p id="link">
http://log.com/Log.exe
</p>لو تلاحظ ان نفس الاصدار
2.0 BETA
بس البرنامج يفتح حتى في حالت غيرة رقم الاصدار وعند الضغط على التحديث يعطيني
إقتباس :حدث خطأ
هل هناك غلط عملته
وشكرا


