Hallo,
ich habe einen Updater für mein Programm gemacht, es läuft auch alles einwandfrei, nur hab ich noch ein Problem, und ich weis nicht woran es liegt.
Mein Updater erkennt wenn ich in die Txt datei auf meinem FTP server schreibe 1.0.0.1 ein update, aber das macht er auch wenn das Programm bereits auf Version 1.0.0.1 ist.
aber ich will, das er nur kennt wenn ein Update zu verfügung steht, wenn der Nutzer auch eine alte Version hat.
Mein Code
Spoiler anzeigen
ich habe einen Updater für mein Programm gemacht, es läuft auch alles einwandfrei, nur hab ich noch ein Problem, und ich weis nicht woran es liegt.
Mein Updater erkennt wenn ich in die Txt datei auf meinem FTP server schreibe 1.0.0.1 ein update, aber das macht er auch wenn das Programm bereits auf Version 1.0.0.1 ist.
aber ich will, das er nur kennt wenn ein Update zu verfügung steht, wenn der Nutzer auch eine alte Version hat.
Mein Code
VB.NET-Quellcode
- Public Class Updater
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Button1.Enabled = False
- Button1.Text = "Checking for updates..."
- Timer1.Start()
- Label1.Text = ProgressBar1.Value
- CheckForUpdates()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ProgressBar1.Increment(5)
- Label1.Text = ProgressBar1.Value
- If ProgressBar1.Value = 100 Then
- Timer1.Stop()
- If ProgressBar1.Value = 100 Then
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://christian.square7.ch/Version.txt")
- 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
- Button1.Visible = False
- Label2.Text = ("You have the newest Version")
- Else
- Button1.Text = ("Would you Update?")
- WebBrowser1.Navigate("http://christian.square7.ch/Da Bayerische Browser setup.exe")
- Label2.Text = ("")
- End If
- End If
- End If
- End Sub
- Public Sub CheckForUpdates()
- If ProgressBar1.Value = 100 Then
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://christian.square7.ch/Version.txt")
- 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
- Button1.Text = ("You are up todate!")
- Label2.Text = ("You can close")
- Else
- Button1.Text = ("Downloading update!")
- WebBrowser1.Navigate("http://christian.square7.ch/Da Bayerische Browser setup.exe")
- Label2.Text = ("You may now close this dialog")
- End If
- End If
- End Sub
- End Class