[原创] 分享学习的QQ软件自动安装

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_Icon=D:\AutoIt\QQ\QQ.ico
#AccAu3Wrapper_OutFile=D:\AutoIt\QQ\自动安装.exe
#AccAu3Wrapper_OutFile_x64=D:\AutoIt\QQ\自动安装_x64.exe
#AccAu3Wrapper_Compile_both=Y
#AccAu3Wrapper_Res_Description=QQ自动安装
#AccAu3Wrapper_Res_Fileversion=1.0.0.1
#AccAu3Wrapper_Res_ProductVersion=1.0
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#AccAu3Wrapper_Res_Field=Au3.Cc|Au3中文学院
#AccAu3Wrapper_Run_Tidy=Y
#AccAu3Wrapper_Run_Obfuscator=Y
#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1 /sci=0
#AccAu3Wrapper_Antidecompile=y
#AccAu3Wrapper_DBSupport=y
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
        
        Au3版本:        3.3.10.2
        脚本作者: 
        脚本功能: QQ自动安装程序
        更新日志: 
        联系方式: 991821254 
        
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Opt("MouseCoordMode", 0)
HotKeySet("{F11}", "Quit")
Local $Soft = "QQ.exe"
Local $Title = "腾讯QQ安装向导"
Local $Text1 = "软件许可协议和青少年上网安全指导"
Local $Text2 = "立即安装"
Local $Text3 = "正在安装..."
Local $Text4 = "完成安装"
Run($Soft)
TrayTip(" 安装提示 ", "为避免自动安装期间操作失败，请勿乱动键盘鼠标" & @CRLF & "若长时间无反应可按 F11 退出", 30, 4) 
WinWait($Title, $Text1)
WinActivate($Title, $Text1)
ControlClick($Title, $Text1, "Button6")

WinWait($Title, $Text2)
WinActivate($Title, $Text2)
ControlSetText($Title, $Text2, "Edit1", "D:\Program Files\Tencent\QQ")
Sleep(300)
ControlClick($Title, $Text2, "Button10")
Sleep(300)
ControlClick($Title, $Text2, "Button6")
Sleep(300)
ControlClick($Title, $Text2, "Button3")

WinWait($Title, $Text3)
WinActivate($Title, $Text3)

WinWait($Title, $Text4)
WinActivate($Title, $Text4)
Sleep(300)
TrayTip(" 请稍等！", "正在完成安装。。。，.", 30, 4)
If ProcessExists("QQ.exe") Then
        ProcessClose("QQ.exe")
EndIf
Sleep(100)
Func Quit()
        Exit
EndFunc   ;==>Quit