日期:2014-05-20 浏览次数:20926 次
WebRequest request = WebRequest.Create("http://images.cnblogs.com/logo_small.gif")
Dim response As WebResponse = request.GetResponse()
Dim reader As Stream = response.GetResponseStream()
Dim writer As New FileStream("x:\pic.jpg", FileMode.OpenOrCreate, FileAccess.Write)
Dim buff(511) As Byte
Dim c As Integer = 0 '实际读取的字节数
c=reader.Read(buff, 0, buff.Length)
Do While c > 0
writer.Write(buff, 0, c)
c=reader.Read(buff, 0, buff.Length)
Loop
writer.Close()
writer.Dispose()
reader.Close()
reader.Dispose()
response.Close()