huangguolian 发表于 2009-2-13 15:13:39

谷歌金山词霸合作版 自动安装

Run(@ScriptDir&"xdictG.exe")

WinWait("谷歌金山词霸合作版 安装","谷歌金山词霸合作版")   ;关键点 标题文字必须完全一致
WinWaitActive("谷歌金山词霸合作版 安装","谷歌金山词霸合作版")
Send("!n")

WinWait("谷歌金山词霸合作版 安装","许可证协议")
WinWaitActive("谷歌金山词霸合作版 安装","许可证协议")
ControlCommand("谷歌金山词霸合作版 安装","许可证协议", "Button4", "Check")   ;打上钩 我接受许可证协议中的条款
Send("!n")

WinWait("谷歌金山词霸合作版 安装","选择安装位置")
WinWaitActive("谷歌金山词霸合作版 安装","选择安装位置")
Send("C:Program FilesKingsoftPowerWord Lite")
Send("!i")

WinWait("谷歌金山词霸合作版 安装","正在安装")
WinWaitActive("谷歌金山词霸合作版 安装","正在安装")
Send("!n")

WinWait("谷歌金山词霸合作版 安装","安装完成")
WinWaitActive("谷歌金山词霸合作版 安装","安装完成")
ControlCommand("谷歌金山词霸合作版 安装","安装完成", "Button7", "UnCheck")   ;去掉 将www.iciba.com爱词霸英语学习社区放入收藏夹 钩
Send("!n")

WinWait("谷歌金山词霸合作版 安装","正在完成“谷歌金山词霸合作版”安装向导")
WinWaitActive("谷歌金山词霸合作版 安装","正在完成“谷歌金山词霸合作版”安装向导")
ControlCommand("谷歌金山词霸合作版 安装","正在完成“谷歌金山词霸合作版”安装向导", "Button4", "UnCheck")   ;去掉 运行谷歌金山词霸合作版 钩
ControlCommand("谷歌金山词霸合作版 安装","正在完成“谷歌金山词霸合作版”安装向导", "Button5", "UnCheck")   ;去掉 打开快速入门(需联网) 钩
Send("!f")
Send("{enter}")

xrbenbeba 发表于 2009-2-15 00:24:03

很正常的代码啊

robin.von 发表于 2009-2-17 17:23:04

代码质量不高!
页: [1]
查看完整版本: 谷歌金山词霸合作版 自动安装