#NoTrayIcon
#RequireAdmin
$Bt = "腾讯QQ2011 安装向导"
$type = DriveGetType("D:")
$raw = DriveStatus("D:")
If $type = "Fixed" And $raw <> "UNKNOWN" Then
Run(@ScriptDir & "\QQ2011Beta4.exe")
WinWait($Bt, "欢迎使用腾讯QQ2011")
WinActivate($Bt, "欢迎使用腾讯QQ2011")
ControlCommand($Bt, "欢迎使用腾讯QQ2011", "Button1", "Check", "")
ControlClick($Bt, "欢迎使用腾讯QQ2011", "Button3")
WinWaitActive($Bt, "请选择自定义安装选项与快捷方式选项")
ControlCommand($Bt, "请选择自定义安装选项与快捷方式选项", "Button7", "UnCheck", "")
ControlCommand($Bt, "请选择自定义安装选项与快捷方式选项", "Button9", "UnCheck", "")
ControlCommand($Bt, "请选择自定义安装选项与快捷方式选项", "Button12", "UnCheck", "")
ControlCommand($Bt, "请选择自定义安装选项与快捷方式选项", "Button17", "UnCheck", "")
ControlCommand($Bt, "请选择自定义安装选项与快捷方式选项", "Button19", "UnCheck", "")
sleep(500)
ControlClick($Bt, "请选择自定义安装选项与快捷方式选项", "Button2")
WinWaitActive($Bt, "请选择安装路径")
ControlSetText($Bt, "请选择安装路径", "Edit1", "D:\Program Files\Tencent\QQ")
ControlClick($Bt, "请选择安装路径", "Button2")
WinWaitActive($Bt, "软件更新方式")
ControlCommand($Bt, "软件更新方式", "Button2", "Check", "")
ControlClick($Bt, "软件更新方式", "Button4")
WinWaitActive($Bt, "立即运行腾讯QQ2011")
ControlCommand($Bt, "立即运行腾讯QQ2011", "Button6", "UnCheck", "")
ControlCommand($Bt, "立即运行腾讯QQ2011", "Button7", "UnCheck", "")
ControlCommand($Bt, "立即运行腾讯QQ2011", "Button8", "UnCheck", "")
ControlCommand($Bt, "立即运行腾讯QQ2011", "Button9", "UnCheck", "")
sleep(500)
ControlClick($Bt, "立即运行腾讯QQ2011", "Button2")
FileDelete(@DesktopDir & "\WEBQQ.lnk")
Else
FileWriteLine(@DesktopDir & "\D盘不可写入,请手动安装这些软件.txt", "QQ2011")
EndIf
"立即运行腾讯QQ2011"这里,这个文字换成页面的其它文字都不行,标题看了也是对的。