本站有闲置空间

一键安装QQ2012

2012-12-29 tomeqiu 技术原创

;**
; 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 和本脚本文件置于同一目录下
TrayTip("", "正在安装QQ2012,请不要操作键盘或鼠标否则程序将无法自动安装下去!",15,1)
WinWait($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")
WinWait($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")
Exit

标签: au3

发表评论:

Powered by emlog  数据库调用 6次 加载耗时 25.35mssitemap
Free Web Hosting