有关进程监控的问题！

woeiwoei

监视进程 例如 TTPLAY.exe
如果在运行 则 提示 正在运行
如果进程结束了 则提示 程序已退出
If ProcessExists("TTPALY.exe") Then
MsgBox(0, "提示", "正在运行！",3)
Else
MsgBox(0, "提示", "程序已结束！",3)
EndIf
但是这样不行啊。起不到 监测的 作用
提示运行 然后确定 就不再继续监控了。退出没提示。
那位解答一下啊？帮帮忙啊。。本人新手。

kodin

While 1
        Sleep(1000)
        If ProcessExists("TTPALY.exe") Then
                MsgBox(0, "提示", "正在运行！", 3)
        Else
                MsgBox(0, "提示", "程序已结束！", 3)
        EndIf
WEnd

woeiwoei

不理想啊，运行的时候 点 确定 后 还继续弹出 提示。
程序结束了 点确定 后 脚本不自动退出。。

kodin

晕！典型的伸手党！[/b]

你自己不会改一下啊？退出的时候不会在判断下面添加个EXIT退出吗？

woeiwoei

我不会啊。刚开始学的。不过谢谢你的 教训 和提醒。
也谢谢前面那位大哥。有点提示 比什么都好！！