Multidownloader mit Progressbar

    • VB.NET

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

      Ersetze Leerzeichen mit einem "_" (untenstrich) aber eigentlich dürfte es keine Probleme geben... ansonsten schau das dein Programm den DL Link automatisch nach leerzeichen sucht und diese durch "%20" ersetzt.

      Mfg
      Grüße , xChRoNiKx

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

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

      bei mir kommt noch das hier



      Fehler 2 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Cem\documents\visual studio 2010\Projects\XXX\XXX\Form10.vb 22 131 XXX

      Fehler 3 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Cem\documents\visual studio 2010\Projects\XXX\XXX\Form10.vb 63 99 XXX

      Fehler 1 "downloadBackgroundWorker" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Cem\documents\visual studio 2010\Projects\XXX\XXX\Form10.vb 18 9 XXX

      Fehler 4 "downloadBackgroundWorker" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Cem\documents\visual studio 2010\Projects\XXX\XXX\Form10.vb 64 9 XXX

      1. und 2. : du musst zu der Prozedur mit der Handles-Klausel die dazu gehörige Variable mit WithEvents Spezifizierung definieren
      3. und 4. : definiere "downloadBackgroundWorker" als BackgroundWorker (vermtl. als WithEvents)

      Hi, ich versuche vergebend das script zum laufen zu bekommen
      da ich nicht wirklich viel Ahnung vom programmieren hab hab ich dwesshalb teilweise starke verständnisschwierigkeiten

      habe
      folgendes Problem für die darauf folgenden 4 Zeilen, wenn ich diese
      auskommentiere geht der rest einwandfrei ist aber nicht die Lösung :)
      :
      Ungültiger threadübergreifender Vorgang: Der Zugriff auf das
      Steuerelement lblname erfolgte von einem anderen Thread als dem Thread,
      für den es erstellt wurde.

      VB.NET-Quellcode

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


      Ich hoffe mir kann da wer helfen, versuche schon seit wochen so einen multidownloader zu machen hab auch schon eines geschafft gehabt aber das blockierte bei größeren dateien immer sodass der abbrech button immer 2x gedrückt werden musste.
      Dieses Script hier finde ich da schon etwas besser :) wenn dieses genannte Problem nicht wäre ^^

      bb Dainara

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

      KaskadekingDE on GitHub :)
      Bitte keine Fragen über Programmierung per PN! Dafür ist das Forum hier.

      Who cares? ¯\_(ツ)_/¯

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

      Hallo, danke für den Link, dort war ich schon hab auch schon krampfhaft versucht das irgendwie einzubauen aber ich schaffe es nicht, deshalb hab ich hier gepostet in der Hoffnung dass mir da jemand bisschen unter die arme greifen kann, ich weis dass copy past system ist schlecht weil man da nicht viel dabei lernt, nur brauch ich dieses script und kenne niemanden der mir das machen kann, so versuche ich mich halt selbst daran ohne Grundkenntnisse und in dem kleinen tool ist alles soweit fertig bis auf dieser Multidownloader und ich komme nicht weiter :(
      Ob das nun sicher ist oder nicht steht in diesem zusammenhang erstmal nicht zur debatte. Mir ist bewusst dass es ganz und garnicht sicher ist.

      habs erstmal versucht mit einem zum laufen zu bekommen darum hab ich den rest auskommentiert
      hab 2 Varianten davon versucht einzubauen, das problem ist dass ich dann keine Anzeige habe, weil ich nicht weis wie ich die Informationen zu HIER HER hin bekomme

      VB.NET-Quellcode

      1. Private Sub ThreadProcSafe()
      2. Me.SetText("HIER HER")
      3. 'Me.SetInteger()
      4. End Sub


      hier nochmal das script
      die update2.txt beinhaltet die endnamen wie die dateien heissen sollen das funktiniert auchsoweit erstmal nur hab ich eben keine anzeige was gemacht wird und wie weit es ist

      VB.NET-Quellcode

      1. Imports System.Net
      2. Imports System.IO
      3. Imports System.ComponentModel
      4. Imports System.Threading
      5. Imports System.Drawing
      6. Public Class updater1
      7. WithEvents WebClient1 As New Net.WebClient ' Für das WebClient steuerelement mit Events z.b. DownloadProgressChanged...
      8. Dim sLine As String ' Für die Zeilen der Textdatei
      9. Dim sLine2 As String ' Für die Zeilen der Textdatei
      10. Dim oStream As IO.StreamReader ' Zum auslesen der Textdatei
      11. Dim oStream2 As IO.StreamReader ' Zum auslesen der Textdatei
      12. Dim gesendet As Integer ' Bytes die gesendet wurden
      13. Dim gesammt As Integer ' Bytes gesammt der Datei
      14. Dim titel As String = "Multidownloader " ' Fenstertitel
      15. 'Private WithEvents setTextSafeBtn As Button
      16. Delegate Sub SetTextCallback(ByVal [text] As String)
      17. Delegate Sub SetIntCallback(ByVal [int] As Integer)
      19. Private demoThread As Thread = Nothing
      20. Private Sub setTextSafeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles setTextSafeBtn.Click
      22. Me.demoThread = New Thread(New ThreadStart(AddressOf Me.ThreadProcSafe))
      24. Me.demoThread.Start()
      25. End Sub
      27. Private Sub ThreadProcSafe()
      28. Me.SetText("test")
      29. End Sub
      30. Private Sub SetText(ByVal [text] As String)
      32. If Me.lblname.InvokeRequired Then
      33. Dim d As New SetTextCallback(AddressOf SetText)
      34. Me.Invoke(d, New Object() {[text]})
      35. Me.lblname.Text = [text]
      36. Else
      37. Me.lblname.Text = [text]
      38. End If
      39. End Sub
      40. Private Sub updater_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updater.Click
      41. Me.demoThread = New Thread(New ThreadStart(AddressOf Me.ThreadProcSafe))
      43. Me.demoThread.Start()
      45. lblstatus.Text = "" ' Setzt den Status Text auf "" also nichts
      46. lblname.Visible = False ' Macht das lblname Label unsichtbar weil es nur für den Code gebraucht wird.
      47. Me.Text = titel ' Fenstertitel ändern
      48. downloadBackgroundWorker.RunWorkerAsync() ' Backgroundworker starten der die Dateien in einem anderem Thread downloadet um einfrieren des Programms zu verhindern während des Downloads
      49. End Sub
      50. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles downloadBackgroundWorker.DoWork
      51. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cw\update.txt") Then ' Prüfen ob Datei vorhanden ist
      52. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cw\update.txt") ' Wenn ja löschen
      53. End If
      54. If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cw\update2.txt") Then ' Prüfen ob Datei vorhanden ist
      55. My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cw\update2.txt") ' Wenn ja löschen
      56. End If
      57. My.Computer.Network.DownloadFile("http://HPLINK/update.txt", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cw\update.txt") 'Datei downloaden mit den Links
      58. My.Computer.Network.DownloadFile("http://HPLINK/update2.txt", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cw\update2.txt") 'Datei downloaden mit den Links
      59. Dim leser As String ' Eine neue Variable erstellen mit dem namen leser des Typs String
      60. leser = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\cw\update.txt" 'Speichert den Pfad zur Datei in die Variable leser.
      61. Dim oFile As New IO.FileInfo(leser) ' Holt sich die Infos über die Datei !
      62. Dim leser2 As String ' Eine neue Variable erstellen mit dem namen leser des Typs String
      63. leser2 = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\cw\update2.txt" 'Speichert den Pfad zur Datei in die Variable leser2.
      64. Dim oFile2 As New IO.FileInfo(leser2) ' Holt sich die Infos über die Datei !
      65. If oFile.Exists() = True Then ' Wenn die Datei "update.txt" existiert dann..
      66. oStream = New IO.StreamReader(leser) 'Datei zum lesen auswählen
      67. oStream2 = New IO.StreamReader(leser2) 'Datei zum lesen auswählen
      68. ' Datei zeilenweise auslese
      69. Do
      70. If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann
      71. ''''nichts machen
      72. Else ' Falls nicht
      73. sLine = oStream.ReadLine() 'Nächste Zeile der Textdatei lesen
      74. sLine2 = oStream2.ReadLine() 'Nächste Zeile der Textdatei lesen
      75. If IsNothing(sLine) Then
      76. MessageBox.Show("Keine weiteren Dateien zum Download verfügbar") ' Wenn die Zeile Leer ist dann Messagebox zur Info anzeigen
      77. Exit Do ' Schleifen beenden, da da keine weiteren Dateien zum Download zur Verfügung stehen
      78. End If
      79. Dim uri As New Uri(sLine) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
      80. Dim dateiname As String = IO.Path.GetFileName(sLine) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
      81. Dim dateiname2 As String = IO.Path.GetFileName(sLine2) 'Den dateinamen holen von der Datei die gedownloadet werden soll.
      83. If Me.lblname.InvokeRequired Then
      84. Dim d As New SetTextCallback(AddressOf SetText)
      85. Me.Invoke(d, New Object() {[Text]})
      86. Else
      87. Me.lblname.Text = [Text]
      88. 'Me.lblname.Text = dateiname2 'Dem Label "lblname" den Dateinamen als Text geben.
      89. End If
      90. If File.Exists(My.Computer.FileSystem.CurrentDirectory & "\cw\" & dateiname2) = False Then
      91. WebClient1.DownloadFileAsync(uri, My.Computer.FileSystem.CurrentDirectory & "\cw\" & dateiname2) ' Den Download der Datei starten.
      92. Else
      93. 'MessageBox.Show("Datei war schon vorhanden")
      94. End If
      95. ' WebClient1.DownloadFileAsync(uri, My.Computer.FileSystem.CurrentDirectory & "\" & dateiname) ' Den Download der Datei starten.
      96. End If
      97. Loop
      98. oStream.Close() 'wenn alles fertig lesen schließen
      99. oStream2.Close() 'wenn alles fertig lesen schließen
      100. End If
      101. End Sub
      102. Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
      103. gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
      104. gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
      106. 'lblstatus.Text = gesendet & " von " & gesammt & " empfangen. Dateiname : " & lblname.Text 'Status anzeigen
      107. 'Me.Text = titel & " " & e.ProgressPercentage & " % von " & lblname.Text 'Fenstertitel ändern
      108. 'ProgressBar1.Value = e.ProgressPercentage 'Progressbar füllen.
      109. End Sub
      110. Private Sub updater_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      111. End Sub
      112. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      113. downloadBackgroundWorker.WorkerSupportsCancellation() = True
      114. downloadBackgroundWorker.CancelAsync()
      115. Me.Close()
      116. End Sub
      117. End Class

      Hast du den ersten Link von mir gelesen? Denn das sieht stark nach einen Updater aus.

      Richtig müsste die Sub außerdem so aussehen:

      VB.NET-Quellcode

      1. Private Sub SetText(ByVal [text] As String)
      2. If Me.lblname.InvokeRequired Then
      3. Dim d As New SetTextCallback(AddressOf SetText)
      4. Me.Invoke(d, New Object() {[text]})
      5. Else
      6. Me.lblname.Text = [text]
      7. End If
      8. End Sub


      Dann rufst du in BackgroundWorker1_DoWork die Sub so auf:

      VB.NET-Quellcode

      1. Me.SetText("LabelText")
      KaskadekingDE on GitHub :)
      Bitte keine Fragen über Programmierung per PN! Dafür ist das Forum hier.

      Who cares? ¯\_(ツ)_/¯