Module Module1
 
    Private WithEvents w As New Net.WebClient
 
    Sub Main()
        Console.WriteLine("Download wird gestartet...")
        w.DownloadFileAsync(New Uri( _
          "http://www.vbarchiv.net/home/willkommen.php"), "C:\html.php")
        Console.WriteLine("Download läuft:")
        Console.ReadLine()
    End Sub
 
    Private Sub w_DownloadFileCompleted(ByVal sender As Object, ByVal e As _
      System.ComponentModel.AsyncCompletedEventArgs) Handles _
      w.DownloadFileCompleted
        Console.WriteLine("Download abgeschlossen!")
    End Sub
 
    Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
      System.Net.DownloadProgressChangedEventArgs) Handles _
      w.DownloadProgressChanged
        Console.WriteLine(e.ProgressPercentage.ToString & " % gedownloaded - " _
        & e.BytesReceived.ToString & " Bytes von " & _
        e.TotalBytesToReceive.ToString & " Bytes ")
    End Sub
 
End Module

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co