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

a36817857

官方版最新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 安装","选定使用环境","[class:Button;INSTANCE:6]")
ControlClick("QQ2008II Beta1 安装","选定使用环境","[class:Button;INSTANCE:10]")
send("!n")
WinWaitActive("QQ2008II Beta1 安装 ","选定安装位置和组件")
ControlSetText("QQ2008II Beta1 安装","下一步","Edit1","d:\qq")
ControlClick("QQ2008II Beta1 安装 ","选定安装位置和组件","[class:Button;INSTANCE:4]")
ControlClick("QQ2008II Beta1 安装 ","选定安装位置和组件","[class:Button;INSTANCE:5]")
ControlClick("QQ2008II Beta1 安装 ","选定安装位置和组件","[class:Button;INSTANCE:6]")
Opt("MouseCoordMode",0)
MouseMove(30,250,1)
MouseClick("left")
sleep(500)
send("!n")
WinWaitActive("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导")
ControlClick("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导","[class:Button;INSTANCE:4]")
ControlClick("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导","[class:Button;INSTANCE:5]")
ControlClick("QQ2008II Beta1 安装","完成 QQ2008II Beta1 安装向导","[class:Button;INSTANCE:6]")
send("!f")
FileDelete(@ProgramsDir&"\启动\腾讯QQ.lnk")

结束代码



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

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

a36817857

觉得好就给个回复吧!

sxd

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

minghui

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