Multidownloader mit Progressbar

    • VB.NET

    Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von KaskadekingDE.

      Multidownloader mit Progressbar

      Guten Tag ,

      ich möchte euch nun zeigen wie ihr einen Multidownloader mit Progressbar erstellt.

      Ganz am anfang Importiert ihr folgendes :

      VB.NET-Quellcode

      1. Imports System.Net
      2. Imports System.IO


      Als nächstes Definieren wir erstmal alle Variablen :

      EDIT// Hier eine kleine änderung

      VB.NET-Quellcode

      1. Public Class Form1
      3. Withevents WebClient1 as New Net.WebClient ' Für das WebClient steuerelement mit Events z.b. DownloadProgressChanged...
      5. Dim sLine As String ' Für die Zeilen der Textdatei
      6. Dim oStream As IO.StreamReader ' Zum auslesen der Textdatei
      7. Dim gesendet As Integer ' Bytes die gesendet wurden
      8. Dim gesammt As Integer ' Bytes gesammt der Datei
      9. Dim titel As String = "Multidownloader " ' Fenstertitel


      So das Form_Load ereigniss :

      VB.NET-Quellcode

      1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      2. lblstatus.Text = "" ' Setzt den Status Text auf "" also nichts
      3. lblname.Visible = False ' Macht das lblname Label unsichtbar weil es nur für den Code gebraucht wird.
      4. Me.Text = titel & " © by ChRoNiK" ' Fenstertitel ändern
      6. bg.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
      7. End Sub


      Das haben wir dann schonmal als nächstes der Quelltext vom Backgroundworker :

      VB.NET-Quellcode

      1. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bg.DoWork
      3. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") Then ' Prüfen ob Datei vorhanden ist
      4. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") ' Wenn ja löschen
      5. End If
      7. My.Computer.Network.DownloadFile("http://g6d.g6.funpic.de/update.txt", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") 'Datei downloaden mit den Links
      9. Dim leser As String ' Eine neue Variable erstellen mit dem namen leser des Typs String
      10. leser = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\update.txt" 'Speichert den Pfad zur Datei in die Variable leser.
      11. Dim oFile As New IO.FileInfo(leser) ' Holt sich die Infos über die Datei !
      13. If oFile.Exists() = True Then ' Wenn die Datei "update.txt" existiert dann..
      14. oStream = New IO.StreamReader(leser) 'Datei zum lesen auswählen
      15. ' Datei zeilenweise auslese
      17. Do
      18. If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann
      19. ''''nichts machen
      20. Else ' Falls nicht
      21. sLine = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
      22. If IsNothing(sLine) Then MessageBox.Show("Keine weiteren Dateien zum Download verfügbar") ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen
      24. Dim uri As New Uri(sLine) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
      25. Dim dateiname As String = IO.Path.GetFileName(sLine) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
      26. lblname.Text = dateiname 'Dem Label "lblname" den Dateinamen als Text geben.
      27. WebClient1.DownloadFileAsync(uri, My.Computer.FileSystem.CurrentDirectory & "\" & dateiname) ' Den Download der Datei starten.
      28. End If
      29. Loop
      30. oStream.Close() 'wenn alles fertig lesen schließen
      31. End If
      32. End Sub


      So und was jetzt noch fehlt für die Progressbar :

      VB.NET-Quellcode

      1. Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
      2. gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
      3. gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
      4. lblstatus.Text = gesendet & " von " & gesammt & " empfangen. Dateiname : " & lblname.Text 'Status anzeigen
      5. Me.Text = titel & " " & e.ProgressPercentage & " % von " & lblname.Text 'Fenstertitel ändern
      6. ProgressBar1.Value = e.ProgressPercentage 'Progressbar füllen.
      7. End Sub


      Ich denke der Source ist fast selbstverständlich.

      Die Text datei muss so aussehen :

      VB.NET-Quellcode

      1. http://g6d.g6.funpic.de/Spirit.exe
      2. http://g6d.g6.funpic.de/serverinfo.rar
      3. http://g6d.g6.funpic.de/Setup ChRoNiK Player.rar


      In jeder Zeile ein Downloadlink.

      Verbesserungs Vorschläge gern gesehen. ;)

      Mfg

      ChRoNiK

      edit by nicgenie://
      Rot ist für Mods
      Grüße , xChRoNiKx

      Nützliche Links:
      Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „nicgenie“ () aus folgendem Grund: Code verbesserung ;)

      Hey ich habe 3 Probleme kannste du mir helfen

      Quellcode

      1. Fehler 1 Der Name "WebClient1" wurde nicht deklariert. C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher V.1.0\Cod 6 Launcher V.1.0\Form3.vb 30 20 Cod 6 Launcher V.1.0
      2. Fehler 2 Der Name "WebClient1" wurde nicht deklariert. C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher V.1.0\Cod 6 Launcher V.1.0\Form3.vb 39 21 Cod 6 Launcher V.1.0
      3. Fehler 3 Das Ereignis "DownloadProgressChanged" wurde nicht gefunden. C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher V.1.0\Cod 6 Launcher V.1.0\Form3.vb 49 153 Cod 6 Launcher V.1.0

      cem123 schrieb:

      Hey ich habe 3 Probleme kannste du mir helfen

      Quellcode

      1. Fehler 1 Der Name "WebClient1" wurde nicht deklariert. C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher V.1.0\Cod 6 Launcher V.1.0\Form3.vb 30 20 Cod 6 Launcher V.1.0
      2. Fehler 2 Der Name "WebClient1" wurde nicht deklariert. C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher V.1.0\Cod 6 Launcher V.1.0\Form3.vb 39 21 Cod 6 Launcher V.1.0
      3. Fehler 3 Das Ereignis "DownloadProgressChanged" wurde nicht gefunden. C:\Users\Cem\Documents\Visual Studio 2008\Projects\Cod 6 Launcher V.1.0\Cod 6 Launcher V.1.0\Form3.vb 49 153 Cod 6 Launcher V.1.0
      Ganz oben am anfang des Codes :

      Withevents WebClient1 as New Net.Webclient.

      Mfg
      Grüße , xChRoNiKx

      Nützliche Links:
      Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

      Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement lblStatus erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.

      Hab's selbst hinbekomm:

      Delegate Sub setintcallback(ByVal [int] As Integer)

      Private Sub setinteger(ByVal [int] As Integer)

      If ProgressBarX1.InvokeRequired Then
      Dim d As New setintcallback(AddressOf setinteger)
      Me.Invoke(d, New Object() {[int]})
      Else
      ProgressBarX1.Value = [int]
      End If
      End Sub

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

      Hallo!

      Wollte auch gerade den Downloader ausprobieren, habe aber leider nach dem Start folgende Fehlermeldung bekommen:

      Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement lblName erfolgt von einem anderen Thread als dem Thread, für den erstellt wurde.

      Hier vielleicht eine Idee? Die Sub von Hawk1337 hatte leider auch nicht geholfen... :(


      Mein VB-Code dazu:

      VB.NET-Quellcode

      1. Imports System.Net
      2. Imports System.IO
      4. Public Class frmMain
      6. WithEvents WebClient1 As New Net.WebClient ' Für das WebClient steuerelement mit Events z.b. DownloadProgressChanged...
      8. Dim ProgrammPfad As String = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
      9. Dim sLine As String ' Für die Zeilen der Textdatei
      10. Dim oStream As IO.StreamReader ' Zum auslesen der Textdatei
      11. Dim gesendet As Integer ' Bytes die gesendet wurden
      12. Dim gesammt As Integer ' Bytes gesammt der Datei
      14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      15. lblStatus.Text = "" ' Setzt den Status Text auf "" also nichts
      16. lblName.Text = "" ' Setzt den Name Text auf "" also nichts
      17. 'lblName.Visible = False ' Macht das lblname Label unsichtbar weil es nur für den Code gebraucht wird.
      19. 'bgwrkDownload.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
      20. End Sub
      22. Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
      23. bgwrkDownload.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
      24. End Sub
      26. Private Sub bgwrkDownload_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwrkDownload.DoWork
      27. Try
      28. If My.Computer.FileSystem.FileExists(ProgrammPfad & "\update.txt") Then ' Prüfen ob Datei vorhanden ist
      29. My.Computer.FileSystem.DeleteFile(ProgrammPfad & "\update.txt") ' Wenn ja löschen
      30. End If
      32. My.Computer.Network.DownloadFile("http://www.rofl.de/update.txt", ProgrammPfad & "\update.txt") 'Datei downloaden mit den Links
      34. Dim leser As String = ProgrammPfad & "\update.txt" 'Speichert den Pfad zur Datei in die Variable leser.
      35. Dim oFile As New IO.FileInfo(leser) ' Holt sich die Infos über die Datei !
      37. If oFile.Exists() = True Then ' Wenn die Datei "update.txt" existiert dann..
      38. oStream = New IO.StreamReader(leser) 'Datei zum lesen auswählen
      39. ' Datei zeilenweise auslese
      40. Do
      41. If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann
      42. ' nichts machen
      43. Else ' Falls nicht
      44. sLine = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
      45. If IsNothing(sLine) Then MsgBox("Keine weiteren Dateien zum Download verfügbar") ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen
      47. Dim uri As New Uri(sLine) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
      48. Dim dateiname As String = IO.Path.GetFileName(sLine) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
      49. lblName.Text = dateiname 'Dem Label "lblname" den Dateinamen als Text geben.
      50. WebClient1.DownloadFileAsync(uri, ProgrammPfad & "\new_" & dateiname) ' Den Download der Datei starten.
      51. End If
      52. Loop
      53. oStream.Close() 'wenn alles fertig lesen schließen
      54. End If
      55. Catch ex As Exception
      56. MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "FEHLER!!!")
      57. End Try
      58. End Sub
      60. Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
      61. Try
      62. gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
      63. gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
      64. lblStatus.Text = gesendet & " von " & gesammt & " empfangen. Dateiname : " & lblName.Text 'Status anzeigen
      65. prgbarDownload.Value = e.ProgressPercentage 'Progressbar füllen.
      66. Catch ex As Exception
      67. MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "FEHLER!!!")
      68. End Try
      69. End Sub
      71. End Class

      VB.NET-Quellcode

      1. Delegate Sub settextcallback(ByVal [text] As string)
      3. Private Sub settext(ByVal [text] As string)
      5. If lblstatus.InvokeRequired Then
      6. Dim d As New settextcallback(AddressOf settext)
      7. Me.Invoke(d, New Object() {[text]})
      8. Else
      9. lblstatus.Text = [text]
      10. End If
      11. End Sub

      Ok, Danke Hawk1337, jetzt gehts. Bedingt durch die Hitze war ich zu blöd die Sub korrekt einzubinden :)


      Als Ergänzung an den TS hätte ich aber noch folgenden Verbesserungsvorschlag:

      VB.NET-Quellcode

      1. ... = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
      2. If IsNothing(sLine) Then
      3. MsgBox("Keine weiteren Dateien zum Download verfügbar!" & "Bitte warten Sie, bis der Download abgeschlossen ist!", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly) ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen
      4. Exit Do ' Schleifen beenden, da da keine weiteren Dateien zum Download zur Verfügung stehen
      5. End If
      7. Dim uri As New...


      Weil ohne das "Exit Do" kommt eine Fehlermeldung, dass URI nicht gleich leer sein darf!

      so sieht mein ganzer Code von der Form aus:

      VB.NET-Quellcode

      1. Imports System.Net
      2. Imports System.IO
      4. Public Class updater
      5. WithEvents WebClient1 As New Net.WebClient ' Für das WebClient steuerelement mit Events z.b. DownloadProgressChanged...
      7. Dim sLine As String ' Für die Zeilen der Textdatei
      8. Dim oStream As IO.StreamReader ' Zum auslesen der Textdatei
      9. Dim gesendet As Integer ' Bytes die gesendet wurden
      10. Dim gesammt As Integer ' Bytes gesammt der Datei
      11. Dim titel As String = "Multidownloader " ' Fenstertitel
      12. Private Sub updater_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
      13. lblstatus.Text = "" ' Setzt den Status Text auf "" also nichts
      14. lblname.Visible = False ' Macht das lblname Label unsichtbar weil es nur für den Code gebraucht wird.
      15. Me.Text = titel ' Fenstertitel ändern
      17. downloadBackgroundWorker.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
      19. End Sub
      21. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles downloadBackgroundWorker.DoWork
      22. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") Then ' Prüfen ob Datei vorhanden ist
      23. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") ' Wenn ja löschen
      24. End If
      26. My.Computer.Network.DownloadFile("http://link.de/update.txt", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\update.txt") 'Datei downloaden mit den Links
      28. Dim leser As String ' Eine neue Variable erstellen mit dem namen leser des Typs String
      29. leser = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\update.txt" 'Speichert den Pfad zur Datei in die Variable leser.
      30. Dim oFile As New IO.FileInfo(leser) ' Holt sich die Infos über die Datei !
      32. If oFile.Exists() = True Then ' Wenn die Datei "update.txt" existiert dann..
      33. oStream = New IO.StreamReader(leser) 'Datei zum lesen auswählen
      34. ' Datei zeilenweise auslese
      36. Do
      37. If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann
      38. ''''nichts machen
      39. Else ' Falls nicht
      40. sLine = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
      41. If IsNothing(sLine) Then MessageBox.Show("Keine weiteren Dateien zum Download verfügbar") ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen
      43. Dim uri As New Uri(sLine) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
      44. Dim dateiname As String = IO.Path.GetFileName(sLine) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
      45. lblname.Text = dateiname 'Dem Label "lblname" den Dateinamen als Text geben.
      46. WebClient1.DownloadFileAsync(uri, My.Computer.FileSystem.CurrentDirectory & "\" & dateiname) ' Den Download der Datei starten.
      47. End If
      48. Loop
      49. oStream.Close() 'wenn alles fertig lesen schließen
      50. End If
      52. End Sub
      54. Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
      55. gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
      56. gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
      57. lblstatus.Text = gesendet & " von " & gesammt & " empfangen. Dateiname : " & lblname.Text 'Status anzeigen
      58. Me.Text = titel & " " & e.ProgressPercentage & " % von " & lblname.Text 'Fenstertitel ändern
      59. ProgressBar1.Value = e.ProgressPercentage 'Progressbar füllen.
      60. End Sub
      62. Private Sub updater_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      64. End Sub
      66. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      67. downloadBackgroundWorker.CancelAsync()
      68. Me.Close()
      69. End Sub
      70. End Class

      aligator schrieb:

      ich würd sagen im load-event


      dan kommt dieser Fehler:

      Fehler 1 "CheckForIllegalCrossThreads" ist kein Member von "System.Windows.Forms.Control".


      EDIT:

      Habs jetzt in einer einzell Anwendung gemacht und jetzt geht es.

      Ist ein Super Tutorial und hat mir sehr geholfen.

      danke

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „pc-freack“ ()

      du könntest eine Boolean-Variable nehmen und wenn diese auf True ist eine Endlos-Schleife laufen lassen, damit es nicht weitergeht:

      VB.NET-Quellcode

      1. 'Pseudo:
      2. Pause = Falsch
      4. Download Start
      5. While Pause : While End
      6. ' sth. to download
      7. Download End

      darf der link in der textdatei Leerzeichen enthalten?

      Weil wenn ich den Downloader Starte, kommt diese Fehlermeldung:

      VB.NET-Quellcode

      1. Fehler: Illegales Zeichen im Pfad


      ich hoffe, ihr könnt mir weiter helfen.
      Wenn es keine Leerzeichen geben darf, mit welche Zeichen muss ich sie dan ersetzen?

    Facebook
    Telefonspende