Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim num As Integer
Private Sub Form_Load()
Timer1.Interval = 5000
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
Static sngOldTime As Single
Dim sngt As Single
sngt = Timer
If sngt >= 8 * 3600! Then
If sngt < 18 * 3600! Then
If Abs(sngt - sngOldTime) >= 30 Then
sngOldTime = sngt
num = num + 1
Label1.Caption = num
i = Shell("f:\webbrowser.exe", 1)
'执行webbrowser.exe这个程序
Sleep 50000
pausetask "webbrowser"
'关闭这个程序
End If