QQ2009SP5 自动安装脚本

159753

小弟初学AU3写了个QQ2009SP5 自动安装脚本。现在贴出来跟大家分享下！
===================华丽的分割线====================
Run('QQ2009.exe')
WinWait("腾讯QQ2009 安装向导","我已阅读并同意软件许")
If Not WinActive("腾讯QQ2009 安装向导","我已阅读并同意软件许") Then WinActivate("腾讯QQ2009 安装向导","我已阅读并同意软件许")
WinWaitActive("腾讯QQ2009 安装向导","我已阅读并同意软件许")
ControlClick("腾讯QQ2009 安装向导","我已阅读并同意软件许","Button1")
Send("{ALTDOWN}n{ALTUP}")
WinWait("腾讯QQ2009 安装向导","自定义安装选项")
If Not WinActive("腾讯QQ2009 安装向导","自定义安装选项") Then WinActivate("腾讯QQ2009 安装向导","自定义安装选项")
WinWaitActive("腾讯QQ2009 安装向导","自定义安装选项")
ControlClick("腾讯QQ2009 安装向导","安装QQ软件管理","Button8")
ControlClick("腾讯QQ2009 安装向导","安装中文搜搜","Button9")
ControlClick("腾讯QQ2009 安装向导","安装QQ拼音输入法","Button10")
ControlClick("腾讯QQ2009 安装向导","安装QQ音乐播放器","Button11")
ControlClick("腾讯QQ2009 安装向导","快速启动栏","Button7")
Send("{ALTDOWN}n{ALTUP}")
WinWait("腾讯QQ2009 安装向导","腾讯QQ2009 安装向导")
If Not WinActive("腾讯QQ2009 安装向导","腾讯QQ2009 安装向导") Then WinActivate("腾讯QQ2009 安装向导","腾讯QQ2009 安装向导")
WinWaitActive("腾讯QQ2009 安装向导","请选择安装路径")
ControlSetText("腾讯QQ2009 安装向导","请选择安装路径","Edit1","D:\Program Files\QQ")
ControlClick("腾讯QQ2009 安装向导","","Button8")
Send("{ALTDOWN}I{ALTUP}")
WinWait("腾讯QQ2009 安装向导","安装完成")
If Not WinActive("腾讯QQ2009 安装向导","安装完成") Then WinActivate("腾讯QQ2009 安装向导","安装完成")
WinWaitActive("腾讯QQ2009 安装向导","安装完成")
ControlClick("腾讯QQ2009 安装向导","立即运行腾讯QQ2009","Button6")
ControlClick("腾讯QQ2009 安装向导","开机时自动启动腾讯QQ2009","Button8")
ControlClick("腾讯QQ2009 安装向导","设置腾讯网为主页","Button9")
ControlClick("腾讯QQ2009 安装向导","显示新特性","Button7")
Send("{ALTDOWN}f{ALTUP}")
========================华丽的分割线============================
QQ2009SP5自动安装脚本说明
1.安装目录：D:\Program Files\QQ
2.个人文件夹保存到“我的文档”
3.取消安装QQ软件管理
4.取消安装中文搜搜
5.取消安装QQ拼音输入法
6.取消安装QQ音乐播放器
7.设置桌面快捷方式
8.取消快速启动栏快捷方式
9.取消安装完成后立即运行
10.取消安装完成后显示新特性
11.取消开机启动
12.取消设置腾讯网为主页

bluegua

谢谢你的提供，我正需要呢，希望继续发布一些常用的装机工具安装方法。。。我试过以后反馈
谢谢啦~

bluegua

经过测试正常安装
再次谢谢楼主

iamwonvy

If Not WinActive("腾讯QQ2009 安装向导","我已阅读并同意软件许") Then WinActivate("腾讯QQ2009 安装向导","我已阅读并同意软件许")
If Not WinActive("腾讯QQ2009 安装向导","腾讯QQ2009 安装向导") Then WinActivate("腾讯QQ2009 安装向导","腾讯QQ2009 安装向导")
请问这两句什么意思啊？

159753

如果窗口没激活则检测窗口是否激活。

iamwonvy

那如果窗口没激活，是不是继续WinWaitActive（等待激活），不好意思还有个问题WinWait和WinWaitActive有什么区别啊

159753

WinWaitActive 是等待窗口激活
WinWait 是等待窗口出现
两个是不同的~~

iamwonvy

哦，明白了，谢谢你

ljsoso

额。。。看错了，我以为是自动登录的源码了。。。真难求

魂_

Send("{ALTDOWN}f{ALTUP}")
请问 这个能不能 换成Send("!f")
不是更方便吗 ?

btking

谢谢楼主的提供，我正需要呢

binghc

回复 1# 159753

boy-119

我想问一问Send("{ALTDOWN}n{ALTUP}")这句不能用send("!n")或send("^n")来代替吗？它们之间有什么不同呀？？

devilma

谢谢提供，已经收藏了

哭泣的亚当

下来看看学习下