Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ' Web Client definieren bzw. festlegen und gleich die Versionsdatei laden ;-)
- Dim client As New Net.WebClient
- client.DownloadFile("http://www.deinadresse.kilu.de/version_log.txt", My.Computer.FileSystem.SpecialDirectories.Temp & "\check.txt")
- ' Textdatei auslesen bzw. Version auslesen
- Dim iox As New IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.Temp & "\check.txt", System.Text.Encoding.Default)
- Dim ot As String = iox.ReadToEnd
- iox.Close()
- ' Abfrage ob Version neuer oder älter ist
- If Not ot = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\deinprodukt", "version", "0.0") Then
- ' Abfrage ob Update gemacht werden soll , 6 = Yes
- If MsgBox("Eine Neue Version von 'deinprodukt' verfügbar , Version '" & ot & "'" & _
- vbNewLine & "Möchten sie ein Update durchführen ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Update") = MsgBoxResult.Yes Then
- ' Download URL festlegen
- ' Datei mit Sync runterladen sprich somit funktionieren auch die Rückruf Funktionen
- client.DownloadFileAsync(New System.Uri("http://www.deinadresse.de/produkt.zip"), My.Application.Info.DirectoryPath & "\produkt.zip")
- AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress ' Rückruf Funktionen setzen
- AddHandler client.DownloadFileCompleted, AddressOf DownloadFertig
- ' Update Check Button abschalten bzw. deaktivieren
- Me.Button1.Enabled = False
- ' Den Schlüssel version auf die Version in der Text Datei setzen
- My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\deinprodukt", "version", ot)
- End If
- End If
- End Sub
- ' Rückruf Funktion für den Webclient sobald sich der Downloadfortschritt ändern wird diese immer wieder abgerufen
- Private Sub DownloadProgress(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
- Me.ProgressBar1.Value = e.ProgressPercentage
- Label1.Text = "Download : " & e.ProgressPercentage & "%"
- End Sub
- ' sobald der Download beendet wurde wird diese Rückruffunktion abgerufen
- Private Sub DownloadFertig(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
- MsgBox("Update download abgeschlossen.", MsgBoxStyle.Information, "Fertig")
- Me.Button1.Enabled = True
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement