wurich614 发表于 2011-5-6 14:24:27

i-Aotit 自动安装 QQ2011 Beta2

本帖最后由 wurich614 于 2011-6-15 15:38 编辑

i-Aotit 后修改添加 有什么不对的地方给下提示 谢谢
官方不添加别的按钮情况下 应该能通用2011的版本
默认安装到C盘 可更改 QQ资料保存到我的文档 (可把我的文档和桌面都改到D盘去 这样做系统什么都不会丢数据了)
6.15 修改判断QQ电脑管家提示
;本脚本由i-Autoit-1.01 正式版 生成 ,非常感谢您的使用,请保留此脚本声明!2011年04月22日

;--------------------------------------------------------------;脚本开始

Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息
Opt("WinTextMatchMode", 1) ;1=完全匹配, 2=快速匹配
Opt("WinTitleMatchMode", 1) ;1=开头, 2=子串, 3=完全, 4=高级
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测
;--------------------------------------------------------------;设置脚本参数

TrayTip ( "温馨提示", "正在自动安装请不要动鼠标键盘"&@CRLF&"反馈http://www.joz7.com",5,4)
;--------------------------------------------------------------;右下角气泡提示
$WinTitle_1= '腾讯QQ2011 安装向导'
;$WinTitle_2= 'QQ电脑管家在线安装'
$Wintxt_1= '我已阅读并同意软件许可协议和青少年上网安全指引'
$Wintxt_2= '下一步(&N)'
$Wintxt_3= '安装QQ工具栏及中文搜搜'
$Wintxt_4= '安装QQ音乐播放器'
$Wintxt_5= '安装QQLive网络电视'
$Wintxt_6= '快速启动栏'
$Wintxt_7= '下一步(&N)'
$Wintxt_8= '保存到“我的文档”(推荐)'
$Wintxt_9= '安装(&I)'
$Wintxt_10= '立即运行腾讯QQ2011'
$Wintxt_11= '开机时自动启动腾讯QQ2011'
$Wintxt_12= '设置腾讯网为主页'
$Wintxt_13= '显示新特性'
$Wintxt_14= '完成(&F)'
;$Wintxt_15= '跳过,不安装'
;--------------------------------------------------------------;窗口元素变量声明


$Exe = 'QQ2011_Setup.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)

Do
        Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面


WinWaitActive($Wintitle_1, $Wintxt_1);
ControlClick($Wintitle_1, $Wintxt_1, "Button1");---------------;点击按钮控件: 我已阅读并同意软件许可协议和青少年上网安全指引
ControlClick($Wintitle_1, $Wintxt_2, "Button3");---------------;点击按钮控件: 下一步(&N)


WinWaitActive($Wintitle_1, $Wintxt_3);
ControlClick($Wintitle_1, $Wintxt_3, "Button9");---------------;点击按钮控件: 安装QQ工具栏及中文搜搜
ControlClick($Wintitle_1, $Wintxt_4, "Button12");---------------;点击按钮控件: 安装QQ音乐播放器
ControlClick($Wintitle_1, $Wintxt_5, "Button17");---------------;点击按钮控件: 安装QQLive网络电视
ControlClick($Wintitle_1, $Wintxt_6, "Button7");---------------;点击按钮控件: 快速启动栏
ControlClick($Wintitle_1, $Wintxt_7, "Button2");---------------;点击按钮控件: 下一步(&N)


WinWaitActive($Wintitle_1, $Wintxt_8);
;ControlSetText($Wintitle_1, "", "Edit1", "C:\Program Files\Tencent\QQ");------;重置文本框控件文本
ControlClick($Wintitle_1, $Wintxt_8, "Button8");---------------;点击按钮控件: 保存到“我的文档”(推荐)
ControlClick($Wintitle_1, $Wintxt_9, "Button2");---------------;点击按钮控件: 安装(&I)


WinWaitActive($Wintitle_1, $Wintxt_10);
ControlClick($Wintitle_1, $Wintxt_10, "Button6");---------------; '立即运行腾讯QQ2011'
ControlClick($Wintitle_1, $Wintxt_11, "Button8");---------------; '开机时自动启动腾讯QQ2011'
ControlClick($Wintitle_1, $Wintxt_12, "Button9");---------------; '设置腾讯网为主页'
ControlClick($Wintitle_1, $Wintxt_13, "Button7");---------------; '显示新特性'
ControlClick($Wintitle_1, $Wintxt_14, "Button2");---------------; '完成(&F)'


If ProcessWait("QQPCDownload.exe", 2) Then ProcessClose("QQPCDownload.exe")
;--------------------------------------------------------------;结束安装QQ电脑管家提示 (如果已经安装了 就不会提示)

楼上风云 发表于 2011-5-6 16:58:52

建议把I-AOTIT附带上

wurich614 发表于 2011-5-6 18:52:31

回复 2# 楼上风云


    额 这是lynfr8的工具 论坛里很火的呀
http://www.autoitx.com/thread-7784-1-2.html

ycan888 发表于 2011-5-22 18:49:39

真有这么好吗,我想要了

chentuyu1203 发表于 2012-12-6 12:11:00

看一下。。。
页: [1]
查看完整版本: i-Aotit 自动安装 QQ2011 Beta2