如何将进程检测与托盘图表结合

cjmbbbbb · 发表于 2009-7-27 15:27:18

本帖最后由 cjmbbbbb 于 2009-7-27 16:03 编辑

我检测迅雷进程是否存在:

While 1
        If ProcessExists("Thunder5.exe") Then
                Sleep(600000)
        Else
                Run("Thunder.exe")
        EndIf
WEnd

想与托盘图标相结合:

#NoTrayIcon
#Include <Constants.au3>

Opt("TrayMenuMode", 1)

$aboutitem = TrayCreateItem("关于")
TrayCreateItem("")
$exititem = TrayCreateItem("退出")

TraySetState()

While 1
        $msg = TrayGetMsg()
        Select
                Case $msg = $aboutitem
                        MsgBox(64, "关于:", "进程检测")
                Case $msg = $exititem
                        ExitLoop
        EndSelect
WEnd
Exit

llssky2003 · 发表于 2009-7-27 15:49:37

可以把实现程序写成一个FUNC函数，然后调用就可以了，实现代码如下，因为采用循环加一形式，可能等待时间不一定很准，等待时间不要写成SLEEP(600000)，会引起托盘菜单无响应。。。

#NoTrayIcon
#include <Constants.au3>
Global $time
Opt("TrayMenuMode", 1)

$aboutitem = TrayCreateItem("关于")
TrayCreateItem("")
$exititem = TrayCreateItem("退出")

TraySetState()

While 1
        $msg = TrayGetMsg()
        Select
                Case $msg = $aboutitem
                        MsgBox(64, "关于:", "进程检测")
                Case $msg = $exititem
                        ProcessClose("one.exe")
                        ExitLoop
        EndSelect
        Sleep(100)
        $time = $time + 1
        If $time = 6000 Then
                RunThunder()
                $time = 0
        EndIf
WEnd

Func RunThunder()
        If ProcessExists("Thunder5.exe") = 0 Then
                Run("Thunder.exe")
        EndIf
EndFunc   ;==>RunThunder

cjmbbbbb · 发表于 2009-7-27 15:55:04

本帖最后由 cjmbbbbb 于 2009-7-27 15:56 编辑

谢谢!我测试一下!!
sleep写长了是怕太耗内存

afan · 发表于 2009-7-27 16:26:49

这个最好用 AdlibEnable() 函数，不然点击托盘菜单会有设定的延时

cjmbbbbb · 发表于 2009-7-27 18:56:21

多谢楼上的!

cjmbbbbb · 发表于 2009-7-28 03:54:46

本帖最后由 cjmbbbbb 于 2009-7-28 03:56 编辑

测试后，两位的都不好.....
AdlibEnable() 不知为何循环不了
llssky2003 大侠的延时让整个托盘都慢半拍了..........
最后我逆向思维...........

#NoTrayIcon
#include <Constants.au3>

Opt("TrayMenuMode", 1)
Opt("trayOnEventMode", 1)

$aboutitem = TrayCreateItem("关于")
TrayItemSetOnEvent($aboutitem, "TrayMsg")
TrayCreateItem("")
$exititem = TrayCreateItem("退出")
TrayItemSetOnEvent($exititem, "TrayMsg")

TraySetState()

While 1
        Sleep(6000)
        If ProcessExists("Thunder5.exe") = 0 Then
                Run("Thunder.exe")
        EndIf
WEnd

Func TrayMsg()
        Switch @TRAY_ID
                Case $aboutitem
                        MsgBox(64, "关于本小软", "迅雷进程检测！")
                Case $exititem
                        Exit
        EndSwitch
EndFunc

还是要感谢你们

afan · 发表于 2009-7-28 11:36:29

呵呵，AdlibEnable() 可以循环啊~ 就2#改一下：

#NoTrayIcon
Opt("TrayMenuMode", 1)

$aboutitem = TrayCreateItem("关于")
TrayCreateItem("")
$exititem = TrayCreateItem("退出")
TraySetState()

AdlibEnable('RunThunder', 6000)

While 1
        $msg = TrayGetMsg()
        Select
                Case $msg = $aboutitem
                        MsgBox(64, "关于:", "进程检测")
                Case $msg = $exititem
                        exit
        EndSelect
WEnd

Func RunThunder()
        If ProcessExists("Thunder5.exe") = 0 Then
                Run("Thunder.exe")
        endif
EndFunc   ;==>RunThunder

cjmbbbbb · 发表于 2009-7-28 17:11:10

哎呀，原来我把AdlibEnable('RunThunder', 6000)放while里了.............

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