下载

来源:互联网 发布:刮骨疗毒 知乎 编辑:程序博客网 时间:2024/03/29 20:40
Imports System.IO Imports System.Net Imports System.Text Class WebRetrieve Public Shared Sub Main() Dim wr As HttpWebRequest = CType(WebRequestFactory.Create("http://maps.weather.com/web/radar/us_orl_ultraradar_large_usen.jpg"), HttpWebRequest) Dim ws As HttpWebResponse = CType(wr.GetResponse, HttpWebResponse) Dim str As Stream = ws.GetResponseStream Dim inBuf(100000) As Byte Dim bytesToRead As Integer = CType(inBuf.Length, Integer) Dim bytesRead As Integer = 0 While bytesToRead > 0 Dim n As Integer = str.Read(inBuf, bytesRead, bytesToRead) If n = 0 Then ' break End If bytesRead += n bytesToRead -= n End While Dim fstr As FileStream = New FileStream("weather.jpg", FileMode.OpenOrCreate, FileAccess.Write) fstr.Write(inBuf, 0, bytesRead) str.Close fstr.Close End Sub End Class
原创粉丝点击