老大首先感谢你的热情回答,
但是这个网页中的图片是每次访问都不一样的,就比如网站登陆的验证码,用程序找到图片的网址再下载就已经是另一个图片了.有没有办法直接获取到目前WEBBROWSER控件显示出来的图片麻烦老大再帮我解答一下了.
谢谢.
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