Question

VB的定时循环问题

每隔3000时间执行一次以下指令打开D:\ asd.exe然后结束此进程 一共循环10次

Answer 1

可创建一个Timer控件Dim i As IntegerPrivate Sub Form_Load()
Timer1.Interval = 3000
End SubPrivate Sub Timer1_Timer() i = i + 1

Shell "d:\asd.exe" If i = 10 Then
Unload Me
End If

End Sub 以上是全部代码 另外借鉴楼上修改为（未测试）Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
For i = 1 To 10
Shell "d:\asd.exe"
Sleep 3000
Next i unload me
End Sub

Answer 2

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
For i = 1 To 10
Shell "d:\asd.exe"
Sleep (3000)
Next
End Sub