Autoupdater

[youros]

Siema mam skrypt na autoupdate Private Sub Aktualizacje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aktualizacje.Click
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("Link")

        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion
        If newestversion.Contains(currentversion) Then
            MsgBox("Brak Dostępnych Aktualizacji")
        Else
            MsgBox("Dostępna Aktualizacja, Pobieranie...")
            System.Diagnostics.Process.Start("Link")
        End If
    End Sub

Tylko że jak klikam button Aktualizacje to zawsze mi pokazuje że Aktualizacje są dostępne nawet gdy mój programik jest Już Zupdatowany do aktualnej wersji Co jest nie tak?, A i jeszcze jedno jak zrobić skrypt który Automatycznie będzie instalował aktualizacje tak jak w Bot Of Legends.

[youros]

refresh

[Adrian327d]

If newestversion.Contains(currentversion)

Then

MsgBox("Dostępna Aktualizacja, Pobieranie...")

System.Diagnostics.Process.Start("link")

Else

MsgBox("Brak Dostępnych Aktualizacji")

EndIf

[Sunnyline2]

Nie chce nic mówić ale lepiej jest zrobić porównywanie wagi plików. Gdy na serwerze wrzucimy nowy plik, wyświetli się wiadomość o aktualizacji.

@topic

If newestversion = urrentversion then
MsgBox("Dostępna Aktualizacja, Pobieranie...")
System.Diagnostics.Process.Start("link")
Else
MsgBox("Brak Dostępnych Aktualizacji")
End If 

[youros]

Dzięki działa