Dim vtag
Dim CtrlRange
For Each vtag In WebBrowser1.Document.All
If vtag.tagName = "IMG" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next
------------------------------------------
执行上面的程序之后
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
438错误 对象不支持该属性或方法。
猜测是webbrowser调用默认IE内核版本问题,不知道支持createControlRange方法的都有哪些浏览器
或者说有其他的什么办法可以拷贝webbrowser中的验证码图片到imag里面呢?
Dim CtrlRange
For Each vtag In WebBrowser1.Document.All
If vtag.tagName = "IMG" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next
------------------------------------------
执行上面的程序之后
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
438错误 对象不支持该属性或方法。
猜测是webbrowser调用默认IE内核版本问题,不知道支持createControlRange方法的都有哪些浏览器
或者说有其他的什么办法可以拷贝webbrowser中的验证码图片到imag里面呢?