[转帖]AutoIt的一些脚本（Alcohol120%、KAV4.5.0.58CHS......)
[这个贴子最后由je64在 2004/08/26 12:50pm 第 3 次编辑]
以下文章引自
JUJU猫宽带宝藏论坛 → ◇惠文-启动光盘研究院 ◇ → 『 ◇WINDOWS集成光盘+GHOST恢复光盘研究所 ◇ 』
作者:从不下雪
发表时间:2004-8-20 22:01:00
原文如下:
[分享]AutoIt的一些脚本（Alcohol120%、KAV4.5.0.58CHS......)
[color=#00FFFF]RealONE Player V2.0 Build 6.0.11.872 简体中文版＋全功能补丁。此软件我觉得比那个10版本好，主要是10那个版本的全功能补丁在我的所有机子上失效（亮度调节破后看似有效，实际无效）。而这个版本则没问题。]
[color=#6495ED]Alcohol120% 1.9.2.1705 retail，有效KEY注册。
;安装完成后不重新启动
run("setup.exe")
Winwaitactive("Alcohol 120% Setup","&Expert installation mode")
send("!n")
Winwait("Alcohol 120% Setup","I &accept the license agreement")
send("!a!n")
Winwait("Alcohol 120% Setup","Destination Folder")
send("!n")
Winwait("Alcohol 120% Setup","Please select which features you would like to install.")
send("!n")
Winwait("Alcohol 120% Setup","Click Next to begin installation.")
send("!n")
Winwait("Alcohol 120% Setup","Alcohol 120% has been successfully installed.")
send("!f")
Winwait("Installer Information")
send("!n")
;开始注册过程
run("C:\Program Files\Alcohol Soft\Alcohol 120\Alcohol.exe")
WinWait("关于 - Alcohol 120%","注册(&R)")
send("!r")
WinWait("注册","确定(&O)")
send("ALCBCBCBCBC3T99TVJKK2G7XYBCVWDDB2MPCDR78YCDB2CCB289RTK234CD7MG7D43TC3M392C34V89T8DFJKBBT8MPMPQ6T8BB233HCDXXCCBCBCB")
send("!o")
WinWait("注册","序列号有效! 注册成功!")
send("{enter}")
WinWaitActive("关于 - Alcohol 120%")
send("!o")
;注册后设置：去除上网检查新版本
sleep(3000)
$i=1
while $i>0
$i=$i+1
If WinExists("Alcohol 120%","就绪") Then
MsgBox(0, "提示", "30秒以上无反应就移动一下鼠标吧!", 1)
$i=0
endif
wend
;耐心等待虚拟驱动器设置完成
MsgBox(0, "提示", "30秒以上无反应就移动一下鼠标吧!", 10)
WinWaitActive("Alcohol 120%")
send("!fp")
WinWaitactive("Alcohol 120% - 选项")
send("!r!o")
WinWaitActive("Alcohol 120%")
send("!fx")
[color=#006400]KAV 4.5.0.58CHS，KEY文件与安装文件放在同一目录，安装过程中，不安装KAV控制中心。在官方网站下载病毒库放在安装文件下，用updates目录存放病毒库，这样安装好后就自动更新好病毒库了。
以下是经过konan指导后修改完善的程序，刚刚测试通过。谢谢konan！
;安装建议：暂时禁用所有网卡。如果安装完成后，安装程序不能完全退出，可按CRL＋ALT＋DEL中断安装进程，重新启动后，建议进入安全模式再安装一次。
run("Setup.exe /u<updates> /n")
;稍等，警告窗口可能出来，也可能不出来。
$i=1
while $i>0
$i=$i+1
If WinExists("警告","安装程序未检测到MS Outlook，") Then ExitLoop
If WinExists("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","欢迎使用 Kaspersky(TM) Anti-Virus 工作站版 4.5 安装向导。") then ExitLoop
wend
;安装程序未检测到MS Outlook
If WinExists("警告","安装程序未检测到MS Outlook，") Then
send("{enter}")
endif
;安装向导
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","欢迎使用 Kaspersky(TM) Anti-Virus 工作站版 4.5 安装向导。")
send("{enter}")
;许可证协议
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","标准最终用户许可协议")
send("!y")
;客户信息
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","请输入您的名字和您所在公司的名称。")
send("{enter}")
;选择目标位置
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","选择目标位置")
send("{enter}")
;选择程序文件夹
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","选择程序文件夹")
send("!n")
;安装类型-自定义
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","安装类型")
send("{end}")
send("!n")
;选择组件-不安装Kaspersky病毒控制中心
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","选择您需要安装的组件，并清除您不需要安装的组件。")
send("{end}{space}!n")
;复制文件前查看设置
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","用户信息:")
send("!n")
;开始安装，稍等....
;报告信息设置
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","报告信息设置")
send("{enter}")
;设置Kaspersky病毒监视服务器帐户
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","定义启动 Kaspersky 病毒监视器 系统服务的帐户。")
send("{enter}")
;稍等，第一次安装后，安装程序未能完全退出，重新启动后再次安装时覆盖提示窗口可能会跳出来。
$i=1
while $i>0
$i=$i+1
;覆盖提示
If WinExists("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","覆盖") Then
MsgBox(0, "提示", "稍等1秒即可自动继续.....", 1)
send("{enter}")
$i=0
endif
;KEY文件确认
If WinExists("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","安装Key文件列表:") then ExitLoop
wend
;KEY文件确认
WinWait("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","安装Key文件列表:")
send("{TAB}{enter}")
;安装完成
$i=1
while $i>0
$i=$i+1
If WinExists("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","执行 Kaspersky 病毒更新器") Then
send("{TAB}{enter}")
$i=0
endif
If WinExists("安装向导 - Kaspersky(TM) Anti-Virus 工作站版 4.5","不，稍后再启动计算机。") then
send("{down}{enter}")
$i=0
endif
wend
[color=#00FFFF]UltraISO 7.2.1.839 SR-2中文纯净版，自动注册。
run("uiso72cn-s.exe")
WinWaitActive("安装 - UltraISO","欢迎使用 UltraISO 安装向导")
send("!n")
WinWaitActive("安装 - UltraISO","使用许可协议")
send("!a{up}!n")
WinWaitActive("安装 - UltraISO","选择目标位置")
send("!n")
if WinExists("文件夹已经存在","已经存在。 您无论如何都要安装到此文件夹吗？") then
send("y")
endif
WinWaitActive("安装 - UltraISO","选择开始菜单文件夹")
send("!n")
WinWaitActive("安装 - UltraISO","选择附加任务")
send("!n")
WinWaitActive("安装 - UltraISO","准备安装")
send("!i")
WinWaitActive("安装 - UltraISO","完成")
send("!f")
WinWaitActive("欢迎","订购UltraISO - 只需30元！")
send("{Tab}{Enter}")
WinWaitActive("注册")
send("FreeUser@ccf.com{Tab}7A752A7A07461988{Enter}")
WinWaitActive("提示","注册码已经录入,请重新运行程序!")
send("{enter}")
[color=#006400]RealONE Player V2.0 Build 6.0.11.872 简体中文版＋全功能补丁。此软件我觉得比那个10版本好，主要是10那个版本的全功能补丁在我的所有机子上失效（亮度调节破后看似有效，实际无效）。而这个版本则没问题。
run("RealOnePlayerV2GOLD_cn.exe")
WinWait("正在准备安装 RealOne Player")
WinWait("RealOne 安装向导")
MsgBox(0, "提示", "稍等3秒才能继续...", 3)
send("{tab}{down}!n")
WinWait("RealOne 安装向导","最终用户许可协议")
send("!a")
sleep(1000)
WinWait("RealOne 安装向导")
send("{tab}{space}!n")
WinWait("RealOne 安装向导","C:\Program Files\Real\RealOne Player")
send("{tab 3}{space}{down 2}{space}{down}{space}{down}{space}{tab 3}!n")
$i=1
while $i>0
$i=$i+1
if FileExists("C:\Program Files\Real\RealOne Player\lang\upgrdhlp_cn.dll") Then ExitLoop
wend
MsgBox(0, "提示", "稍等10秒才能继续...",10)
send("{enter}")
WinWait("RealOne Player")
MsgBox(0, "提示", "稍等15秒才能继续...",15)
Opt("MouseCoordMode",0)
mouseclick("left",283,253,1)
send("{tab 3}{enter}")
WinWait("取消安装 -- 网页对话框")
send("{enter}")
MsgBox(0, "提示", "稍等10秒才能继续...",10)
WinWait("RealOne Player: 欢迎使用 RealOne Player")
Opt("MouseCoordMode",0)
mouseclick("left",285,15,1)
send("x")
;开始注册过程
run("RealOnePatch_cn.exe")
WinWait("RealOne Activator Final by BetaMaster","Start")
MsgBox(0, "提示", "稍等3秒才能继续...",3)
Opt("MouseCoordMode",0)
mouseclick("left",276,297)
WinWait("RealOne Player Perfect Activator")
Opt("MouseCoordMode",0)
mouseclick("left",199,276,1)
WinWait("RealOne Player Perfect Activator","确定")
send("{ENTER}")
WinWait("RealOne Player Perfect Activator")
mouseclick("left",383,15,1)
run("C:\Program Files\Real\RealOne Player\realplay.exe")
WinWait("RealOne Player: 欢迎使用 RealOne Player")
WinWaitActive("RealOne Player: 欢迎使用 RealOne Player")
send("!te")
WinWait("均衡器","默认值 <无设置>")
send("{space}{tab}{down}{up 8}{enter}")
Opt("MouseCoordMode",0)
mouseclick("left",434,13,1)
send("!tc")
WinWait("平滑转换")
send("!o!c")
WinWait("RealOne Player: 欢迎使用 RealOne Player")
send("!fx")
***原帖如上****
原帖地址:http://www.jujumao.net/dispbbs.asp?boardID=24&ID=10609&page=2
附上软件下载地址:
http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe
