+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف عمل التحديث (/showthread.php?tid=6895)
الصفحات:
1
2
كيف عمل التحديث - محمد - 09-11-12
كيف عمل auto Update عندما يتم تحديث فى المشروع يبلغ العميل ان هناك نسخه احدث من الى عنده + كيف جعله ينزل البرنامج من فورم اغير وى يثبت التحديث الجديد
كيف عمل التحديث - SaLoOoMX - 09-11-12
كود :
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ضع الكود في اي حدث
كيف عمل التحديث - W XP 2003 - 09-11-12
عملت الى قلت ولكن في مشكلة :
كيف عمل التحديث - SaLoOoMX - 09-11-12
قم بتغيير كلة update الى ملفك المرفوع
يكون الكود هكذا
كود :
If virsion.Contains(UpdateVersion) Then
Else
MsgBox("هناك نسخه جديده هل تود تحديثها !!")
End Ifملاحضه
اذا رفعت الملف النصي يجب ان يكون مكتوب بداخله رقم النسخه وتكون 1.0.0.0
اذا اردت عمل نسخه جديده للبرنامج قم بتغغير الرقم الى 1.0.0.1
وفقك الله
كيف عمل التحديث - W XP 2003 - 10-11-12
عملت نفس ملاحظتك و نفس كود تظهر مشكلة
Error 2 Name 'UpdateVersion' is not declared.
جربت اكثر من كود نفس مشكلة الى كانت في صوره .
كيف عمل التحديث - amgadtamer - 10-11-12
هل أنت متأكد من وجود هذا الملف ؟
هل انت متأكد من صحة الرابط المكتوب ؟
كيف عمل التحديث - W XP 2003 - 10-11-12
متأكد لان على سيرفر مدفوع ...
كيف عمل التحديث - SaLoOoMX - 10-11-12
يوجد غلط في الرابط الملف غير موجود تاكدت انا من رابط الملف حاول ترفعه مره اخرى
كيف عمل التحديث - محمد - 10-11-12
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
وفقك الله
كيف عمل التحديث - الميسري - 10-11-12
قد يكون خطأ في السيرفر