Imports System.Net.NetworkInformation
Public Class Form1
Public WithEvents dl As New WebClient
Dim BytesAlreadySent As Single
Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
Dim sv As New SaveFileDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
sv.FileName = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)
If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
dl = New WebClient
dl.DownloadFileAsync(New Uri(TextBox1.Text), sv.FileName)
End If
End If
End Sub
Private Sub dl_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles dl.DownloadFileCompleted
MsgBox("Download SUCCESS!")
TextBox1.Text = ""
ProgressBar1.Value = 0
End Sub
Private Sub dl_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles dl.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
If e.TotalBytesToReceive > 1000 Then
Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000) - (e.BytesReceived / 1000000), 2) & " MB / " & 100 - e.ProgressPercentage & " %"
Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000, 2) & " MB"
ElseIf e.TotalBytesToReceive > 1000000 Then
Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000000) - (e.BytesReceived / 1000000000), 2) & " GB / " & 100 - e.ProgressPercentage & " %"
Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000000, 2) & " GB"
ElseIf e.TotalBytesToReceive > 1000000000 Then
MsgBox("File Too Large")
End If
If e.BytesReceived > 1000 Then
Label4.Text = FormatNumber(e.BytesReceived / 1000000, 2) & " MB / "
ElseIf e.BytesReceived > 1000000 Then
Label4.Text = FormatNumber(e.BytesReceived / 1000000000, 2) & " GB / "
End If
If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
Label9.Text = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)
End If
Label6.Text = e.ProgressPercentage & "%"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & My.Computer.Clipboard.GetText
End Sub
End Class
Atau download programnya disini
