依次运行各个程序，帮忙看一下哪里写错了。。

本帖最后由 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 ,  基础类