VB.NET下载程序实现代码怎么编写

Public Shared fpath As String  Dim fsize As Long  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  Try  If Me.TextBox1.Text = "http://" Then  MessageBox.Show("请输入正确的URL!")  Return  End If  Dim urld As String  Dim i As Integer  Dim dfile As New WebClient  Me.SaveFileDialog1.ShowDialog()  fpath = SaveFileDialog1.FileName  Label3.Text = "文件保存在:" & fpath  urld = Me.TextBox1.Text  Me.Timer1.Enabled = True dfile.DownloadFile(urld, fpath.Substring(Me.TextBox1.Text.ToString.LastIndexOf("."), 4))  Me.Timer1.Enabled = False Catch ex As Exception  MessageBox.Show(ex.Message)  Return  Application.Exit()  End Try  End Sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  Dim th3 As New th2  Dim tt As New System.Threading.Thread(AddressOf th3.timeth) '实例化线程类   tt.Start() '启动线程   Label2.Text = th3.downk '显示下载文件的大小   '进行计算下载速度   Static k As Integer  Dim p, downspeed  p = k k = p + 1  p = k Dim form As New DownLoad  Dim fileinfo As New System.IO.FileInfo(form.fpath)  downspeed = fileinfo.Length()  downspeeddownspeed = downspeed / p  Label4.Text = "当前下载速度是" & downspeed & "k/m"  End Sub  End Class  Public Class th2  Public Shared downk As String  Dim form As New DownLoad  Dim fileinfo As New System.IO.FileInfo(form.fpath)  Dim fsize As Long  Public Sub timeth()  If fileinfo.Exists = True Then  fsize = fileinfo.Length()  downk = "以下载文件" & fsize & "k"  End If  End Sub  End Class