下载

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
阅读更多
个人分类: 下载
想对作者说点什么? 我来说一句

D3DX9_40.dll下载下载下载下载

2010年02月19日 4.18MB 下载

pdf2all下载下载下载

2011年03月26日 969KB 下载

C#下载下载下载

2010年03月08日 4KB 下载

IIS7 下载下载 下载

2010年11月26日 38KB 下载

企业网站源码下载下载下载下载

2007年08月09日 2.49MB 下载

汇编语言课件下载下载下载

2009年03月13日 3.21MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭