
Imports System.Net
Public Class Form1
Private WithEvents httpclient As WebClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim save As New SaveFileDialog
save.Title = ("Downloader")
save.ShowDialog()
TextBox2.Text = save.FileName
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
httpclient = New WebClient
Dim sourceURL = TextBox1.Text
Dim Filedir = TextBox2.Text
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Try
httpclient.DownloadFileAsync(New Uri(sourceURL), (Filedir))
Catch ex As Exception
MsgBox("Failed" + ErrorToString(), MsgBoxStyle.Critical)
End Try
End Sub
Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
If ProgressBar1.Value = 100 Then
MsgBox("Download Complete!", MsgBoxStyle.OkOnly, "Dune")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class