استفسار في عمل تحديث للبرنامج vb.net

[vb.net]

السلام عليكم ورحمة الله وبركاتة
اولآ : اعذروني لكتابة الموضوع في هذا القسم .... لانة لايوجد قسم مختص للـ vb.net

لقد عملت مثال تجريبي ...
1- التحقق من وجود نسخة حديثة .... تم التطبيق بنجاح




المطلوب :
2- تحميل البرنامج عند وجود نسخة حديثة .... بحيث يكون بنفس مسار البرنامج السابق واستبدالة بالنسخة الحديث على حسب جميع الانظمة Windows 7 - Windows Vista - XP




ملاحظة : فريم ورك 3.5

[vb.net]

هذا هو الكود المستخدم :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickcheckforupdates()End SubPublic Sub checkforupdates()TryDim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www/Updater/Updater.txt")Dim response As System.Net.HttpWebResponse = request.GetResponse()Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())Dim newestversion As String = sr.ReadToEnd()Dim currentversion As String = Application.ProductVersionIf newestversion.Contains(currentversion) ThenMessageBox.Show(" ")ElseMessageBox.Show(" ")System.Diagnostics.Process.Start("http://www/Updater/Updater.exe")End IfCatch ex As ExceptionEnd TryEnd Sub 

• 
  
  
  وهذا رقم الاصدار الموجود للنسخة الحديثة في مستند نصي txt 2.0.0.0
  
  
  
  
  اللحين كل شي تماام .... لاكن عند تحميل النسخة الحديثة
  اريد ان تذهب النسخة تلقائي لمجلد البرنامج واستبدالة بنسختة الجديدة
  
  
  
  
  
  
  
  

[/PHP]

[vb.net]

الكود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickcheckforupdates()End SubPublic Sub checkforupdates()TryDim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www/Updater/Updater.txt")Dim response As System.Net.HttpWebResponse = request.GetResponse()Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())Dim newestversion As String = sr.ReadToEnd()Dim currentversion As String = Application.ProductVersionIf newestversion.Contains(currentversion) ThenMessageBox.Show(" ")ElseMessageBox.Show(" ")System.Diagnostics.Process.Start("http://www/Updater/Updater.exe")End IfCatch ex As ExceptionEnd TryEnd Sub 

[vb.net]

المحرر به اخطاء

على العموم الكود بالمرفقات

[خليل سليم]

هلا أخي ، عليك بالقراءة فهي الحل دائما ، شوف هالكود السطر واحد بيحمل الملف مباشرة ، وبتختار المسار المباشر

My.Computer.Network.DownloadFile("http://www/Updater/Updater.exe", My.Application.Info.DirectoryPath)

بخصوص جلب اصدار البرنامج عليك باليوب سيرفس

الفيجوال بيسك به تسهيلات كثيرا عن السي شارب،لذلك أنصحك بقراءة كتاب اوسع