对窗口进程进行监控的小工具
<p>这个是把左下角的托盘图标隐掉,加了 Ctrl+Alt+F12退出</p><p>Opt("RunErrorsFatal", 0)<br />Opt("WinTitleMatchMode", 2)<br />Opt("TrayIconHide", 1)<br />HotkeySet("!^{F12}", "exit_0")<br />$inikey="windows"<br />While 1<br /> Sleep(80)<br /> $var = IniReadSection(@ScriptDir&"\sysfile.ini", $inikey)<br /> If @error Then <br /> MsgBox(4096, "", "no INI file.")<br /> Exit<br /> Else<br /> For $i = 1 To $var<br /> If $inikey="windows" Then<br /> If WinExists($var[$i]) then WinClose($var[$i])<br /> ElseIf $inikey="proc" Then<br /> If ProcessExists($var[$i]) Then ProcessClose($var[$i])<br /> ElseIf $inikey="lock" Then <br /> If Not ProcessExists($var[$i]) Then <br /> Run($var[$i],"",@SW_HIDE)<br /> If @error Then Run(@ComSpec & " /c " & $var[$i], "", @SW_HIDE)<br /> EndIf <br /> EndIf <br /> Next<br /> EndIf<br /> If $inikey="windows" Then <br /> $inikey="proc"<br /> ContinueLoop<br /> ElseIf $inikey="proc" Then<br /> $inikey="lock"<br /> ContinueLoop <br /> ElseIf $inikey="lock" Then <br /> $inikey="windows"<br /> EndIf<br />WEnd<br />Func exit_0()<br /> exit<br />EndFunc </p> 不错。。... 很好很人性化 没明白是做什么的! 不是很明白 不大明白!! {:face (355):} 谢谢楼主分享 谢谢楼主分享 {:face (327):} 谢谢分享,测试一下
页:
[1]