|
发表于 2009-4-25 22:50:41
|
显示全部楼层
本帖最后由 lynfr8 于 2009-4-25 23:02 编辑
至于你说的保存设置
不好意思
不是很明白你的意图
是否要达到这样的效果:
【给出原帖,希望对你有借鉴作用】
http://www.autoitx.com/forum.php?mod=viewthread&tid=42
对窗口进程进行监控的代码
设置脚本在遇到严重错误时是否自动终止1=致命错误, 0=静默错文字误,设置 @error
;(此命令说明发生错误时不中止程序运行)
Opt("RunErrorsFatal", 0)
;更改窗口函数在执行搜索操作时的标题匹配模式。
;1=只匹配标题的前面部分(默认), 2=标题的任意子串皆可匹配,3=完全匹配标题,
;(此命令说明查找关键字时,只要有一个匹配时,就生效)
Opt("WinTitleMatchMode", 2)
;隐藏 AutoIt 托盘图标。注意:托盘图标仍会在程序刚运行时出现大约 750 毫秒。
;0 = 显示托盘图标(默认),1 = 隐藏托盘图标
;(此命令说明程序运行时托盘上的图标不会显示)
Opt("TrayIconHide", 1)
;设置一个可调用某用户函数的热键。
;(此命令为按下f12程序退出)
HotkeySet("!^{F12}", "exit_0");
;定义配置文件sysfile.ini中的窗口标题$inikey="windows"
While 1
;等待80毫秒
Sleep(80)
;IniReadSection从某标准配置文件(*.ini)中读取某个节中的所有关键词或值。
;@scriptdir当前运行中的脚本所在的目录
;此命令表示从当前程序所在目录读取sysfile.ini文件中的windows的值
$var = IniReadSection(@ScriptDir&"\sysfile.ini", $inikey)
;如果找不到窗口windows的值.就输出no ini file,程序将退出
If @error Then
MsgBox(4096, "", "no INI file.")
Exit
;如果找到窗口windows的值,就关闭该窗口
Else
For $i = 1 To $var[0][]
If $inikey="windows" Then
;如果目标窗口确实存在,就关闭这个窗口
If WinExists($var[$i][0]) then WinClose($var[$i][0])
;配置文件中的proc项
ElseIf $inikey="proc" Then
;读取proc中的进程名,如果存在,就关闭
If ProcessExists($var[$i][0]) Then ProcessClose($var[$i][0])
;读取proc中的进程名
ElseIf $inikey="lock" Then
;如果没有找到这个进程名,就运行该进程
If Not ProcessExists($var[$i][0]) Then
;运行该进程@SW_HIDE = 隐藏窗口
Run($var[$i][1],"",@SW_HIDE)
;如果windows下不能运行这程序,使用运行 DOS(控制台)命令:comspec
If @error Then Run(@ComSpec & " /c " & $var[$i][1], "", @SW_HIDE)
EndIf
EndIf
Next
EndIf
;如果顺利执行$inikey="windows",就执行$inikey="proc"
If $inikey="windows" Then
$inikey="proc"
;重新开始循环
ContinueLoop
ElseIf $inikey="proc" Then
$inikey="lock"
;重新开始循环
ContinueLoop
ElseIf $inikey="lock" Then
$inikey="windows"
EndIf
;和上面的winle 1配合,如果中间的过程为真,那么就一直重复执行循环
WEnd
;按下f12就退出程序Func exit_0()
exit
EndFunc
sysfile.ini :
[windows]
Dow=这填上说明
[proc]
BitComet.exe=BT下载工具
[lock]
qq.exe=C:\qq2006\QQ.exe
windows: 是需要查杀的窗口名称,可以输入窗口名称的一部份
proc: 是需要查杀的进程名称,这个必须要完整名称
lock 是用来防止进程中断用的,当发现左边进程不存在时就会运行右边的exe文件,, 左边是进程名称 右边是进程详细资料 |
|