Hallo.
Hier mal ein kleiner Code um ein Update durchzuführen.
Effekt: Update einer Forms-Anwendung.
Die Controls werden hierbei erst eingeblendet, wenn die aktuellste Version des Programms vorliegt.
Benötigt:
-Eine .ini/.txt Datei auf einem Webspace.
-Auf dem Webspace muss eine Datei Namens .Vers.ini liegen
Der Punkt vor dem Vers ist , damit die Datei auf dem Webspace unsichtbar ist. Sie muss also wirklich .Vers.ini heißen.
In dieser Datei steht z.B Folgendes:
v1.6.7B|1|Der Entwickler gibt sein Bestes
Vorne schreibt ihr die aktuelle Version.
Dann folgt ein |
Dann kommt eine 0 (Notification ausgeschaltet) oder eine 1(Notification angeschaltet)
Dann kommt wieder ein | und optional der Notificationtext
Wenn 0 steht kann auch ein Notificationtext da stehen, der wird nicht angezeigt werden.
-Bei EuerProgramm tragt ihr den Namen eures Programmes ein
-Bei AKTUELLEVERSION muss die aktuelle Version (die das Programm hat wo ihr den Code nutzt) rein
Mit diesem Code muss euer Programm so auf dem Webspace liegen(beispiel:
HelloWorldv1.3.5.Rar
Hier mal ein kleiner Code um ein Update durchzuführen.
Effekt: Update einer Forms-Anwendung.
Die Controls werden hierbei erst eingeblendet, wenn die aktuellste Version des Programms vorliegt.
Benötigt:
-Eine .ini/.txt Datei auf einem Webspace.
VB.NET-Quellcode
- ' Private WebspaceBasicAddr As String = "http://euerserver.funpic.de/EuerProgramm/" Global definieren
- Private Sub CheckUpdate()
- Dim CurrD As String = String.Empty
- Dim SevVers As String = String.Empty
- Try
- CurrD = New WebClient().DownloadString(String.Concat(WebspaceBasicAddr, ".Vers.ini"))
- SevVers = Regex.Match(CurrD, "(v[^|]+)").Groups(1).Value
- Catch
- End Try
- Dim State As Tuple(Of Boolean, String) = Tuple.Create(True, String.Empty)
- If Not Regex.IsMatch(CurrD, "(v[^|]+)") Then State = Tuple.Create(False, "No connection to the update server.")
- If Not "AKTUELLEVERSION" = SevVers Then State = Tuple.Create(False, SevVers)
- If State.Item1 Then Me.Controls.OfType(Of Control).ToList.ForEach(Sub(x) x.Visible = True)
- If Regex.IsMatch(CurrD, "v[^|]+\|1|\|") Then MessageBox.Show(Regex.Match(CurrD, "v[^|]+\|1\|([^\n]+)").Groups(1).Value, "Notification of the developer", MessageBoxButtons.OK, MessageBoxIcon.Information)
- If Regex.IsMatch(State.Item2, "(v[^|]+)") Then
- If MessageBox.Show("There is an update available! Would you like to download EUERPROGRAMM " & State.Item2 & " ? ", "Update available.", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.No Then Environment.Exit(1)
- DownloadUpdate()
- End If
- If State.Item2.Contains("No connection") Then MessageBox.Show("There is no connection to the updateserver.", "No connection.", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End Sub
- Private Sub DownloadUpdate()
- Dim CurrVersion As String = String.Empty
- Try
- CurrVersion = New WebClient().DownloadString(String.Concat(WebspaceBasicAddr, ".Vers.ini"))
- CurrVersion = Regex.Match(CurrVersion, "(v[^|]+)").Groups(1).Value
- Dim Pat As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "EuerProgramm" & CurrVersion & ".rar")
- Dim Url As String = String.Concat(WebspaceBasicAddr, "EuerProgramm" & CurrVersion & ".rar")
- File.Delete(Pat)
- Dim Client As New Net.WebClient
- Client.DownloadFile(Url, Pat)
- If File.Exists(Pat) Then
- MessageBox.Show("EuerProgramm " & CurrVersion & " successfully downloaded. √", "Update successful.", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Environment.Exit(1)
- Else
- MessageBox.Show("EuerProgramm " & CurrVersion & " was not downloaded.", "Update failed. The bot is currently disabled.", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
- Catch
- MessageBox.Show("EuerProgramm update failed because of a networkerror. The bot is currently disabled.", "Update failed.", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End Sub
-Auf dem Webspace muss eine Datei Namens .Vers.ini liegen
Der Punkt vor dem Vers ist , damit die Datei auf dem Webspace unsichtbar ist. Sie muss also wirklich .Vers.ini heißen.
In dieser Datei steht z.B Folgendes:
v1.6.7B|1|Der Entwickler gibt sein Bestes
Vorne schreibt ihr die aktuelle Version.
Dann folgt ein |
Dann kommt eine 0 (Notification ausgeschaltet) oder eine 1(Notification angeschaltet)
Dann kommt wieder ein | und optional der Notificationtext
Wenn 0 steht kann auch ein Notificationtext da stehen, der wird nicht angezeigt werden.
-Bei EuerProgramm tragt ihr den Namen eures Programmes ein
-Bei AKTUELLEVERSION muss die aktuelle Version (die das Programm hat wo ihr den Code nutzt) rein
Mit diesem Code muss euer Programm so auf dem Webspace liegen(beispiel:
HelloWorldv1.3.5.Rar
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kevin Hombre“ ()