论坛 › 已解决问题区 › QQ2008官方最新版自动安装，去中问搜搜!

a36817857 发表于 2009-1-15 11:59:16

QQ2008官方最新版自动安装，去中问搜搜!

官方版最新QQ下载：
官方地址:http://dl_dir.qq.com/qqfile/qq/QQ2008stablehij/QQ2008IIBeta1.exe
开始代码
SplashTextOn("****警告****","自动安装过程中请勿进行键盘与鼠标的操作,否则,自动安装会崩溃!",200,100,80,80)
TrayTip( "****警告****", "操作过程鼠标键盘自动锁定！若有出错请按CTRL+ALT+DEL结束任务",50)
run("QQ2008IIBeta1.exe")
WinWaitActive("QQ2008II Beta1 安装","欢迎使用 QQ2008II Beta1 安装向导")
send("!i")
WinWaitActive("QQ2008II Beta1 安装","选定使用环境")
ControlClick("QQ2008II Beta1 安装","选定使用环境","")
ControlClick("QQ2008II Beta1 安装","选定使用环境","")
send("!n")
WinWaitActive("QQ2008II Beta1 安装 ","选定安装位置和组件")
ControlSetText("QQ2008II Beta1 安装","下一步","Edit1","d:\qq")
ControlClick("QQ2008II Beta1 安装 ","选定安装位置和组件","")
ControlClick("QQ2008II Beta1 安装 ","选定安装位置和组件","")
ControlClick("QQ2008II Beta1 安装 ","选定安装位置和组件","")
Opt("MouseCoordMode",0)
MouseMove(30,250,1)
MouseClick("left")
sleep(500)
send("!n")
WinWaitActive("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导")
ControlClick("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导","")
ControlClick("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导","")
ControlClick("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导","")
send("!f")
FileDelete(@ProgramsDir&"\启动\腾讯QQ.lnk")

结束代码



直接复制代码去进行测试，QQ运行程序在本目录下即可!

[ 本帖最后由 a36817857 于 2009-1-15 12:34 编辑 ]

a36817857 发表于 2009-1-15 12:00:37

觉得好就给个回复吧!:face (29): :face (29):

sxd 发表于 2009-1-15 15:30:27

("****警告****","自动安装过程中请勿进行键盘与鼠标的操作,否则,自动安装会崩溃!",
这个很雷啊
还不如把这警告换成BlockInput(1)

minghui 发表于 2010-6-13 17:27:33

安装中文搜搜去掉了吗? 好像也不行的吧我的脚本就是这样写的,但还是会安装中文搜搜

查看完整版本: QQ2008官方最新版自动安装，去中问搜搜!