Question

VB按钮怎么自动点击多次，

Private Sub 下一个_Click()
Dim Str1 As String
Str1 = "下一个" '判断是否为要点击的A标签的特征字符'历遍所有A标签，查找含有"下一个"字符的A标签并点击
Set aSet = WebBrowser1.Document.All.tags("A")
For i = 0 To aSet.length - 1
If (InStr(1, aSet(i).innerText, Str1)) Then
aSet(i).Click ' 如果aSet(i).onclick不能点击的话，请试试aSet(i).click
End If
Next i
End Sub

这个按钮怎么自动点击多次

Answer 1

你这个按钮点击后，页面是要刷新的是吧？那么你要在WebBrowser1控件的DocumentComplete事件中编写代码继续点击。如果在同一页面连续点击多次，那么起作用的肯定只有一次，因为页面都还没刷新呢，点了有P用啊！写这类程序要多用事件驱动模式，因为网络环境很复杂，不用事件驱动的话，程序靠瞎蒙是很难知道网页什么时候开始刷新、什么时候刷新完毕、什么时候跳转，诸如此类的。

追问

你说的貌似是那样，那该怎么做？

追答

Private Sub 下一个_Click()
Dim Str1 As String, aSet As Object, i As Long
Str1 = "下一个"
Set aSet = WebBrowser1.Document.All.tags("A")
For i = 0 To aSet.length - 1
If InStr(aSet(i).innerText, Str1) Then
aSet(i).Click
Exit For
End If
Next i
Set aSet = Nothing
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is WebBrowser1.Object Then
'这里可以加各种判断条件，比如点击的次数，低于规定次数就继续；
'或者可以根据要找的字符是否在页面上，没找到就继续，等等。
下一个_Click
End If
End Sub

Answer 2

方法1,添加1个按钮：每当单击这个按钮，就会连续单击“下一个”按钮10次。
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 10
Call 下一个_Click
Next i
End Sub

如果你还不认为是自动，那么就用Timer控件，每间隔一定时间，单击“下一个”按钮1次。
Private Sub Timer1_Timer()
Call 下一个_Click
End Sub

追问

加了Timer控件设定时间间隔，出现了 实时错误91
Set aSet = WebBrowser1.Document.All.tags("A")

这里有问题，变黄了
上面你给的办法是点击了十次，但实际有效的是一次。的确是我那个按钮有问题，就是不知道怎么改

Answer 3

Call 下一个_Click 用一次点击一次

追问

无论call 多少次，，但实际有效的只是一次

追答

你凭什么判断他只执行一次？你在里面加个print，或者在里面设置个断点看看，或者单步看看。

Answer 4

调用command_click()...就是在按键里调用自己

Answer 5

用call命令来调用事件过程

追问

无论call 多少次，，但实际有效的只是一次

Answer 6

这个。。。我还真不知道