[VB10] Downloader Source Code falsch. Hilfe

[ArcticShoot]

Hallo

Ich wollte mir einen Downloader erstellen und als ich nun endlich fertig war kam diese Fehlermeldung Ungültiger URI: Der URI ist leer.

Hier ist die Source von dieser Fehlermeldung:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        download = New WebClient
        downloader.DownloadFileAsync(New Uri(TextBox1.Text), (TextBox2.Text))


        Me.Button1.Enabled = False
    End Sub

Was bedeutet das ?

[Kraizy​]

Was steht denn in TextBox1?

[ArcticShoot]

Hab Textboxen noch nicht. ^^

Hier nochmal der ganze Code

Imports System.Net

Public Class Form1

    Public WithEvents downloader As WebClient

    Private Property download As WebClient

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Speichern = New FolderBrowserDialog
        Speichern.ShowDialog()
        Me.TextBox2.Text = Speichern.SelectedPath
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        download = New WebClient
        downloader.DownloadFileAsync(New Uri(TextBox1.Text), (TextBox2.Text))


        Me.Button1.Enabled = False
    End Sub

    Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
        MsgBox("Der Download ist beendet!", MsgBoxStyle.Information, "Beendet")
        Me.ProgressBar1.Value = 0
        Me.Label3.Text = "0 von 0 Bytes"
        Me.Label4.Text = "0%"
        Me.Button1.Enabled = True
    End Sub

    Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
        Me.Label3.Text = e.BytesReceived & "von" & e.TotalBytesToReceive & "Bytes"
        Me.Label4.Text = e.ProgressPercentage & "%"
    End Sub
End Class

[Kraizy​]

Wie benutzt du dann "TextBox1.Text", wenn du angeblich noch keine TextBoxen hast..?
Und wieso hast du 1x download und 1x downloader? Räum mal deinen Code etwas auf...

PHP Code:

Private WithEvents downloader As New WebClient

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   downloader.DownloadFileAsync(New Uri("http://www.bla.de/bla.exe"), "pfad.exe")
End Sub

Private Sub ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
   Debug.Print(CStr(e.ProgressPercentage))
End Sub

Private Sub DownloadComplete(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
   MsgBox("fertig")
End Sub 


[airsonic]

vielleicht hat er den Code irgendwo gefunden

[ArcticShoot]

Ne hab den Code nirgendwo gefunden

Hat sich geklärt!