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
下载
最新推荐文章于 2024-06-26 22:50:21 发布