Private Sub Command1_Click()
web1.Silent = True
Dim CtrlRange, x
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, App.Path & "\" & ii & "pic.bmp"
ii = ii + 1
End If
Next
end sub
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
