依次运行各个程序,帮忙看一下哪里写错了。。
本帖最后由 bcrun 于 2011-03-11 11:24:41 编辑 明显计时器间隔设置的不对 2.exe还没运行出来呢1.exe 就又被timer1给kill掉了 什么问题?30秒内必须启动2.exe,否则定时器1的下轮就又开始了。
正确方法是打开定时器2前要关闭定时1,并在定时器4中打开定时器1.
Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "2.exe窗口标题") '抓取2.exe窗口标题.
If (hwnd = 0) Then '没有在动行中,则关闭,1,3,4
Shell ("cmd /c taskkill /f /im 1.exe"), vbHide
Shell ("cmd /c taskkill /f /im 3.exe"), vbHide
Shell ("cmd /c taskkill /f /im 4.exe"), vbHide
Dim retval1
retval1 = Shell(App.Path & "\1.exe", 1) '运行1.exe
Timer2.Enabled = True '激活Timer2
Timer2.Interval = 35535
timer1.enabled=false
Else
''
End I
end sub
...
Private Sub Timer4_Timer()
Dim retval4
retval4 = Shell(App.Path & "\4.exe", 1)
Timer4.Enabled = False
timer1.enabled=true
End Sub
补充:VB , 基础类