Visual Basic Donwloader

PHP-Code:

If Not Form2.TextBox2.Text = "" Then
                    If My.Computer.FileSystem.FileExists(Form2.TextBox2.Text) Then
                        My.Computer.FileSystem.DeleteFile("pack/" + Form2.TextBox2.Text)
                    End If
                    My.Computer.Network.DownloadFile("****" + Form2.TextBox2.Text, Form2.TextBox2.Text)
                    My.Computer.FileSystem.MoveFile(Form2.TextBox2.Text, "pack\" + Form2.TextBox2.Text)
                    ProgressBar1.Value = 20
                End If

PHP-Code:

'  Sample call : DownLoadFileInBackground2 ("http:' www.contoso.com/logs/January.txt")
        Public Shared Sub DownLoadFileInBackground2(ByVal address As String)

            Dim client As WebClient = New WebClient()

            '  Specify that the DownloadFileCallback method gets called
            '  when the download completes.
            AddHandler client.DownloadFileCompleted, AddressOf DownloadFileCallback2
            '  Specify a progress notification handler.
            AddHandler client.DownloadProgressChanged, AddressOf DownloadProgressCallback
                        Dim uri as Uri = New Uri(address)
            client.DownloadFileAsync(uri, "serverdata.txt")
        End Sub

Private Shared Sub DownloadFileCallback2 (ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs)

//Hier die Methode um die Datei zu verschieben!

End Sub

Private Shared Sub DownloadProgressCallback(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)

    '  Displays the operation identifier, and the transfer progress.
    Console.WriteLine("0}    downloaded 1} of 2} bytes. 3} % complete...", _
     CStr(e.UserState), e.BytesReceived, e.TotalBytesToReceive, e.ProgressPercentage)
End Sub