Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://testvb.esy.es/update.txt") 'เป็นจุดที่ชี้ URL ของไฟล์เวอร์ชั่นใน Hosting นะครับ
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.ProductVersion
If newestversion.Contains(currentversion) Then 'ตรวจสอบแล้วเวอร์ชั่นตรงกัน
MessageBox.Show("You have the current version")
Else
MessageBox.Show("Newer version available") 'ตรวจสอบแล้วเวอร์ชั่นไม่ตรงกัน
Dim s As String = ("C:\Users\Boss\Desktop\New folder\Update.exe")
My.Computer.FileSystem.DeleteFile(s)
My.Computer.Network.DownloadFile("http://testvb.esy.es/Update.exe", Application.StartupPath & "C:\Users\Boss\Desktop\New folder\Update.exe")
Process.Start(Application.StartupPath & "C:\Users\Boss\Desktop\New folder\Update.exe")
Me.Close()
End If