Webclient hilfe

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Webclient hilfe

    Hi ich hab hier den folgenen code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public WithEvents wb As New System.Net.WebClient
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted
    9. End Sub
    11. Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged
    12. ProgressBar1.Value = e.ProgressPercentage
    13. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. wb.DownloadFileAsync(New Uri("http://dl.cdn.chip.de/downloads/98766/VirtualPC2007Sp1.exe?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe"), Application.StartupPath & "\Virtual PC 2007.exe")
    17. ListBox1.Items.Add("Virtual PC 2007.exe")
    18. If ProgressBar1.Value = ProgressBar1.Maximum Then
    19. ProgressBar1.Value = 0
    20. wb.DownloadFileAsync(New Uri("http://dl.cdn.chip.de/downloads/98766/VirtualPC2007Sp1.exe?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe"), Application.StartupPath & "\Virtual PC 2008.exe")
    21. ListBox1.Items.Add("Virtual PC 2008.exe")
    22. End If
    23. End Sub
    24. End Class


    wie kann ich machen das wenn

    VB.NET-Quellcode

    1. wb.DownloadFileAsync(New Uri("http://dl.cdn.chip.de/downloads/98766/VirtualPC2007Sp1.exe?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe"), Application.StartupPath & "\Virtual PC 2007.exe")
    2. ListBox1.Items.Add("Virtual PC 2007.exe")


    fertig ist das sofort die progressbar auf value 0 spring und sofort mit

    VB.NET-Quellcode

    1. wb.DownloadFileAsync(New Uri("http://dl.cdn.chip.de/downloads/98766/VirtualPC2007Sp1.exe?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe"), Application.StartupPath & "\Virtual PC 2008.exe")
    2. ListBox1.Items.Add("Virtual PC 2008.exe")


    anfängt?? ?(

    Passt zwar nicht zum Thema, aber der Download wird mMn nicht hinhauen. Denn CHIP arbeitet bei jedem Download mit einer Art Zeitstempel, der läuft nach einer Zeit ab und über die URL ist die Datei nicht mehr erreichbar. Ich meine das hier:
    ?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Meine Idee wären jetzt zwei webclients festzulegen und die Progessbar eben in deren ProgressChanged bzw. DownloadFinished-Events zu kontrollieren.

    Und ich hatte schon desöfteren Fehler beim runterladen einer Datei von Chip, weil eben jener Zeitstempel ungültig war. Na gut.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    geht doch :P

    lösung:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public WithEvents wb As New System.Net.WebClient
    3. Public WithEvents wb2 As New System.Net.WebClient
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    8. Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted
    9. ProgressBar1.Value = 0
    10. wb2.DownloadFileAsync(New Uri("http://dl.cdn.chip.de/downloads/98766/VirtualPC2007Sp1.exe?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe"), Application.StartupPath & "\Virtual PC 2008.exe")
    11. ListBox1.Items.Add("Virtual PC 2008.exe")
    12. End Sub
    14. Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged
    15. ProgressBar1.Value = e.ProgressPercentage
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. wb.DownloadFileAsync(New Uri("http://dl.cdn.chip.de/downloads/98766/VirtualPC2007Sp1.exe?1310150989-1310158489-38f36b-B-606938c1d265eeafc7cabb11d1fc6276.exe"), Application.StartupPath & "\Virtual PC 2007.exe")
    20. ListBox1.Items.Add("Virtual PC 2007.exe")
    21. End Sub
    23. Private Sub wb2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb2.DownloadProgressChanged
    24. ProgressBar1.Value = e.ProgressPercentage
    25. End Sub
    26. End Class

    somit macht er jetzt das wass ich wollte :)
    thread erledigt :)

    Dann benutze auch bitte den dafür vorgesehenen, formschönen Button :)
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

Facebook
Telefonspende