主题：[求助]请问如何获取网页上图片的文件大小？

下载下来才知道

Dim hc As New HttpClient("http://www.foxtable.com/lib/images/bottomlogo.gif")
If hc.GetFile("d:\123.jpg") Then
    MessageBox.show("文件下载成功","提示")
    Dim f As new FileInfo("d:\123.jpg")
    msgbox(f.Length)
Else
    MessageBox.show("文件下载失败","提示")
End If

用2楼，或者改成下面

Network.DownloadFile("https://www.baidu.com/img/bd_logo1.png", "c:\1.png" ,"" ,"" ,false, 100000, true)

我这样测试没问题

Dim hc As New HttpClient("http://www.foxtable.com/lib/images/bottomlogo.gif")
If hc.GetFile("d:\123.jpg") Then
    MessageBox.show("文件下载成功","提示")
    Dim f As new FileInfo("d:\123.jpg")
    msgbox(f.Length)
Else
    MessageBox.show("文件下载失败","提示")
End If

捕捉报错，参考

Dim image_address As String = "http://www.foxtable.com/lib/images/bottomlogo1.gif"
try
    Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)
    Dim res As system.net.WebResponse= wr.GetResponse
    Dim bmp As New Bitmap(res.GetResponseStream)
    bmp.save("d:\333.jpg")
    msgbox("ok")
catch ex As exception
    msgbox(ex.message)
    msgbox("abc")
End try

这种捕捉比较麻烦，要写事件代码

http://www.foxtable.com/webhelp/scr/2655.htm

效率问题，那就改成这样

Dim image_address As String = "http://www.foxtable.com/lib/images/bottomlogo.gif"
try
    Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)
    Dim res As system.net.WebResponse= wr.GetResponse
    Dim stm As System.IO.Stream = res.GetResponseStream
    Dim ms As New IO.FileStream("d:\000.jpg", IO.FileMode.Create)
    Dim buffer(1024) As Byte
    Dim count = stm.read(buffer, 0, buffer.length)   
    Do While (count > 0)
        ms.Write(buffer, 0, count)
        count = stm.Read(buffer, 0, buffer.Length)
    Loop
    stm.Close()
    ms.Dispose()
    msgbox("ok")
catch ex As exception
    msgbox(ex.message)
    msgbox("abc")
End try