Question

VB中利用time来定时运行程序怎么代码怎么写？

程序A地址是“C:\1.EXE”，VB中利用time，shell来写一个程序。要求点击command1 ，2秒后自动运行程序A，4秒后就关闭程序A，6秒后自动运行程序A，8秒后自动关闭该VB编写的程序。

Answer 1

Dim p As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
p = 0
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
p = p + 1
If p = 2 Then
Shell "C:\1.exe", vbNormalFocus
ElseIf p = 4 Then
Shell "cmd.exe /k taskkill /f /im 1.exe &exit", vbHide
ElseIf p = 6 Then
Shell "C:\1.exe", vbNormalFocus
ElseIf p = 8 Then
Shell "cmd.exe /k taskkill /f /im 1.exe &exit", vbHide
End If
End Sub

Answer 2

他用得是模块级变量，会多耗内存的，应该用局部静态变量。