how to Make Cleint / App / EXE/ Visual Basic Auto Update With Script

Introduction:
This tutorial is on how to create an auto update function for a program in Visual Basic.

Notes:
- You will need a website for the latest version to be hosted for download and checking. Or, for testing you can use localhost like I am (I'm using XAMPP).
- If you're using a localhost, only people on your network can use this auto update function.

Steps of Creation:
Before we start we want to create a new form with one button for the update process to begin. we also want to import:

    

  1. 
Imports System.IO
    

    2. 

  2. 
Imports System.Net
    

    3.
Step 1:
First we want to get the latest version of the program available which is hosted in a version.txt file on our website/localhost. Let's get the source of that file and compare it to our programs current version...

    

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

    2. 

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

    3. 

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

    4. 

  4. 
MsgBox("Up to date!")
    

    5. 

  5. 
End If
    

    6. 

  6. 
End Sub
    

    7. 

  7. 

    

    8. 

  8. 
Private Function getSrc(ByVal url As String)
    

    9. 

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

    10. 

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

    11. 

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

    12. 

  12. 
Return src
    

    13. 

  13. 
End Function
    

    14.
Step 3:
Now that we have the latest version available and have output "Up to date!" if the current programs version is up to date we can make it download the latest file if it is not up to date...

    

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

    2. 

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

    3. 

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

    4. 

  4. 
MsgBox("Up to date!")
    

    5. 

  5. 
Else
    

    6. 

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

    7. 

  7. 
Try
    

    8. 

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

    9. 

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

    10. 

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

    11. 

  11. 
MsgBox("Finished!")
    

    12. 

  12. 
Me.Close()
    

    13. 

  13. 
Catch ex As Exception
    

    14. 

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

    15. 

  15. 
End Try
    

    16. 

  16. 
End If
    

    17. 

  17. 
End Sub
    

    18.
We surround the process in a try and catch statement just in case anything fails such as if the program isn't available to download.
Once we have downloaded the file and saved it we run it and close our current program. The final thing to do is to set the version of our program(s)...
Step 4:
To set a version setting for our program you want to go to:
Project > Project Properties > Settings, and create a new String named version and set the value to the current version of the program.

Project Complete!
That's it! Below is the source code to all the files, the directory formats and download to the program...

Auto Update Visual Basic Program:
    

  1. 
Imports System.IO
    

    2. 

  2. 
Imports System.Net
    

    3. 

  3. 
Public Class Form1
    

    4. 

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

    5. 

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

    6. 

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

    7. 

  7. 
MsgBox("Up to date!")
    

    8. 

  8. 
Else
    

    9. 

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

    10. 

  10. 
Try
    

    11. 

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

    12. 

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

    13. 

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

    14. 

  14. 
MsgBox("Finished!")
    

    15. 

  15. 
Me.Close()
    

    16. 

  16. 
Catch ex As Exception
    

    17. 

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

    18. 

  18. 
End Try
    

    19. 

  19. 
End If
    

    20. 

  20. 
End Sub
    

    21. 

  21. 

    

    22. 

  22. 
Private Function getSrc(ByVal url As String)
    

    23. 

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

    24. 

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

    25. 

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

    26. 

  26. 
Return src
    

    27. 

  27. 
End Function
    

    28. 

  28. 
End Class
    

    29.
Version.txt:
    

  1. 
0.2
    

    2.
Website Directory Format:
Root/version.txt in the root of the site which holds the latest version of the program available for download.
Root/0.2/download.exe Contains the downloadable.exe for the version 0.2 of my program ready for download.

If you have a version 2.0 just create the folder appropriately, like so:
Root/2.0/download.exe

Unknown

5 comments:

  1. danielFebruary 13, 2020 at 5:14 AM

    My ex ruined my credit due to his incessant extravagant spending spree, I found myself in a big mess. I talked to a credit repair company and I was told that it would take me non less than a year to fix my credit. I was devastated, that's a very long time which I can't cope with. I looked online and came across Credit Doctor's contact, hit him up and to my greatest surprise, my credit was repaired in 4 working days from 486 -810. I was so amazed and it didn't cost me too much really. I implore you to contact him on for all credit issues and hacking issues. No doubt that he's the best out there and your problems will be solved!
    HACKINTECHNOLOGY@GMAIL.COM
    +16692252253

    ReplyDelete
    Replies
    1. Curt LennixMarch 5, 2020 at 6:45 AM

      NEED TO HIRE A HACKER?! Then Hire PYTHONAX‼️

      PYTHONAX are a group of Certified and Registered Hackers under the Hackers Forum HackerOne. Based on the HackerOne standard, Hacking for individuals are not allowed and that’s why our services are more reliable and stay undetected.

      If you are caught, then we are caught, or if you have a problem with our services then we also have a problem of get caught by HackerOne Authorities. We meet up to every job we take as our insurance policy of not getting caught by the HackerOne Authorities.

      COUPLE OF HACKING SERVICES WE OFFER-:
      ▪️Phone Hacking/Cloning ▪️Email Hacking ▪️Social Media account Hacking ▪️Keylogging installations ▪️Deleted Emails, Files & Documents Recovery ▪️Website Hacking ▪️Scam Tracking ▪️Money/Bitcoin Recovery ▪️Binary Option Recovery ▪️Cyber Bully ▪️Virus Installation/ Detection..........e.t.c

      Feel free to Email is if you need a Hacking services that’s not listed above. We are here to hack for you
      Contact us via the email-: Pythonaxhacks@gmail.com
      Pythonaxservices@gmail.com

      2020 © All Right Reserved.

      Delete
  2. FelixApril 3, 2020 at 9:35 AM

    Do you need help?
    I recommend you contact ( wisetechhacker @ gmail com ) or whatsApp; (+1 518-749-2846) I contacted him for some assistant in hacking Facebook, whatsapp, gmail and mobile phone account, which he did successfully, now I got every proof about my fiancee. William is a computer engineer and he’s involved in different types of hacking services such as domains, whatsapp, gmail, Facebook, mobile phones, upgrade scores, gmail, domains, hotmail, yahoo and database.
    Be rest assured of getting your work done. He’s indeed a cyber guru.

    ReplyDelete
  3. ALBERTNovember 21, 2020 at 7:17 PM

    This is a great news that I must share with you all. I have been looking for a way to break into my wife's phone because she has a pass-code on her phone and is always receiving late night calls and text messages. I have been suspecting her for the past 1 year then, i contacted this hacker,who helped me hack into her phone and got me results under 24 hours he got me results of her call logs, text messages and even deleted text messages i was so happy to find out the truth about my wife i never knew she was a big time cheat until the HACKER (Michael) helped me, his prices are affordable contact him if you want to know more about your spouse and your relationship state and other services:- Like Website hack,whatsapp hack, Email. All you need to do just Email:- * (michaelcalce800@gmail.com) Text/whatsapp (+1 843 779 2336

    ReplyDelete
  4. abriennekaelinMarch 4, 2022 at 8:07 AM

    Casino & Hotel Map Wyandotte - TripYRO
    Search for: Casino & Hotel in Wyandotte. 용인 출장마사지 Find reviews, 양산 출장안마 photos & more for 하남 출장안마 Casino & Hotel 의정부 출장샵 in Wyandotte in Wyandotte. 출장안마

    ReplyDelete

Subscribe to: Post Comments (Atom)