QQ2011官方正式版全自动安装脚本

yangsheng1119

#RequireAdmin
Opt("TrayAutoPause",0)
Opt("MouseCoordMode",0)
BlockInput(1)
Run(@ScriptDir & "\QQ2011.exe")
$title="腾讯QQ2011 安装向导"
SendKeepActive($title,"")
$text1="我已阅读并同意软件许可协议和青少年上网安全指引"

WinWaitActive($title,$text1)
WinActive($title,$text1)
ControlCommand($title,$text1,"[CLASS:Button; INSTANCE:1]","check")
Sleep(100)
ControlClick($title,$text1,"[CLASS:Button; INSTANCE:3]")

$text2="请选择自定义安装选项与快捷方式选项"
WinWaitActive($title,$text2)
WinActive($title,$text2)


Controlclick($title,$text2,"[CLASS:Button; INSTANCE:9]")
Sleep(100)
ControlEnable($title,$text2,"[CLASS:Button; INSTANCE:10]")
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:10]")
Sleep(100)
ControlEnable($title,$text2,"[CLASS:Button; INSTANCE:11]")
controlshow($title,$text2,"[CLASS:Button; INSTANCE:11]")
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:11]")

Sleep(100)
ControlEnable($title,$text2,"[CLASS:Button; INSTANCE:12]")
controlshow($title,$text2,"[CLASS:Button; INSTANCE:12]")
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:12]")
Sleep(100)
ControlEnable($title,$text2,"[CLASS:Button; INSTANCE:17]")
controlshow($title,$text2,"[CLASS:Button; INSTANCE:17]")


ControlClick($title,$text2,"[CLASS:Button; INSTANCE:17]")

Sleep(100)
Controlshow($title,$text2,"[CLASS:Button; INSTANCE:18]")
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:18]")

Sleep(100)
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:19]")
Sleep(100)
Controlshow($title,$text2,"[CLASS:Button; INSTANCE:20]")
Controlclick($title,$text2,"[CLASS:Button; INSTANCE:20]")
ControlHide($title,$text2,"[CLASS:Button; INSTANCE:20]")
Sleep(100)
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:7]")
Sleep(100)
ControlClick($title,$text2,"[CLASS:Button; INSTANCE:2]")

$text3="请选择安装路径"
WinWaitActive($title,$text3)

WinActive($title,$text3)
ControlClick($title,$text3,"[CLASS:Button; INSTANCE:2]")


$text4="安装完成"
WinWaitActive($title,$text4)
WinActive($title,$text4)
Sleep(1000)
Controlclick($title,$text4,"[CLASS:Button; INSTANCE:8]")
Sleep(1000)
Controlclick($title,$text4,"[CLASS:Button; INSTANCE:6]")
Sleep(1000)

Controlclick($title,$text4,"[CLASS:Button; INSTANCE:9]")
Sleep(1000)

Controlclick($title,$text4,"[CLASS:Button; INSTANCE:7]")
Sleep(1000)
Controlclick($title,$text4,"[CLASS:Button; INSTANCE:2]")

FileDelete(@DesktopDir & "\WebQQ.url")
BlockInput(0)

liaoliang

脚本么，看都要钱
论坛在这样发展就么人了！

思明

试一试 谢谢分享

UID

流水线型作业，没技术含量

vsax

本来是为了做定制系统看看AUTOit，现在看来要好好学了

522744793

看不懂，自己不会，学习学习了

baozhiwen

可以作为学习的参考

一知半解__

感觉思路不错 可以学习 学习

joyran

太长了吧！不错

求学游子

楼主要是能加上汉字的注释我敢保证访问量倍增呀