一键安装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

« visudo配置文件简介 | 用脚本更改"本地连接"IP信息»

发表评论：

窝窝青年

It is 155.biz

一键安装QQ2012

搜索

日历

存档

最新评论

热门文章

标签