Updater für Programm

    • VB.NET

    Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mike.

      Updater für Programm

      ErfinderDesRades - Moderator - Notiz:
      Von der Verwendung selbstgebastelter Update-Systeme raten wir ab - Zu leicht kann ein Angreifer Schad-SoftWare einschleusen.
      Professionelle Update-Systeme, die heutigen Sicherheits-Standards besser gerecht werden, gibt es auch als Freeware


      Also ich zeige heute einen Updater fürs Programm:
      Ihr könnt es z.B in die Start-Form und danach die Hauptform zeigen(Nur ein Beispiel).
      Geht natürlich auch anders!
      Was ihr benötigt:
      -FTP Server
      -VisualBasic
      -Grundlagen(um manche sachen zu verstehen xD)
      -Brain.exe(um Code anzupassen)

      Also fangen wir an:
      Toolbox-Elemente:
      -PB1 (ProgressBar)
      -btUpdate (Button) -Dieser Button führt dass Update durch
      -btWeiter - Wenn kein Update oder No gedrückt wird Kommt dieser Button
      -lblStatus(Label)
      Label für Download anzeige... (lblStatus)
      Dass war erstmal!

      Nun fangen wir an mit den Codes:

      Hier erstmal Deklarationen und der Import:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.Net
      2. Public Class Form1
      3. Private WithEvents WebClient1 As New WebClient
      5. Dim pgversion As String = "1.0"
      6. '*Programm version - Geht auch so: *
      7. '*Dim pgversion2 As String = IO.File.ReadAllText("Pfad der programm version")*
      8. '*Machts wie ihr wollt *
      10. Dim aktversion As String = WebClient1.DownloadString("Addresse der Aktuellen version")
      11. Dim dialog As New SaveFileDialog
      12. Dim pfad As String
      13. '* Selbst erklärend :)*

      Und jetzt der eigentliche Code buttonUpdate Click event:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub btUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btUpdate.Click
      2. dialog.Filter = "(*.exe)|" 'usw.:
      3. '* 'Filter des Dialogs, passt es an! Bsp: (*.form)| Dass:[|]-Abschluss strich *
      5. dialog.Title = "Update speichern unter..."
      6. '* 'Titel des dialogs
      9. If MessageBox.Show("Ihre Version ist: " & pgversion & vbNewLine & "Die Version des Updates ist: " & aktversion & vbNewLine & "Wollen sie Updaten?", "Update?", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then 'Wenn ja zu Update gedrückt wird:
      10. 'vbNewLine ist "Enter"
      12. If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then 'Wenn bei dialog OK gedrückt wird:
      13. Try 'Try Block um Fehler abzufangen
      14. pfad = dialog.FileName 'Dann ist Variable "pfad" der Pfad unter den ihr gespeichert habt
      15. WebClient1.DownloadFileAsync(New Uri("Addresse der Download Datei"), pfad) 'Webclient downloaded Async(Kein einfrieren)
      16. Catch ex As Exception
      17. MsgBox("Fehler: " & ex.Message)
      18. End Try
      20. If IO.File.Exists(pfad) Then 'Hier wird dann überprüft ob dass update existiert
      21. Process.Start(pfad) 'Wenn ja dann wird es gestartet + dieses programm geschlossen
      22. Me.Close()
      23. End If
      25. ElseIf Windows.Forms.DialogResult.Cancel Then 'Wenn bei dialog Chanel Gedrückt wird dann:
      26. Me.Hide() 'Könnt auch anderes machen...
      27. Hauptform.Show()
      30. ElseIf pfad = Nothing Then 'Wenn pfad nichts ist dann:
      31. Me.Hide() 'Ebenfalls
      32. Hauptform.Show()
      33. End If 'End If für dialog abfrage
      34. ElseIf MsgBoxResult.No Then ' Wenn nein zur MsgBox gedrückt wird:
      35. btUpdate.Visible = False 'Update button wird nicht gezeigt
      36. btWeiter.Visible = True ' Weiter button wird gezeigt
      37. End If 'End if für messagebox abfrage
      38. End Sub

      Form Load Event um zu Schauen Ob Update verfügbar ist:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      2. If pgversion < aktversion Then 'Wenn die Programmversion kleiner als die Aktuelle Version ist:
      3. btUpdate.Visible = True
      4. btUpdate.PerformClick() ' Button wird einfach gedrückt
      5. ElseIf aktversion < pgversion Then ' Wenn es größer ist:
      6. btUpdate.Visible = False
      7. btWeiter.Visible = True ' Dann wird der Weiter button gezeigt
      9. End If ' End if für Versions abfrage
      10. End Sub

      Und nun der Button Weiter welchen ihr genau so groß macht wie Update und auch an den gleichen ort verschiebt:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub btWeiter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btWeiter.Click
      2. Me.Hide()
      3. Hauptform.Show()
      4. End Sub

      Und um den Status anzuzeigen: Im WebClient Progress Changed Event:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
      3. Dim by As String = e.BytesReceived
      4. Dim by2 As String = e.TotalBytesToReceive
      5. Dim by3 As String = "Bytes/"
      6. Dim by4 As String = "Bytes"
      7. If by2 > 1024 Then ' Wenn es 1024 Bytes sind (1KB) Dann ist die Ausgabe in KB's
      8. by = e.BytesReceived / 1024
      9. by2 = e.TotalBytesReceived / 1024
      10. by3 = "KB/"
      11. by4 = "KB"
      12. ElseIf by2 > 1048576 Then ' Wenn die Bytes insgesamt 1 MB sind ist die Ausgabe in MB's
      13. by = e.BytesReceived / 1024 / 1024
      14. by2 = e.TotalBytesReceived / 1024 / 1024
      15. by3 = "MB/"
      16. by4 = "MB"
      17. ElseIf by2 > 1073741824 Then ' Wenn es GB ist ...
      18. by = e.BytesReceived / 1024 / 1024 / 1024
      19. by2 = e.TotalBytesReceived / 1024 / 1024 / 1024
      20. by3 = "GB/"
      21. by4 = "GB"
      22. End If 'Dieser Code durchläuft jetzt die größe und wenn es größer 1kb ist wird es als
      23. 'KB angezeigt
      24. With PB1
      25. .Value = e.ProgressPercentage
      26. lblStatus.Text = by & by3 & by2 & by4
      28. End With
      29. End Sub


      Bitte Feedback! Eventuelle Fehler posten!
      Dateien

      • Update-TUT.zip

        (111,98 kB, 336 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 23 mal editiert, zuletzt von „ErfinderDesRades“ () aus folgendem Grund: Code-Total bei (Total)BytesReceived vergessen.

      Hey super Sache,

      habe damit gerade mein eigenen kleinen Updater gebastelt, allerdings ist die Fortschrittsanzeige nicht wirklich brauchbar, da die erst angezeigt wird, wenn der Download abgeschlossen ist, habe das gerade mal mit einer 200MB Datei getestet.

      Edit: Ne ist doch nicht so, war ein Fehler den ich im Webclient eingebaut habe ^^, mein Updater läuft nun ganz gut. Die Status-Anzeige sieht aber bei großen Files nicht schön aus.
      Vielen Dank für das Tutorial :thumbup:
      : NV Updater | Nvidia Driver Update Tool

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TTX.exe“ ()

      Ich hofe ihr könnt mir bei der Codeanpassung für mein Tol.

      Ich würde gerne die Updatefunktion per ToolStripMenü integrieren:



      Jedoch hab ich nur Grundkenntnisse und weiß nicht genau wie ich den Code anpassen muss. Also eine Statusbar benötige ich nicht, eigentlich nur die reine Updatefunktion.

      Die Programmversion von mir ist aktuiell 1.1.4a

      Die Downloadadresse wäre: beatmasters-winlite-blog.de/wp…ddOn_Downloader_1.1.4a.7z

      Somit also keine EXE-Datei sondern ein 7-Zip Paket.
      Außerdem würde ich wenn ein Update gefunden wurde es gerne so machen, dass automatisch die neue Version heruntergeladen wird man jedoch den Speicherort wählen kann, aber keinen Dateinamen eingeben muss.

      Kann mir da jemand den Code oben anpassen oder Hilfe leisten ?

      Ich danke euch.

      Bisher ist mein Fenster des Programmes mit folgendem Code gefüllt:

      Quellcode

      1. Imports System.Xml
      2. Imports System.ComponentModel
      3. Imports System.Net
      5. Public Class Hauptfenster
      6. Sub New()
      7. ' Dieser Aufruf ist für den Designer erforderlich.
      8. InitializeComponent()
      10. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
      11. Dim fdsr As New System.Windows.Controls.FlowDocumentScrollViewer()
      12. ElementHost1.Child = fdsr
      13. End Sub
      15. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      16. If MessageBox.Show("Wirklich Beenden ?", "Hinweis", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
      17. Me.Close()
      18. Else
      19. Me.Show()
      20. End If
      21. End Sub
      23. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Über.Click
      24. InfoFenster.Show()
      25. End Sub
      27. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
      28. If MessageBox.Show("Wirklich Beenden ?", "Hinweis", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
      29. Me.Close()
      30. Else
      31. Me.Show()
      32. End If
      33. End Sub
      35. Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      36. InfoFenster.Show()
      37. End Sub
      39. Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
      40. ListView1.Items.Clear()
      42. For Each ao In DirectCast(ListBox2.SelectedItem, AddonKategorie).Addons
      43. ListView1.Items.Add(New ListViewItem(New String() {ao.Name, ao.Version}))
      44. Next
      45. End Sub
      47. Private Sub AktualisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AktualisierenToolStripMenuItem.Click
      48. Dim xml As XElement = XElement.Load("data\Addons.xml")
      50. Dim liste As New BindingList(Of AddonKategorie)()
      51. For Each eintrag In xml.<Kategorie>
      52. liste.Add(AddonKategorie.Einlesen(eintrag))
      53. Next
      55. ListBox2.DataSource = liste
      56. End Sub
      58. Private Sub Hauptfenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      59. AktualisierenToolStripMenuItem_Click(Nothing, Nothing)
      60. End Sub
      62. Private Sub WasSindAddonsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WasSindAddonsToolStripMenuItem.Click
      63. AnleitungFenster.Show()
      64. Me.Hide()
      65. End Sub
      67. Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
      68. If ListView1.SelectedIndices.Count > 0 Then
      69. DirectCast(ElementHost1.Child, System.Windows.Controls.FlowDocumentScrollViewer).Document =
      70. DirectCast(ListBox2.SelectedItem, AddonKategorie).Addons(ListView1.SelectedIndices(0)).Info
      71. Else
      72. DirectCast(ElementHost1.Child, System.Windows.Controls.FlowDocumentScrollViewer).Document = Nothing
      73. End If
      74. End Sub
      76. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      77. If ListView1.SelectedIndices.Count > 0 Then
      79. Dim link = DirectCast(ListBox2.SelectedItem, AddonKategorie).Addons(ListView1.SelectedIndices(0)).Link
      81. Dim sfd As New SaveFileDialog()
      82. sfd.AutoUpgradeEnabled = True
      83. sfd.FileName = link.Substring(link.LastIndexOf("/") + 1)
      84. sfd.Filter = "Alle Dateien|*.*"
      86. If sfd.ShowDialog() = Windows.Forms.DialogResult.OK Then
      87. Dim f As New DownloadFenster()
      89. AddHandler f.DownloadAbgebrochen, AddressOf DownloadAbgebrochen
      90. AddHandler f.DownloadFertig, AddressOf DownloadFertig
      92. f.Start(link, sfd.FileName)
      93. End If
      94. End If
      95. End Sub
      97. Public Sub DownloadAbgebrochen()
      98. MessageBox.Show("Download vom Benutzer abgebrochen!", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
      99. End Sub
      101. Public Sub DownloadFertig()
      102. MessageBox.Show("Download fertig!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
      103. End Sub
      105. Private Sub AufUpdatesPrüfenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AufUpdatesPrüfenToolStripMenuItem.Click
      106. MessageBox.Show("Funktion noch nicht verfügbar", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
      107. End Sub
      109. Private Sub InstallationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstallationToolStripMenuItem.Click
      110. Form4.Show(Me)
      111. Me.Hide()
      112. End Sub
      114. Private Sub KopierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopierenToolStripMenuItem.Click
      115. Kopierbereich.Show()
      116. Me.Hide()
      117. End Sub
      118. End Class


      Gruß Mike

    Facebook
    Telefonspende