一键安装QQ2012
;**
; QQ Auto Install Autoit Script
;
; @name OneKeyInstallQQ.au3
; @author http://www.dumiq.com
; @copyright CopyRight (c) 2012 http://www.dumiq.com
; @license GNU General Public License 2.0
; @version V1.0.2012.1116
;**
; QQ Auto Install Autoit Script
;
; @name OneKeyInstallQQ.au3
; @author http://www.dumiq.com
; @copyright CopyRight (c) 2012 http://www.dumiq.com
; @license GNU General Public License 2.0
; @version V1.0.2012.1116
;**
#RequireAdmin
Dim $title="腾讯QQ2012 安装向导"
Run("QQ2012.exe")
;请将 QQ2012.exe 和本脚本文件置于同一目录下
;请将 QQ2012.exe 和本脚本文件置于同一目录下
TrayTip("", "正在安装QQ2012,请不要操作键盘或鼠标否则程序将无法自动安装下去!",15,1)
WinWait($title)
WinActivate($title,"在安装软件前，请仔细阅读下面的软件许可协议")
WinActivate($title,"在安装软件前，请仔细阅读下面的软件许可协议")
Sleep(500)
ControlClick($title,"我已阅读并同意软件许可协议","Button1")
Sleep(500)
ControlClick($title,"下一步(&N)","Button3")
Sleep(500)
ControlClick($title,"安装QQ工具栏及中文搜搜","Button8") ;这是反选，即不安装。
Sleep(500)
ControlClick($title,"免费独享","Button11") ;这是反选，即不安装。
Sleep(500)
ControlClick($title,"下一步(&N)","Button2")
Sleep(500)
ControlSetText($title,"程序安装目录","Edit1","D:\Program Files\Tencent\QQ")
Sleep(1000)
ControlClick($title,"保存到安装目录下","Button7")
Sleep(500)
ControlClick($title,"安装(&I)","Button2")
ControlClick($title,"我已阅读并同意软件许可协议","Button1")
Sleep(500)
ControlClick($title,"下一步(&N)","Button3")
Sleep(500)
ControlClick($title,"安装QQ工具栏及中文搜搜","Button8") ;这是反选，即不安装。
Sleep(500)
ControlClick($title,"免费独享","Button11") ;这是反选，即不安装。
Sleep(500)
ControlClick($title,"下一步(&N)","Button2")
Sleep(500)
ControlSetText($title,"程序安装目录","Edit1","D:\Program Files\Tencent\QQ")
Sleep(1000)
ControlClick($title,"保存到安装目录下","Button7")
Sleep(500)
ControlClick($title,"安装(&I)","Button2")
WinWait($title,"安装完成")
WinActivate($title,"安装完成")
WinActivate($title,"安装完成")
Sleep(500)
ControlClick($title,"开机时自动启动腾讯QQ2012","Button8")
Sleep(500)
ControlClick($title,"立即运行腾讯QQ2012","Button6")
Sleep(500)
ControlClick($title,"设置腾讯网为主页","Button9")
Sleep(500)
ControlClick($title,"显示新特性","Button7")
Sleep(500)
ControlClick($title,"完成(&F)","Button2")
ControlClick($title,"开机时自动启动腾讯QQ2012","Button8")
Sleep(500)
ControlClick($title,"立即运行腾讯QQ2012","Button6")
Sleep(500)
ControlClick($title,"设置腾讯网为主页","Button9")
Sleep(500)
ControlClick($title,"显示新特性","Button7")
Sleep(500)
ControlClick($title,"完成(&F)","Button2")
Exit
标签: au3
发表评论：