QQ2009自动安装代码，请高手给看看有需要改进的地方吗？

ytxldc

run("QQ2009_chs.exe")
WinWaitActive("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")
ControlClick("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","Button1")
ControlClick("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","Button3")
WinWaitActive("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button9") ；去除一些不需要的选项
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button8")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button10")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button11")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button7")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button2")
WinWaitActive("腾讯QQ2009 安装向导","程序安装目录")
ControlSetText("腾讯QQ2009 安装向导","程序安装目录","Edit1","E:\QQ\qq2009")
ControlClick("腾讯QQ2009 安装向导","程序安装目录","Button2")
WinWaitActive("腾讯QQ2009 安装向导","安装完成")
ControlClick("腾讯QQ2009 安装向导","安装完成","Button6")
ControlClick("腾讯QQ2009 安装向导","安装完成","Button7")
ControlClick("腾讯QQ2009 安装向导","安装完成","Button8")
ControlClick("腾讯QQ2009 安装向导","安装完成","Button2")

holygg0123

ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button9") ；去除一些不需要的选项
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button8")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button10")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button11")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button7")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button2")

ControlClick这个可以重复用的吗.?

ytxldc

可以的，上面那些代码前5行是一些不需要的选项，最后一下是“下一步”按扭，只要控件ID写准了就行。

zxpcc

这是我写的，大家看一下。

Run('QQ2009sp3.exe')
$hd="腾讯QQ2009 安装向导"
WinWait($hd,"我已阅读并同意")
WinWaitActive($hd,"我已阅读并同意")
controlcommand($hd,"欢迎使用腾讯QQ2009","Button1","check")
Send("!n")
WinWait($hd,"快捷方式选项")
WinWaitActive($hd,"快捷方式选项")
controlcommand($hd,"快捷方式选项","Button6","uncheck")
controlcommand($hd,"快捷方式选项","Button7","uncheck")
controlcommand($hd,"快捷方式选项","Button8","uncheck")
controlcommand($hd,"快捷方式选项","Button9","uncheck")
controlcommand($hd,"快捷方式选项","Button10","uncheck")
controlcommand($hd,"快捷方式选项","Button11","uncheck")
send("!n")
WinWait($hd,"请选择安装路径")
WinWaitActive($hd,"请选择安装路径")
send("!i")
WinWait($hd,"安装完成")
WinWaitActive($hd,"安装完成")
controlcommand($hd,"安装完成","Button6","uncheck")
controlcommand($hd,"安装完成","Button7","uncheck")
controlcommand($hd,"安装完成","Button8","uncheck")
controlcommand($hd,"安装完成","Button9","uncheck")
send("!f")

icq224639289

那么也来看看我写的这个怎么样吧!
最后面两行删除的文件是QQ里我认为没有用的东西!反正删除了也不影响使用!

traytip("腾讯QQ2009自动安装","自动安装期间请勿做其它操作,否则有可能安装失败",15)
Run("QQ2009SP3.exe")
$bt="腾讯QQ2009 安装向导"
WinWait($bt,"欢迎使用腾讯QQ2009")
WinWaitActive($bt,"欢迎使用腾讯QQ2009")
ControlCommand($bt,"我已阅读并同意软件许可协议和青少年上网安全指导","Button1","check")
ControlClick($bt,"下一步(&N)","Button3")
WinWait($bt,"请选择自定义安装选项与快捷方式选项")
WinWaitActive($bt,"请选择自定义安装选项与快捷方式选项")
ControlCommand($bt,"安装QQ软件管理","Button8","uncheck")
ControlCommand($bt,"安装QQ工具栏及中文搜搜","Button9","uncheck")
ControlCommand($bt,"安装QQ拼音输入法","Button10","uncheck")
ControlCommand($bt,"安装QQ音乐播放器","Button11","uncheck")
ControlCommand($bt,"桌面","Button6","check")
ControlCommand($bt,"快速启动栏","Button7","uncheck")
ControlClick($bt,"下一步(&N)","Button2")
WinWait($bt,"请选择安装路径")
WinWaitActive($bt,"请选择安装路径")
ControlSetText($bt,"程序安装目录","Edit1","D:\Program Files\Tencent\QQ")
ControlClick($bt,"安装(&I)","Button2")
WinWaitActive($bt,"安装完成")
ControlCommand($bt,"立即运行腾讯QQ2009","Button6","uncheck")
ControlCommand($bt,"显示新特性","Button7","uncheck")
ControlCommand($bt,"开机时自动启动腾讯QQ2009","Button8","uncheck")
ControlCommand($bt,"设置腾讯网为主页","Button9","uncheck")
controlclick($bt,"完成(&F)","Button2")
FileDelete ("D:\Program Files\Tencent\QQ2009\Bin\TXPFProxy.dll")
FileDelete ("D:\Program Files\Tencent\QQ2009\Bin\TXPlatform.exe")

caoyuanyue

很强大，不错

xiaofeng206

不错，虽然现在还看不懂