Question

vb6.0中，如何依次点击webbrowser里网页的多个链接？

我用的webbrowser控件 我在获取了WebBrowser1.Document.frames(3).Document后，以条件获取了一组链接
Set vDoc = WebBrowser1.Document.frames(3).Document
For i = 0 To vDoc.All.length - 1
If vDoc.All(i).tagName = "A" Then
这里如何写？
End If
Next

我的目的是每隔30分钟，依次点击获取的每一个链接。
求高手帮忙~~

Answer 1

加一个定时器，时间自己调，30分钟的话要累加

Private Sub Timer1_Timer()‘
WebBrowser1.Navigate "你的网址"
aa = 0
While aa = 0
DoEvents
Wend
Static ii
Set vdoc = WebBrowser1.Document.frames(3).Document
For i = ii To vdoc.All.length - 1
If vdoc.All(i).tagName = "A" Then
vdoc.All(i).Click
ii = i + 1
Exit For

End If
Next
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp = WebBrowser1.Object Then
aa = 1
End If
End Sub

Answer 2

vDoc.All(i).Click

追问

“30分钟的话要累加”是什么意思，因为我对VB不是很熟。
是不是timer控件不支持Interval直接设置为180万毫秒？
那么如何累加呢？