Question

如何用vb点击网页上的按钮

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "submit" And vTag.Value = "最大值" Then '找到确定按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了End IfEnd IfNext iEnd Sub
同理，“兑换”的按钮也是用同样的方法均可实现