Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim Versionschecker As New System.Net.WebClient
- Dim ServerVersion As String = Versionschecker.DownloadString("http://ftpes.galactic@galactic.bplaced.net/launcher/version/version.ini")
- Dim ClientVersion As String = Me.Label1.Text
- If Not ServerVersion = ClientVersion Then
- MsgBox("Updates gefunden - Klick OK to Downlaod & Install - Name it: launcher.exe", MsgBoxStyle.Information, "Update gefunden")
- Shell(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\launcher.exe")
- End
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement