下载文件函数

     ' 函数名  :DownFile  
     ' 函数功能:下载文件
     ' 传入参数:URL网络文件地址，FileName:文件路径，Prog：进度条对象
     ' 返回值  :无
     ' 制作人  :zzz
     ' 制作日期:2007-04-10
     ' 说  明  :
     Public   Sub DownFile() Sub DownFile(ByVal URL As String, ByVal Filename As String, ByRef Prog As ProgressBar)
        Dim Myrq As HttpWebRequest = HttpWebRequest.Create(URL)
        Dim myrp As HttpWebResponse = Myrq.GetResponse
        Dim totalBytes As Long = myrp.ContentLength
        Prog.Maximum = totalBytes
        Dim st As Stream = myrp.GetResponseStream
        Dim so As Stream = New FileStream(Filename, FileMode.Create)
        Dim totalDownloadedByte As Long = 0
        Dim by(1024) As Byte
        Dim osize As Integer = st.Read(by, 0, by.Length)
        While osize > 0
            totalDownloadedByte = osize + totalDownloadedByte
            Application.DoEvents()
            so.Write(by, 0, osize)
            Prog.Value = totalDownloadedByte
            osize = st.Read(by, 0, by.LongLength)
        End While
        so.Close()
        st.Close()
    End Sub