VB.NET
| <!--StartFragment--> Public Shared Sub DownFile(ByVal URL As String, ByVal Filename As String, ByVal 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 |
| public static void DownFile( string URL, string Filename, ProgressBar Prog ) { System.Net.HttpWebRequest Myrq = (System.Net.HttpWebRequest)System.Net.HttpWebRequest.Create(URL); System.Net.HttpWebResponse myrp = (System.Net.HttpWebResponse)Myrq.GetResponse(); long totalBytes = myrp.ContentLength; Prog.Maximum = (int)totalBytes; System.IO.Stream st = myrp.GetResponseStream(); System.IO.Stream so = new System.IO.FileStream(Filename, System.IO.FileMode.Create); long totalDownloadedByte = 0; byte[] by = new byte[1024]; int osize = st.Read(by, 0, (int)by.Length); while (osize > 0) { totalDownloadedByte = osize + totalDownloadedByte; Application.DoEvents(); so.Write(by, 0, osize); Prog.Value = (int)totalDownloadedByte; osize = st.Read(by, 0, (int)by.Length); } so.Close(); st.Close(); } |
