怎么保存网页中的图片？

Question

Dim   x,   CtrlRange   
          Dim   sPath   As   String   
          Dim   gstrfilename   
          sPath   =   App.Path   &   "\"   
    
          Dim   ii   As   Long   
          ii   =   0   
          For   Each   x   In   Web1.Document.All   
                  If   x.tagName   =   "IMG"   Then   
                                  Set   CtrlRange   =   Web1.Document.body.createControlRange()   
                                  CtrlRange.Add   (x)   
                                  CtrlRange.execCommand   ("Copy")                               
                                  SavePicture   Clipboard.GetData,   sPath   &   ii   &   ".bmp"   
                                  ii   =   ii   +   1   
                  End   If   
          Next以上是我找到的资料
能不通过剪切板来实现保存图片么？

Answer 1

Option ExplicitPrivate Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPrivate Sub Command1_Click()
If URLDownloadToFile(0, "http://www.csdn.net/ui/styles/public_header_footer/logo_csdn.gif", "c:\logo_csdn.gif", 0, 0) = 0 Then
    MsgBox "ok"
Else
    MsgBox "Err"
End If
End Sub