UpdateManager-code-by bfx

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