|
แก้ไขครั้งสุดท้ายโดย dgsouce เมื่อ 2019-7-12 16:44
- Public Class Form1
- Dim WebClient As New Net.WebClient
- Public Sub CheckForUpdates()
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://yourweb.com/Version.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.ProductVersion
- If newestversion.Contains(currentversion) Then
- Interaction.MsgBox("โปรแกรมของคุณล่าสุดแล้วครับ", MsgBoxStyle.Information, "Version Check")
- Else
- Interaction.MsgBox("มีซอร์ฟแวร์รุ่นใหม่ OK เพื่ออัพเดท", MsgBoxStyle.Exclamation, "Version Check")
- Interaction.MsgBox("หลังจากอัพเดทเสร็จแล้ว ให้ลบโปรแกรมตัวเก่าออกทันที OK เริ่มดาวน์โหลด", MsgBoxStyle.Exclamation, "Version Check")
- Try
- 'Download App'
- WebClient.DownloadFile("http://yourweb.com/UpdateReset/autoupdate.exe", (Application.StartupPath & "\autoupdate1.exe"))
- Process.Start((Application.StartupPath & "\autoupdate1.exe"))
- Interaction.MsgBox("การอัพเดทเสร็จสิ้น", MsgBoxStyle.Information, "Update Version")
- Me.Close()
- Catch ex As Exception
- End Try
- End If
- End Sub
คัดลอกไปที่คลิปบอร์ด
Button1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- CheckForUpdates()
- End Sub
คัดลอกไปที่คลิปบอร์ด
|
|