i-Aotit 后修改添加 有什么不对的地方给下提示 谢谢
之前不知道/s 所以写了 就发出来了;本脚本由i-Autoit-1.01 正式版 生成 ,非常感谢您的使用,请保留此脚本声明! 2011年05月03日
;--------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息
Opt("WinTextMatchMode", 1) ;1=完全匹配, 2=快速匹配
Opt("WinTitleMatchMode", 1) ;1=开头, 2=子串, 3=完全, 4=高级
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测
;--------------------------------------------------------------;设置脚本参数
$WinTitle_1= 'WinRAR'
$WinTitle_2= 'WinRAR'
$Wintxt_1= '安装'
$Wintxt_2= '确定'
$Wintxt_3= '完成'
;--------------------------------------------------------------;窗口元素变量声明
TrayTip ( "温馨提示", "正在自动安装请不要动鼠标键盘"&@CRLF&"反馈http://www.joz7.com",5,4)
;--------------------------------------------------------------;右下角气泡提示
$Exe = 'winrar_setup.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)
Do
Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面
WinWaitActive($Wintitle_1, $Wintxt_1);
ControlClick($Wintitle_1, $Wintxt_1, "Button2");---------------;点击按钮控件: 安装
WinWaitActive($Wintitle_2, $Wintxt_2);
ControlClick($Wintitle_2, $Wintxt_2, "Button27");---------------;点击按钮控件: 确定
WinWaitActive($Wintitle_2, $Wintxt_3);
ControlClick($Wintitle_2, $Wintxt_3, "Button1");---------------;点击按钮控件: 完成
;[猎杀窗口]
Do
Sleep(500)
WinWait("WinRAR", "")
Until WinClose("WinRAR", "")= 1;--------猎杀窗口--------
|