[bidaya]

السلام عليكم

رمضان مبارك

اريد تصحيح الكود التالي

كود :

Imports System.Net
Imports System.IO
Public Class Form1
   Dim NewPoint As New System.Drawing.Point()
   Dim X, Y As Integer

   Dim VersionURL As String = "http://btnm.ml/bidaya2/UpdateVersion.txt"
   Dim Request As HttpWebRequest = WebRequest.Create(VersionURL)

   Dim Reader As StreamReader = New StreamReader(Request.GetResponse.GetResponseStream())

   Dim NewVersion As String = Reader.ReadToEnd()

     Reader.Dispose()

   If Trim NewVersion= Trim Application.ProductVersion  Then


   Dim UpdateLink As String = "http://btnm.ml/bidaya2/UpdateLink.txt"
CheckL.Text =  " "
   Dim LinkRequest As HttpWebRequest = WebRequest.Create(UpdateLink)
Dim  LinkReader  As  StreamReader =  New StreamReader(LinkRequest.GetResponse.GetResponseSt ream()
   Dim DownNewVersion As String = LinkReader.ReadToEnd
LinkReader.Dispose()
   Dim FileFormate As String = Strings.Right(DownNewVersion, 4)
   If  Strings.Left(FileFormate, 1) <>  "." Then  FileFormate =  ".exe"

My .Computer.Network.DownloadFile(DownNewVersion, Application.StartupPath &   "\NewUpdate" & NewVersion & FileFormate,  "" "" ,  True , 100,  True

   System.Diagnostics.Process.Start(Application.Start upPath & "\NewUpdate" & NewVersion & FileFormate)


End Class