Question

用VB如何实现自动跳转网页

就是能不能使用WebBrowser控件实现，一点运行,WebBrowser1就进入一个网页,过一段时间又进入另外一个网页,最好可以循环

Answer 1

窗体上添加一个timer、一个command、一个WebBrowser
Private Sub Command1_Click()
Timer1_Timer
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 4000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim arr(2)
Static i As Integer
arr(0) = "//www.baidu.com"
arr(1) = "//www.sohu.com"
arr(2) = "//www.qq.com"
i = (i + 1) Mod (UBound(arr) + 1)
WebBrowser1.Navigate arr(i)
End Sub