举个例子，比如打开这个程序时，会自动打开百度首页，接着每隔100毫秒就会自动点击百度上的“百度一下”按钮,请问如何实现？

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Private Sub Timer1_Timer()
Dim z As Variant
Dim x As Variant
Set z = WebBrowser1.Document.getelementsbytagname("input")
For Each x In z
If x.Type = "submit" Then
x.Click
End If
Next
End Sub1
timer1.interval=100
不过500毫秒好像很快的,,设置长一点时间有好处!

End Sub1是什么意思啊

是刷流量的吧,不如直接用AJAX做个页面来的方便

我试了下怎么没反应

好想有這麼一個外部控件

应该有反应的啊
Private Sub form_load()
WebBrowser1.Navigate "http://www.baidu.com"
timer1.interval=100

End Sub

Private Sub Timer1_Timer()
Dim z As Variant
Dim x As Variant
Set z = WebBrowser1.Document.getelementsbytagname("input")
For Each x In z
If x.Type = "submit" Then
x.Click
End If
Next
End Sub1

支持下！~~~~~~~~~