Question

VB问题 <button class="submit icon-btn-search" type="submit">搜索</button> 怎么实现自动点击

<button class="submit icon-btn-search" type="submit">搜索</button>
怎么实现自动点击

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

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) = "button" Then '用UCase函数转换为大写，找到button标签
Set vTag = vDoc.All(i)
if vTag.Value = "搜索" then
vTag.Click '点击提交
End If
End If
Next i