找回密码
 加入
搜索
查看: 3429|回复: 6

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

[复制链接]
发表于 2019-3-5 17:05:56 | 显示全部楼层 |阅读模式
     以前在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
可能写的不好,论坛大神请多多指教


























评分

参与人数 1金钱 +17 收起 理由
lpxx + 17 赞一个!

查看全部评分

发表于 2020-4-2 10:38:03 | 显示全部楼层
好像没有旧QQ升级的判定。
发表于 2020-5-19 08:26:32 | 显示全部楼层
学习了,感谢分享
发表于 2020-6-17 16:28:41 | 显示全部楼层
谢谢 收藏了啊
发表于 2021-3-11 13:11:46 | 显示全部楼层
学习的好版本
发表于 2021-12-11 13:22:46 | 显示全部楼层

学习了,感谢分享
发表于 2022-11-20 19:56:08 | 显示全部楼层
感谢楼主的代码分享!!!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-22 01:03 , Processed in 0.147825 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表