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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024