对窗口进程进行监控的代码
<span style="color: #008000">设置脚本在遇到严重错误时是否自动终止1=致命错误, 0=静默错文字误,设置 @error<br />;(此命令说明发生错误时不中止程序运行)<br /></span>Opt("RunErrorsFatal", 0)<br /><span style="color: #008000">;更改窗口函数在执行搜索操作时的标题匹配模式。</span><br /><span style="color: #008000">;1=只匹配标题的前面部分(默认), 2=标题的任意子串皆可匹配,3=完全匹配标题, </span><br /><span style="color: #008000">;(此命令说明查找关键字时,只要有一个匹配时,就生效)</span><br />Opt("WinTitleMatchMode", 2)<br /><span style="color: #008000">;隐藏 AutoIt 托盘图标。注意:托盘图标仍会在程序刚运行时出现大约 750 毫秒。</span><br /><span style="color: #008000">;0 = 显示托盘图标(默认),1 = 隐藏托盘图标</span><br /><span style="color: #008000">;(此命令说明程序运行时托盘上的图标不会显示)</span><br />Opt("TrayIconHide", 1)<br /><span style="color: #008000">;设置一个可调用某用户函数的热键。<br /></span><span style="color: #008000">;(此命令为按下f12程序退出)</span><br />HotkeySet("!^{F12}", "exit_0");<br /><span style="color: #008000">;定义配置文件sysfile.ini中的窗口标题$inikey="windows"</span><br />While 1<br /><span style="color: #008000">;等待80毫秒</span><br />Sleep(80)<br /><span style="color: #008000">;IniReadSection从某标准配置文件(*.ini)中读取某个节中的所有关键词或值。</span><br /><span style="color: #008000">;@scriptdir当前运行中的脚本所在的目录</span><br /><span style="color: #008000">;此命令表示从当前程序所在目录读取sysfile.ini文件中的windows的值</span><br />$var = IniReadSection(@ScriptDir&"\sysfile.ini", $inikey)<br /><span style="color: #008000">;如果找不到窗口windows的值.就输出no ini file,程序将退出</span><br />If @error Then <br />MsgBox(4096, "", "no INI file.")<br />Exit<br /><span style="color: #008000">;如果找到窗口windows的值,就关闭该窗口</span><br />Else<br />For $i = 1 To $var[]<br /> If $inikey="windows" Then<br /><span style="color: #008000">;如果目标窗口确实存在,就关闭这个窗口</span><br /> If WinExists($var[$i]) then WinClose($var[$i])<br /><span style="color: #008000">;配置文件中的proc项</span><br /> ElseIf $inikey="proc" Then<br /><span style="color: #008000">;读取proc中的进程名,如果存在,就关闭</span><br /> If ProcessExists($var[$i]) Then ProcessClose($var[$i])<br /><span style="color: #008000">;读取proc中的进程名</span><br /> ElseIf $inikey="lock" Then <br /><span style="color: #008000">;如果没有找到这个进程名,就运行该进程</span><br /> If Not ProcessExists($var[$i]) Then <br /><span style="color: #008000">;运行该进程@SW_HIDE = 隐藏窗口</span><br /> Run($var[$i],"",@SW_HIDE)<br /><span style="color: #008000">;如果windows下不能运行这程序,使用运行 DOS(控制台)命令:comspec</span><br /> If @error Then Run(@ComSpec & " /c " & $var[$i], "", @SW_HIDE)<br /> EndIf <br /> EndIf <br />Next<br />EndIf<br /><span style="color: #008000">;如果顺利执行$inikey="windows",就执行$inikey="proc"</span><br />If $inikey="windows" Then <br />$inikey="proc"<br /><span style="color: #008000">;重新开始循环</span><br />ContinueLoop<br />ElseIf $inikey="proc" Then<br />$inikey="lock"<br /><span style="color: #008000">;重新开始循环</span><br />ContinueLoop <br />ElseIf $inikey="lock" Then <br />$inikey="windows"<br /> EndIf<br /><span style="color: #008000">;和上面的winle 1配合,如果中间的过程为真,那么就一直重复执行循环<br /></span>WEnd<br /><span style="color: #008000">;按下f12就退出程序Func exit_0()</span><br />exit<br />EndFunc<br /><br /><br /><br />sysfile.ini :<br /><br /><br />Dow=这填上说明<br /><br />BitComet.exe=BT下载工具<br /><br />qq.exe=C:\qq2006\QQ.exe<br /><br /><br /><br />windows: 是需要查杀的窗口名称,可以输入窗口名称的一部份<br /><br />proc: 是需要查杀的进程名称,这个必须要完整名称<br /><br /><br />lock 是用来防止进程中断用的,当发现左边进程不存在时就会运行右边的exe文件,, 左边是进程名称 右边是进程详细资料<br /> 不错的东西~~~!!!! :face (29)::face (29): :face (29)::face (29): :face (29): :face (29)::face (29)::face (29): 很全面啊…… 很好,谢谢了. 好强大 学习学习。会批处理的进程监控。学习下AU3怎么写 不错不错楼主有心了 :face (29)::face (29)::face (29): 非常详细。。对新手很有帮助谢谢 不错不错
楼主有心了
:face (20): 进来学习了。 新人,学习中