VB获取网页验证码失败,请高手指点
Private Sub Command1_Click()Dim X
Dim CtrlRange
For Each X In webAuto.Document.All
If X.tagName = "IMG" Then
Set CtrlRange = webAuto.Document.body.createControlRange()
CtrlRange.Add (X) '此处提示出错 对象不支持该属性或方法
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next
End Sub
Private Sub Form_Load()
webAuto.Navigate "http://www.
End Sub
有的网页可以成功获取,可这个网页提示出错请高手指点,感谢!
[此贴子已经被作者于2017-6-3 00:43编辑过]