Advertisement
Guest User

Untitled

a guest
Nov 13th, 2019
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.68 KB | None | 0 0
  1.  
  2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  3.  
  4. Dim Versionschecker As New System.Net.WebClient
  5. Dim ServerVersion As String = Versionschecker.DownloadString("http://ftpes.galactic@galactic.bplaced.net/launcher/version/version.ini")
  6. Dim ClientVersion As String = Me.Label1.Text
  7. If Not ServerVersion = ClientVersion Then
  8. MsgBox("Updates gefunden - Klick OK to Downlaod & Install - Name it: launcher.exe", MsgBoxStyle.Information, "Update gefunden")
  9. Shell(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\launcher.exe")
  10. End
  11. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement