QQ2009正式版自动安装脚本(重新发布)

zzfbz

此脚本得到lynfr8的大力支持，请大家指点
QQ2009正式版自动安装脚本说明
1.安装目录：D:\Program Files\QQ
2.个人文件夹保存到“我的文档”
3.取消把腾讯设为首页
4.取消安装腾讯软件管理器
5.取消安装中文搜搜
6.设置桌面快捷方式
7.取消快速启动栏快捷方式
8.取消安装完成后立即运行
9.取消安装完成后显示新特性
10.取消开机启动
Run('QQ2009.exe')
$hd="腾讯QQ2009 安装向导"
WinWait($hd,"我已阅读并同意")
WinWaitActive($hd,"我已阅读并同意")
ControlClick($hd,"","Button1")
Send("!n")
WinWait($hd,"自定义安装选项")
WinWaitActive($hd,"自定义安装选项")
ControlClick($hd,"","Button9")
ControlClick($hd,"","Button8")
ControlClick($hd,"","Button10")
ControlClick($hd,"","Button11")
ControlClick($hd,"","Button7")
send("!n")
WinWait($hd,"请选择安装路径")
WinWaitActive($hd,"请选择安装路径")
ControlSetText($hd,"","Edit1","D:\Program Files\QQ")
ControlClick($hd,"","Button8")
send("!i")
WinWait($hd,"安装完成")
WinWaitActive($hd,"安装完成")
ControlClick($hd,"","Button6")
ControlClick($hd,"","Button7")
ControlClick($hd,"","Button8")
send("!f")
sleep(10000) ;考虑到个别电脑可能比较慢，或者要转移的资料多，所以这儿的延迟时间设得比较大
if winactive("QQ数据迁移") Then
   send("{ENTER}")
EndIf

[ 本帖最后由 zzfbz 于 2009-4-21 10:42 编辑 ]

小新同学

下载下来研究一下~~~谢谢·~~~

小新同学

我明白了·~谢谢大家·~~~呵呵·~~

zzfbz

初涉Autoit，请多多指教

zzfbz

某些电脑完成安装后，会出现QQ数据转换完成的提示窗，今天作了一点修改，延迟时间设得比较大，大家可以适当调整。

zzfbz

觉得好用的给点鼓励，觉得不好的给点建议

sbyguli

看错了,以为是自己登录,晕

hjq766

支持下·
    下来学习学习···

zzfbz

谢谢大家的鼓励！

lzl88123

两个，到底是那个哟？谢谢

caogong

很好，下下来研究一下。

zzfbz

两个，到底是那个哟？谢谢
lzl88123 发表于 2009-5-3 21:58

后面一个，4月21日更新

ljtbbs

下载下来研究一下~~~谢谢·~~~

ncz_ch

$hd="腾讯QQ2009 安装向导"
这句中的$hd是什么意思啊！看到不少脚本中有，但一直不知道干什么的，能给解释一下吗？

ncz_ch

$hd="腾讯QQ2009 安装向导"
这句中的$hd是什么意思啊！看到不少脚本中有，但一直不知道干什么的，能给解释一下吗？