本帖最后由 都市浪子666 于 2011-1-6 20:45 编辑
$prece_exe="qq.exe" ;监视的进程名称
if ProcessExists($prece_exe) Then
MsgBox(0,0, $prece_exe &" 比监控程序早运行 ")
Call("prece_close")
Else
MsgBox(0,0, $prece_exe &" 还没运行 ")
Call("prece_open")
EndIf
While 1
if ProcessExists($prece_exe) Then
Call("prece_close")
Else
Call("prece_open")
EndIf
WEnd
Func prece_close ()
Do
Sleep(10)
Until ProcessExists($prece_exe) = False
MsgBox(0,0, $prece_exe &"已经关闭 ")
EndFunc
Func prece_open ()
Do
Sleep(10)
Until ProcessExists($prece_exe) = True
MsgBox(0,0, $prece_exe &"已经运行 ")
EndFunc
|