Update mit optionaler Benachrichtigung

    • VB.NET

    Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Timocop.

      Update mit optionaler Benachrichtigung

      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.

      VB.NET-Quellcode

      1. ' Private WebspaceBasicAddr As String = "http://euerserver.funpic.de/EuerProgramm/" Global definieren
      3. Private Sub CheckUpdate()
      4. Dim CurrD As String = String.Empty
      5. Dim SevVers As String = String.Empty
      6. Try
      7. CurrD = New WebClient().DownloadString(String.Concat(WebspaceBasicAddr, ".Vers.ini"))
      8. SevVers = Regex.Match(CurrD, "(v[^|]+)").Groups(1).Value
      9. Catch
      10. End Try
      11. Dim State As Tuple(Of Boolean, String) = Tuple.Create(True, String.Empty)
      12. If Not Regex.IsMatch(CurrD, "(v[^|]+)") Then State = Tuple.Create(False, "No connection to the update server.")
      13. If Not "AKTUELLEVERSION" = SevVers Then State = Tuple.Create(False, SevVers)
      15. If State.Item1 Then Me.Controls.OfType(Of Control).ToList.ForEach(Sub(x) x.Visible = True)
      18. 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)
      19. If Regex.IsMatch(State.Item2, "(v[^|]+)") Then
      20. 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)
      21. DownloadUpdate()
      22. End If
      24. If State.Item2.Contains("No connection") Then MessageBox.Show("There is no connection to the updateserver.", "No connection.", MessageBoxButtons.OK, MessageBoxIcon.Information)
      25. End Sub
      26. Private Sub DownloadUpdate()
      27. Dim CurrVersion As String = String.Empty
      28. Try
      29. CurrVersion = New WebClient().DownloadString(String.Concat(WebspaceBasicAddr, ".Vers.ini"))
      30. CurrVersion = Regex.Match(CurrVersion, "(v[^|]+)").Groups(1).Value
      31. Dim Pat As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "EuerProgramm" & CurrVersion & ".rar")
      32. Dim Url As String = String.Concat(WebspaceBasicAddr, "EuerProgramm" & CurrVersion & ".rar")
      33. File.Delete(Pat)
      34. Dim Client As New Net.WebClient
      35. Client.DownloadFile(Url, Pat)
      37. If File.Exists(Pat) Then
      38. MessageBox.Show("EuerProgramm " & CurrVersion & " successfully downloaded. √", "Update successful.", MessageBoxButtons.OK, MessageBoxIcon.Information)
      39. Environment.Exit(1)
      40. Else
      41. MessageBox.Show("EuerProgramm " & CurrVersion & " was not downloaded.", "Update failed. The bot is currently disabled.", MessageBoxButtons.OK, MessageBoxIcon.Error)
      42. End If
      44. Catch
      45. MessageBox.Show("EuerProgramm update failed because of a networkerror. The bot is currently disabled.", "Update failed.", MessageBoxButtons.OK, MessageBoxIcon.Error)
      46. End Try
      48. 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“ ()

      Hmm...

      Ich würde unbedingt von sowas abraten. UpdateSystem.NET ist das beste, was ich da raten kann. Wenn deine Update-Pakete nämlich nicht signiert werden, dann kann der Client stattdessen nen Virus auf den PC bekommen. Zudem ist es einfacher und schöner aufgebaut. Die Sicherheit steht immer an erster Stelle...
      So toll es auch ist, afaik ist diese Lösung aber auf Dauer nicht sicher. Also bitte nicht!!! Am Ende wundert sich sonst der Nutzer irgendwann, warum seine Controls nicht angezeigt werden (in diesem Beispiel) und dann sein PC verrückt spielt, wenn er sich Malware einfängt!
      #define for for(int z=0;z<2;++z)for // Have fun!
      Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

      Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

      Jo das ist richtig. Es gibt aber afaik auch böse Benutzer, die sich das zum Ziel setzen ;)
      #define for for(int z=0;z<2;++z)for // Have fun!
      Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

      Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

      FunPic AGB: 5. Unerwünschte Inhalte
      Den Speicherplatz als Datenablage im Sinne der alleinigen Speicherung und/oder Verbreitung von Daten ohne konkretem Zusammenhang zu einer bei Funpic.de AG vorhandenen Webseite zu verwenden, ist nicht gestattet, als auch die kommerzielle oder entgeltliche Weitergabe des Angebots.


      Just say'n

    Facebook
    Telefonspende