1个回答
2013-12-30
展开全部
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
Dim vDoc
Set vDoc = WebBrowser1.Document
vDoc.getElementById("UserName").Value = "孙悟空"
vDoc.getElementById("password").Value = "猪八戒"
vDoc.getElementById("randCode").Value = "验证码"
vDoc.getElementById("subLink").Click
End Sub
验证码提取就没那么容易了吧。呵呵~~
Dim vDoc
Set vDoc = WebBrowser1.Document
vDoc.getElementById("UserName").Value = "孙悟空"
vDoc.getElementById("password").Value = "猪八戒"
vDoc.getElementById("randCode").Value = "验证码"
vDoc.getElementById("subLink").Click
End Sub
验证码提取就没那么容易了吧。呵呵~~
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询