121044246 发表于 2010-9-14 23:30:26

QQ2010

$title= "腾讯QQ2010"
WinWait($title,"欢迎使用")
ControlClick($title,"欢迎使用","我已阅读并同意软件许可协议和青少年上网安全指引")
Sleep(100)
ControlClick($title,"欢迎使用","下一步(&N)")

WinWait($title,"请选择自定义安装选项与快捷方式选项")
ControlClick($title,"请选择自定义安装选项与快捷方式选项","安装QQ工具栏及中文搜搜")
Sleep(100)
ControlClick($title,"请选择自定义安装选项与快捷方式选项","安装QQ拼音输入法")
Sleep(100)
ControlClick($title,"请选择自定义安装选项与快捷方式选项","安装QQ音乐播放器")
Sleep(100)
ControlClick($title,"请选择自定义安装选项与快捷方式选项","快速启动栏")
Sleep(100)
ControlClick($title,"请选择自定义安装选项与快捷方式选项","下一步(&N)")

WinWait($title,"请选择安装路径")
ControlClick($title,"请选择安装路径","保存到“我的文档”(推荐)")
Sleep(100)
ControlClick($title,"请选择安装路径","安装(&I)")

WinWait($title,"安装完成")
ControlClick($title,"安装完成","立即运行腾讯QQ2010")
Sleep(100)
ControlClick($title,"安装完成","开机时自动启动腾讯QQ2010")
Sleep(100)
ControlClick($title,"安装完成","设置腾讯网为主页")
Sleep(100)
ControlClick($title,"安装完成","显示新特性")
Sleep(100)
ControlClick($title,"安装完成","完成(&F)")

Sleep(2000)

$QQSoftMgr=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QQSoftMgr","UninstallString")
If @error Then Exit
ShellExecute($QQSoftMgr)
WinWait("QQ软件管理","卸载 QQ软件管理")
ControlClick("QQ软件管理","卸载 QQ软件管理","卸载(&U)")

WinWait("QQ软件管理","完成(&F)")
ControlClick("QQ软件管理","完成(&F)","完成(&F)")

少马石 发表于 2010-9-15 06:36:45

Sleep(2000)

这个针对不同的机器配置，需要调整吗

mapleleaf 发表于 2010-9-15 08:31:17

都是自动安装的么？

121044246 发表于 2010-9-15 09:27:32

回复 2# 少马石


    不用，多打了一个0不过也没影响

121044246 发表于 2010-9-15 09:27:49

回复 3# mapleleaf


    都是自动的

5i5wei 发表于 2010-12-12 22:04:00

{:face (356):}路过支持下
页: [1]
查看完整版本: QQ2010