|
Imports System.Net
Public Class Form1
Dim WithEvents wc As New WebClient
Dim sw As New Stopwatch
Dim zm As Integer = 0
Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
sw.Stop()
Label1.Text = Math.Round((e.BytesReceived - zm) / 1024 / (sw.ElapsedMilliseconds / 1000)) & " KB/s"
ProgressBar1.Value = e.ProgressPercentageProgressBar setzen
zm = e.BytesReceived
sw.Restart()
End Sub
Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
sw.Stop()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sw.Start()
wc.DownloadFileAsync(New Uri("Adresse"), "Pfad")
End Sub
End Class
|