Cara Membuat Auto Update Dengan VB.NET

Tutorial ini adalah tentang cara membuat auto update  dalam Visual Basic. 
Catatan:
- Anda akan memerlukan situs web untuk versi terbaru untuk menjadi host untuk download dan memeriksa. Atau, untuk pengujian Anda dapat menggunakan localhost seperti saya (saya menggunakan XAMPP).
- Jika Anda menggunakan localhost, hanya orang-orang di jaringan Anda dapat menggunakan fungsi update otomatis.

Langkah Pembuatan
Sebelum kita mulai kita ingin membuat bentuk baru dengan satu tombol untuk proses update untuk memulai. kita akan buat deklarasi nya dahulu

1. Imports System.IO
2. Imports System.Net

Langkah 1:
Pertama kita ingin mendapatkan versi terbaru dari program yang tersedia yang di-host dalam file version.txt di website / localhost kita . yaitu untuk mendapatkan informasi dari file saat ini

1.  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

2.      Dim src As String = getSrc("http://127.0.0.1/autoUpdater/version.txt")

3.      If (src.Contains(My.Settings.version)) Then

4.          MsgBox("Up to date!")

5.      End If

6.  End Sub

7.   

8.  Private Function getSrc(ByVal url As String)

9.      Dim r As httpwebrequest = httpwebrequest.create(url)

10.    Dim re As httpwebresponse = r.getresponse()

11.    Dim src As String = New streamreader(re.getresponsestream()).readtoend()

12.    Return src

13.  End Function

Langkah 3:
Sekarang kita memiliki versi terbaru yang tersedia dan memiliki output yang "Up to date!" jika saat versi program up to date kita bisa membuatnya men-download file terbaru jika tidak up to date

1.  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

2.      Dim src As String = getSrc("http://127.0.0.1/autoUpdater/version.txt")

3.      If (src.Contains(My.Settings.version)) Then

4.          MsgBox("Up to date!")

5.    Else

6.          MsgBox("Outdated, Downloading new exe...")

7.          Try

8.              My.Computer.Network.DownloadFile("http://127.0.0.1/autoUpdater/" & src.Replace(" ", "") & "/download.exe", CurDir() & "/updates/" & src & ".exe")

9.              MsgBox("Downloaded, Running...")

10.            Diagnostics.Process.Start(CurDir() & "/updates/" & src & ".exe")

11.            MsgBox("Finished!")

12.            Me.Close()

13.        Catch ex As Exception

14.            MsgBox("Updated file not found...")

15.        End Try

16.    End If

17.End Sub

Nantinya akan gagal apabila tidak terdapat update softwarenya.

Langkah 4:
Untuk menetapkan pengaturan versi untuk program.Anda ingin pergi ke:
Project> Project Properties> Settings, dan membuat String baru bernama versi dan menetapkan nilai ke versi saat ini program.

Full Code.txt

atau

Full Project