|
run("QQ2009Beta2.exe")
WinWaitActive("腾讯QQ2009 安装向导","我已阅读并同意软件许可协议和青少年上网安全指导")
ControlClick("腾讯QQ2009 安装向导","我已阅读并同意软件许可协议和青少年上网安全指导",1020)
controlcommand("腾讯QQ2009 安装向导","我已阅读并同意软件许可协议和青少年上网安全指导",1020,"check")
controlclick("腾讯QQ2009 安装向导","下一步(&N)",1015)
WinWaitActive("腾讯QQ2009 安装向导","办公、家庭等个人电脑")
controlcommand("腾讯QQ2009 安装向导","办公、家庭等个人电脑",1022,"check")
controlcommand("腾讯QQ2009 安装向导","登录前不查杀",1028,"check")
controlclick("腾讯QQ2009 安装向导","下一步(&N)",1015)
controlclick("腾讯QQ2009 安装向导","将浏览器的首页设置为QQ.com",1038)
controlclick("腾讯QQ2009 安装向导","安装腾讯软件管理器",1037)
controlclick("腾讯QQ2009 安装向导","安装QQ工具栏",1007)
controlclick("腾讯QQ2009 安装向导","安装中文搜搜",1011)
controlclick("腾讯QQ2009 安装向导","桌面",1035)
controlclick("腾讯QQ2009 安装向导","快速启动栏",1036)
controlclick("腾讯QQ2009 安装向导","下一步(&N)",1015)
;ControlSetText("腾讯QQ2009 安装向导","",1040,"e:\Program Files\QQ2009")
controlclick("腾讯QQ2009 安装向导","安装(&I)",1016)
WinWaitActive("腾讯QQ2009 安装向导","立即运行腾讯QQ2009")
controlclick("腾讯QQ2009 安装向导","立即运行腾讯QQ2009",1045)
controlclick("腾讯QQ2009 安装向导","显示新特性",1046)
controlclick("腾讯QQ2009 安装向导","开机时启动腾讯QQ2009",1047)
send("!f")
msgbox(1,"迅安科技提示您","您已成功安装QQ2009Beta2,如需帮助,请拨打13815637637",10)
如想更改安装目录,请修改前面有分号的代码,本人是机电一体化专业,后来改行从事计算机专业,纯粹属于半路出家,
AU3也完全是自学的成果,如有代码用错,请和我说下,谢谢 |
|