Vb.net Button Click Update

dgsouce

1. Public Class Form1
   
2.     Dim WebClient As New Net.WebClient
   
3.     Public Sub CheckForUpdates()
   
4. 
   
5.         Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://yourweb.com/Version.txt")
   
6.         Dim response As System.Net.HttpWebResponse = request.GetResponse()
   
7. 
   
8.         Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
   
9. 
   
10.         Dim newestversion As String = sr.ReadToEnd()
    
11.         Dim currentversion As String = Application.ProductVersion
    
12. 
    
13.         If newestversion.Contains(currentversion) Then
    
14.             Interaction.MsgBox("โปรแกรมของคุณล่าสุดแล้วครับ", MsgBoxStyle.Information, "Version Check")
    
15. 
    
16. 
    
17.         Else
    
18.             Interaction.MsgBox("มีซอร์ฟแวร์รุ่นใหม่ OK เพื่ออัพเดท", MsgBoxStyle.Exclamation, "Version Check")
    
19.             Interaction.MsgBox("หลังจากอัพเดทเสร็จแล้ว ให้ลบโปรแกรมตัวเก่าออกทันที OK เริ่มดาวน์โหลด", MsgBoxStyle.Exclamation, "Version Check")
    
20.             Try
    
21.                 'Download App'
    
22.                 WebClient.DownloadFile("http://yourweb.com/UpdateReset/autoupdate.exe", (Application.StartupPath & "\autoupdate1.exe"))
    
23.                 Process.Start((Application.StartupPath & "\autoupdate1.exe"))
    
24.                 Interaction.MsgBox("การอัพเดทเสร็จสิ้น", MsgBoxStyle.Information, "Update Version")
    
25. 
    
26.                 Me.Close()
    
27.             Catch ex As Exception
    
28.             End Try
    
29. 
    
30.         End If
    
31.     End Sub

คัดลอกไปที่คลิปบอร์ด

Button1

1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
2.         CheckForUpdates()
   
3. 
   
4.     End Sub

คัดลอกไปที่คลิปบอร์ด

boomzamtr

ขอบคุณครับ

zawaddee123

ขอบคุณครับ

tap888

ขอบคุณครับ