Question

VB的webbrowser点击网页上的按钮问题！

最简单的 就是百度上那个按钮。。

用VB怎么实现去点击 <input type=submit value=百度一下 id=sb>

这是哪个按钮的数据 我用Webbrowser控件打开百度了

然后怎么样才能自动去点那个按钮呢！

Answer 1

Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "submit" And vTag.Value = "百度一下" Then vTag.Click

End If
Next i
End Sub