เว็บบอร์ด › VB.Net › Vb.net Button Click Update

dgsouce โพสต์ 2019-7-12 16:42:40

Vb.net Button Click Update

แก้ไขครั้งสุดท้ายโดย 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

boomzamtr โพสต์ 2019-7-13 16:49:27

ขอบคุณครับ

zawaddee123 โพสต์ 2020-3-22 16:13:40

ขอบคุณครับ

tap888 โพสต์ 2023-6-2 05:08:39

ขอบคุณครับ:@

ดูในรูปแบบกติ: Vb.net Button Click Update