简单VB编程问题，随机时间打开网址。

我想用VB编一个启动后在随机的一段时间内（5~20分钟之间）打开一次网址，如打开www.zhaoxi.net ，一直这样循环下去。如何实现？求代码，最好带解释，谢谢！

追问：为什么我2台电脑同时打开后，隔段时间后怎么也会同时打开这个网页啊，随机数怎么会这样啊，应该产生不同的随机数的啊，那怎么会同时打开网页呢？请指教！

答案：'未作测试，自己试试
Option Explicit
Dim t As Integer
Private Sub Form_Load()
    Timer1.Interval = 60000 '一分钟计时器
    rndinit
End Sub
Private Sub Timer1_Timer()
    Static n
    n = n + 1
    If n = t Then
        rndinit
        n = 0
Shell "explorer http://www.zhaoxi.net", 1
    End If
End Sub
Function rndinit()
    t = Int(16 * Rnd) + 5 '产生5-20随机数
End Function
Dim t As Integer '定义定时时间变量
Private Sub Form_Load()
    Timer1.Interval = 60000 '1分钟一个单位
End Sub
Private Sub Timer1_Timer()
    t = t - 1
    If t <= 0 Then 't分钟定时时间到
url = "www.zhaoxi.net" '设置网站
        Shell "cmd.exe /c start " & url, 0 '打开网站
        t = Int((20 * Rnd) + 1) '重新产生1~20之间的随机数，定时1~20分钟
    End If
End Sub
- -加个时针看看

上一个：葛军老师二级VB编程视频教程迅雷下载
下一个：谁精通 VB 编程的 帮忙变革 一元二次方程！