用到的程序下载au3.7z
说明:
1.其实这个东西挺简单的,看看就会,本来不打算出教程,但是某网友纠结,只好做了
2.由于教程在虚拟机下录制,只有一个分区,视频中测试的时候提示目录不存在,实际使用中不会有问题
教程中改好的代码
#requireadmin
traytip(" 鱼雁可提示","自动安装期间为避免操作失败,请勿动键盘鼠标",30,4)
Local $InstallPath
If $Cmdline[0] <> 0 Then
$InstallPath = $Cmdline[1]
EndIf
Run(@ScriptDir & "\QQ2011Beta3_Dmcl.exe")
WinWait("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
WinActivate("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
WinWaitActive("腾讯QQ2011 安装向导","在安装软件前, 请仔细阅读下面的软件许可协议和青少年上网安全指引。")
ControlClick("腾讯QQ2011 安装向导","我已阅读并同意软件许可协议和青少年上网安全指引","Button1")
Send("!N")
WinActivate("腾讯QQ2011 安装向导","快捷方式选项")
WinWaitActive("腾讯QQ2011 安装向导","快捷方式选项")
Send("!N")
WinActivate("腾讯QQ2011 安装向导","请选择安装路径")
WinWaitActive("腾讯QQ2011 安装向导","请选择安装路径")
ControlSetText("腾讯QQ2011 安装向导","请选择安装路径","Edit1","D:\Program Files\Tencent\QQ")
Send("!I")
WinActivate("腾讯QQ2011 安装向导","安装完成")
WinWaitActive("腾讯QQ2011 安装向导","安装完成")
ControlClick("腾讯QQ2011 安装向导","安装完成","立即运行腾讯QQ2011")
Send("!F")
Exit