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

2025-03-18 03:43:38

推荐回答（2个）

回答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

回答2：

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