我在用VB编程用了WEBBROWSE控件打开一个网页,这个网页中有一些图片是动态刷新的,每次访问都是不一样的图片. 我想问一下有什么方法把WEBBROWS控件中这次显示的图片保存下来.

我现在想到的方法是获得他的URL,然后下载.
或者是去IE缓存里找

'**********************************************
'** 功能：取得当前网址中的所有链接名称和地址 **
'** 要引用 Microsoft HTML Object Library **
'** 2005-01-7 00:40:00 **
'** 作者：风铃夜思雨 **
'**********************************************


Private Sub GetLinks()
Dim Doc As IHTMLDocument2
Dim All As IHTMLElementCollection
Dim L As Integer
Dim i As Integer
Dim Varl As Variant

Set Doc = WebBrowser1.document
Set All = Doc.images '取图片的连接 doc.links 取文字链接
L = All.length
For i = 0 To L - 1
Set Varl = All.Item(i, varempty)
List1.AddItem ("地址：" & Varl.href) 'item.innertext 取文本链接名称
Set Varl = Nothing
Next i
Set All = Nothing
Set Doc = Nothing
End Sub

然后再檢測后麵的擴展名``JPG,BMP等圖片文件

http://hi.baidu.com/aijx/blog/item/f76c5b43234514119213c669.html

不愧是版主

老大首先感谢你的热情回答,

但是这个网页中的图片是每次访问都不一样的,就比如网站登陆的验证码,用程序找到图片的网址再下载就已经是另一个图片了.有没有办法直接获取到目前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

楼主请问你知道怎么注册组件？
我下的vb版本没有web组件