怎么判断某进程连续5分钟不存在发出通知

qq82015930 · 发表于 2009-12-20 12:33:53

本帖最后由 qq82015930 于 2009-12-21 13:00 编辑

怎么判断某进程连续5分钟不存在发出通知

谢谢,学习拉
.我是用来监视主机上的软件的,要是不在线就自动发飞信通知到手机上.

netegg · 发表于 2009-12-20 12:38:24

一直监控？

afan · 发表于 2009-12-20 12:38:30

本帖最后由 afan 于 2009-12-20 13:24 编辑

Dim $p = "notepad.exe", $t = TimerInit()
While Not ProcessExists($p)
        If TimerDiff($t) > 5 * 60 * 1000 Then ExitLoop (MsgBox(0, "例子", "5分钟内记事本没运行."))
        Sleep(10)
WEnd

pusofalse · 发表于 2009-12-20 12:48:22

Local $sProcess = "QQ.exe", $iTimer = TimerInit(), $fExist = 0

Do
        $fExist = ProcessExists($sProcess)
        If $fExist Then ExitLoop
        Sleep(4)
Until        TimerDiff($iTimer) > (5 * 60 * 1000)

If $fExist = 0 Then Msgbox(0, "", $sProcess & " not exists.")

maxkingmax · 发表于 2009-12-20 13:22:20

dim $pid="qq.exe",$timer=timerinit()
AdlibRegister ( "fivem"  )

while 1
sleep(100)
wend

func fivem()
if timerdiff($timer)>=5*60*1000 and not ProcessExists($pid) then
traytip("tip","no qq",5)
$timer=timerinit()
endif
endfunc

andersonljw · 发表于 2011-3-27 21:33:58

不错不错好好学习

nanana7 · 发表于 2011-4-19 20:04:03

我只是想用用而已

hkc5599 · 发表于 2011-4-28 08:24:14

gooooooooooooood. thanks!!!

		自动登录	找回密码
密码			加入

怎么判断某进程 连续5分钟不存在 发出通知

怎么判断某进程连续5分钟不存在发出通知