腾讯QQ2011 Beta2全自动安装

lzqw

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\Program Files\Tencent\QQ\Bin\QQ.exe|-1
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
$title="腾讯QQ2011 安装向导"
Run("QQ2011Beta2.exe")
WinwaitActive("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
ControlClick("腾讯QQ2011 安装向导","我已阅读并同意软件许可协议和青少年上网安全指引","Button1")
Sleep(200)
ControlClick($title,"下一步(&N)","Button3")
WinWaitActive($title,"请选择自定义安装选项与快捷方式选项")
ControlClick($title,"安装QQ工具栏及中文搜搜","Button9")
Sleep(200)
ControlClick($title,"安装QQ音乐播放器","Button12")
Sleep(200)
ControlClick($title,"安装QQLive网络电视","Button17")
Sleep(200)
ControlClick($title,"快速启动栏","Button7")
Sleep(200)
ControlClick($title,"下一步(&N)","Button2")
WinWaitActive($title,"请选择安装路径")
ControlSetText($title,"请选择安装路径","Edit1","D:\Program Files\Tencent\QQ")
ControlClick($title,"安装(&I)","Button2")
WinWaitActive($title,"安装完成")
ControlClick($title,"立即运行腾讯QQ2011","Button6")
Sleep(200)
ControlClick($title,"开机时自动启动腾讯QQ2011","Button8")
Sleep(200)
ControlClick($title,"设置腾讯网为主页","Button9")
Sleep(200)
ControlClick($title,"显示新特性","Button7")
Sleep(200)
ControlClick($title,"完成(&F)","Button2")
WinWaitActive("QQ电脑管家在线安装")
Send("!{f4}")

lidenpan

下载留下了。。。感谢分享！如果能把自动判断D盘是否存在做进去就非常完美了。。也就是说如果D盘不存在自动安装到C盘去。我搞不定。但是肯定有高手能实现这个功能。