日期:2014-05-20 浏览次数:20922 次
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()