VB WebBrowser1 中图片另存为

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:54:03
要实现另存为，不是复制粘贴方式保存！！
不要使用以下方式下载：
Dim WX, CtrlRange
For Each WX In WebBrowser1.Document.All
If WX.tagName = "IMG" Then
If WX.src = 图片地址 Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (WX)
CtrlRange.execCommand ("Copy")
SavePicture Clipboard.GetData, App.Path & "\img.bmp"
Exit For
End If
End If
Next
回答者：coyerhc - 举人 四级 1-24 17:17

能否说清楚点，新手不是很懂你的意思，谢谢

建立一个 WebBrowser 对象，不显示该控制，把他的 URL 设为你那图片的地址。

当 WebBrowser 下载完后，用这个 WebBrowser 对象执行

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT

就可以了