<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[0][0]<br /> If $inikey="windows" Then<br /> If WinExists($var[$i][0]) then WinClose($var[$i][0])<br /> ElseIf $inikey="proc" Then<br /> If ProcessExists($var[$i][0]) Then ProcessClose($var[$i][0])<br /> ElseIf $inikey="lock" Then <br /> If Not ProcessExists($var[$i][0]) Then <br /> Run($var[$i][1],"",@SW_HIDE)<br /> If @error Then Run(@ComSpec & " /c " & $var[$i][1], "", @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> |