09-11-12, 05:07 AM
كيف عمل auto Update عندما يتم تحديث فى المشروع يبلغ العميل ان هناك نسخه احدث من الى عنده + كيف جعله ينزل البرنامج من فورم اغير وى يثبت التحديث الجديد
Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("ملف التكسك")
Dim respnos As System.Net.HttpWebResponse = regust.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream)
Dim virsion As String = sr.ReadToEnd
Dim update As String = Application.ProductVersion
If virsion.Contains(update) Then
Else
MsgBox("هناك نسخه جديده هل تود تحديثها !!")
End If
If virsion.Contains(UpdateVersion) Then
Else
MsgBox("هناك نسخه جديده هل تود تحديثها !!")
End If
W XP 2003 كتب :عملت الى قلت ولكن في مشكلة :
SaLoOoMX كتب :قم بتغيير كلة update الى ملفك المرفوعشكررآ أخى جزاك الله كل خير
تفضل اخى جرب هذا الكود يعمل معى
يكون الكود هكذاكود :
Try
Dim descStream As New WebClient
AddHandler descStream.DownloadFileCompleted, AddressOf FillTextBox
descStream.DownloadFileAsync(New System.Uri("http://Web nme.com/Update.txt"), My.Computer.FileSystem.GetParentPath(My.Computer.FileSystem.SpecialDirectories.MyDocuments) + "\رثق_Config\desc.txt")
Catch ex As Exception
RichTextBox1.Text = "Unable to get new version description."
End Try
Dim web As New WebClient
Dim update As String = web.DownloadString("http://Name Web.com/Update.txt")
If update.Contains(Application.ProductVersion) Then
Application.Exit()
Else
Process.Start = ("http://Name Web.com/[File Name].rar")
Label5.Text = "A new update is available. DM and SD version " + "1.0.0.1" + " is ready For Download."
كود :
If virsion.Contains(UpdateVersion) Then
Else
MsgBox("هناك نسخه جديده هل تود تحديثها !!")
End If
ملاحضه
اذا رفعت الملف النصي يجب ان يكون مكتوب بداخله رقم النسخه وتكون 1.0.0.0
اذا اردت عمل نسخه جديده للبرنامج قم بتغغير الرقم الى 1.0.0.1
وفقك الله