159753 发表于 2009-11-3 12:25:40

QQ2009SP5 自动安装脚本

本帖最后由 159753 于 2009-11-3 12:38 编辑

小弟初学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 发表于 2009-11-4 09:33:53

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

bluegua 发表于 2009-11-4 09:42:25

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

iamwonvy 发表于 2009-11-5 14:54:28

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

159753 发表于 2009-11-5 15:07:09

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

iamwonvy 发表于 2009-11-5 15:23:59

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

159753 发表于 2009-11-5 15:42:45

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

iamwonvy 发表于 2009-11-5 16:50:25

哦，明白了，谢谢你

ljsoso 发表于 2009-11-18 18:35:49

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

魂_ 发表于 2009-12-19 23:51:51

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

btking 发表于 2009-12-21 09:17:13

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

binghc 发表于 2009-12-28 20:26:17

:face (37):回复 1# 159753

boy-119 发表于 2009-12-29 16:16:56

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

devilma 发表于 2009-12-29 21:34:01

谢谢提供，已经收藏了

哭泣的亚当 发表于 2010-1-7 16:35:34

下来看看学习下
页: [1] 2
查看完整版本: QQ2009SP5 自动安装脚本