哪个高手，能把这个C#给弄成VB.NET？下载图用

Question

直接说下载图片吧其实和上面一样，也有两种方法：1，WebRequest和WebResponseWebRequest request = WebRequest.Create("http://images.cnblogs.com/logo_small.gif"); 
WebResponse response = request.GetResponse(); 
Stream reader = response.GetResponseStream(); 
FileStream writer = new FileStream("x:\\pic.jpg", FileMode.OpenOrCreate, FileAccess.Write);
byte[] buff = new byte[512]; 
int c = 0; //实际读取的字节数 
while ((c=reader.Read(buff, 0, buff.Length)) > 0)
 {     
writer.Write(buff, 0, c); 
}
 writer.Close();
 writer.Dispose(); 
reader.Close();
 reader.Dispose();
 response.Close();

Answer 1

寒一个
自己会C#
看2眼VB
不就改完了

Answer 2

 Dim response As WebResponse = WebRequest.Create("http://images.cnblogs.com/logo_small.gif").GetResponse
    Dim reader As Stream = response.GetResponseStream
    Dim writer As New FileStream("x:\pic.jpg", FileMode.OpenOrCreate, FileAccess.Write)
    Dim buff As Byte() = New Byte(&H200  - 1) {}
    Dim c As Integer = 0
    Do While (c = reader.Read(buff, 0, buff.Length) > 0)
        writer.Write(buff, 0, c)
    Loop
    writer.Close
    writer.Dispose
    reader.Close
    reader.Dispose
    response.Close

Answer 3

 Dim response As WebResponse = WebRequest.Create("http://images.cnblogs.com/logo_small.gif").GetResponse
    Dim reader As Stream = response.GetResponseStream
    Dim writer As New FileStream("x:\pic.jpg", FileMode.OpenOrCreate, FileAccess.Write)
    Dim buff As Byte() = New Byte(&H200  - 1) {}
    Dim c As Integer = 0
    Do While (c = reader.Read(buff, 0, buff.Length) > 0)
        writer.Write(buff, 0, c)
    Loop
    writer.Close
    writer.Dispose
    reader.Close
    reader.Dispose
    response.Close

Answer 4

用webClient 两行代码搞定
webClient.DownloadFile(url,fileName)

Answer 5

webClient，没有超时，所以我用了这个。