QQ2009SP2自动安装脚本

netsdy

根据前辈代码修改!并非原创!

Run('QQ2009SP2.exe')
$hd="腾讯QQ2009 安装向导"
$hy="欢迎使用腾讯QQ2009"
$zdy="请选择自定义安装选项与快捷方式选项"
$lj="请选择安装路径"
$wc="安装完成"
WinWait($hd,$hy)
WinWaitActive($hd,$hy)
ControlClick($hd,"","Button1")
Send("!n")
WinWait($hd,$zdy)
WinWaitActive($hd,$zdy)
ControlClick($hd,"","Button9")
ControlClick($hd,"","Button8")
ControlClick($hd,"","Button10")
ControlClick($hd,"","Button11")
ControlClick($hd,"","Button7")
send("!n")
WinWait($hd,$lj)
WinWaitActive($hd,$lj)
ControlSetText($hd,"","Edit1","D:\Program Files\QQ")
send("!i")
WinWait($hd,$wc)
WinWaitActive($hd,$wc)
ControlClick($hd,"","Button6")
ControlClick($hd,"","Button7")
ControlClick($hd,"","Button8")
send("!f")