擦肩而过 发表于 2019-3-5 17:05:56

分享学习的QQ软件自动安装

   以前在IT天空学封装，接触AU3，用AU3写一些小工具 ，（ACN与IT天空都有账号）时间过去 N久AU3已忘记了，最近空闲时间比较多，抽时间想把AU3学学好
分享自己写的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


可能写的不好，论坛大神请多多指教{:face (293):}


























radium 发表于 2020-4-2 10:38:03

好像没有旧QQ升级的判定。

cfenjin 发表于 2020-5-19 08:26:32

学习了，感谢分享

tjlzh 发表于 2020-6-17 16:28:41

谢谢 收藏了啊

SGTAO 发表于 2021-3-11 13:11:46

学习的好版本

668674 发表于 2021-12-11 13:22:46


学习了，感谢分享

chenfeng_jx 发表于 2022-11-20 19:56:08

感谢楼主的代码分享！！！
页: [1]
查看完整版本: 分享学习的QQ软件自动安装