08-06-16, 03:48 AM
السلام عليكم
رمضان مبارك
اريد تصحيح الكود التالي
كود :
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