' If you Use this Please Give me Credit
' GoD Toxic / safe0495
Public Class Form1
Dim wc As System.Net.WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Starts Download
wc = New System.Net.WebClient()
AddHandler wc.DownloadProgressChanged, AddressOf OnDownloadProgressChanged
AddHandler wc.DownloadFileCompleted, AddressOf OnFileDownloadCompleted
wc.DownloadFileAsync(New Uri("http://downloads.sourceforge.net/project/opentibia/opentibia%20server/otserv%200.6.2/otserv_0.6.2.zip"), "otserv.zip") 'Can be changed to be read from Combobox as you did in your previous program
' Use in format: ("Download Link"), "saveas name")
' I Think You Can Figure out the rest
ToolStripStatusLabel1.Text = "Downloading"
End Sub
Private Sub OnDownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) ' Progressbar script
Dim totalSize As Long = e.TotalBytesToReceive
Dim downloadedBytes As Long = e.BytesReceived
Dim percentage As Integer = e.ProgressPercentage
ToolStripProgressBar1.Value = percentage
ToolStripStatusLabel3.Text = downloadedBytes
ToolStripStatusLabel6.Text = totalSize
End Sub
Private Sub OnFileDownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
If e.Cancelled Then
ToolStripStatusLabel1.Text = "Cancelled" ' Cancelled Message/actions(can be easily changed)
ElseIf Not e.Error Is Nothing Then
ToolStripStatusLabel1.Text = "ERROR"
Else
ToolStripStatusLabel1.Text = "Done"
ToolStripProgressBar1.Value = "0"
ToolStripStatusLabel3.Text = "0"
ToolStripStatusLabel6.Text = "0"
MsgBox("Done!", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
wc.CancelAsync() 'Cancels Download
End Sub
End Class
