如何在网页中下载图片

Question

请问，如何在网页中下载图片？用程序实现。不知是否有这样的控件或API函数。还有这样写loadpicture("http://up9.tuzhan.com/data/200608/5bb76bdafbf5a4a0f2eed42371167ac0_m.JPG")是错的如果想实现这个效果，应该怎么写

Answer 1

With Inet1
        .AccessType = icNamedProxy
        .Proxy = "192.168.1.1:808"
End With
    Dim b() As Byte
    u = "http://up9.tuzhan.com/data/200608/5bb76bdafbf5a4a0f2eed42371167ac0_m.JPG"
    
    b = Inet1.OpenURL(u, icByteArray)
   
    Open App.Path & "\t.jpg" For Binary As #1
    Put #1, , b
    Close #1
    MsgBox "OK"

Answer 2

我用两种方法实现过
１：直接在网页里读ID正确的图形
２：有些图形是框架再联接的，如EBAY的验证码，那我就到临时文件夹里查找同名的图片

Answer 3

二楼的大哥，你的方法不行咯With  Inet1  
               .AccessType  =  icNamedProxy  
               .Proxy  =    "192.168.1.1:808  "  
End  With  
       Dim  b()  As  Byte  
       u  =    "http://up9.tuzhan.com/data/200608/5bb76bdafbf5a4a0f2eed42371167ac0_m.JPG  "  
         
       b  =  Inet1.OpenURL(u,  icByteArray)  
       
       Open  App.Path  &    "\t.jpg  "  For  Binary  As  #1  
       Put  #1,  ,  b  
       Close  #1  
       MsgBox    "OK  " 会提示错误咯。。

Answer 4

提示什么错误呢？可能你的网络连接与我不同，我的设置是用代理服务器上网的，你得改一下Inet控件的网络连接设置：
With  Inet1  
               .AccessType  =  icNamedProxy '使用了代理服务器  
               .Proxy  =    "192.168.1.1:808  "  '我的代理服务器IP
End  With