关于timer控件得小问题
小弟在写一个程序就是,添加一个timer控件,每隔一段时间就循环调用3个程序,例如每5秒自动调用3次ie浏览器,分别打开3个网站,事先声明,我只是打个比方,俺不是写弹窗得流氓软件,我这样写得
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim ret&
Dim n As Integer
Dim url(2) As String
url(0) = "http://www.baidu.com "
url(1) = "http://www.163.com "
url(2) = "http://www.sina.com "
for n=0 to 2
ret& = ShellExecute(Me.hwnd, "open ", url(n), " ", App.Path, 1)
next
End Sub
结果一下子跳出来三个呵呵不是间隔得调用得,望高手教我,再次说明,我只是研究,在学习,不是写什么恶意软件,因为我在这里看到问写恶意软件得,被骂惨了,大过年得我不想挨骂
[解决办法]
Dim url(2) As String
dim count as integer
Private Sub Form_Load()
Timer1.Interval = 1000
url(0) = "http://www.baidu.com "
url(1) = "http://www.163.com "
url(2) = "http://www.sina.com "
count=0
End Sub
Private Sub Timer1_Timer()
Dim ret&
Dim n As Integer
ret& = ShellExecute(Me.hwnd, "open ", url(count), " ", App.Path, 1)
count=count+1
if ount> 2 then count=0
End Sub
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
最新版本：20070210
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
[解决办法]
Dim n As Integer
Dim url(2) As String
Dim n As Integer
Private Sub Form_Load()
url(0) = "http://www.baidu.com "
url(1) = "http://www.163.com "
url(2) = "http://www.sina.com "
Timer1.Interval = 1666
End Sub
Private Sub Timer1_Timer()
Call ShellExecute(Me.hwnd, "open ", url(n), " ", App.Path, 1)
n = n + 1
if n = 3 Then n = 0
End Sub
