Cara Membuat Auto Update Dengan VB.NET

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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 tersediayang 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 terbaruyang tersedia dan memiliki output yang"Up to date!" jika saat versi programup 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 

 

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Cara Membuat Auto Update Dengan VB.NET, Diterbitkan oleh scodeaplikasi pada Jumat, 27 September 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.