QQ影音自动安装脚本
一个新手学习AU3的第一次成果，自动安装脚本！#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Au3 版本: v3.3.6.1
脚本作者: ChaseDream
Email: 76993559@qq.com
QQ/TM: 76993559
脚本版本: 2.7.771.400
脚本功能: QQ影音
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#region ---Au3Recorder generated code Start ---
Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Dim $AppName = ""
Dim $App = @ScriptDir&"\QQPlayer_Setup_27_771_p1.exe"
Dim $installpath = "D:\Program Files\Tencent\QQPlayer"
Run($App)
_WinWaitActivate($AppName,"这个向导将指引你完成“QQ影音2.7”的")
ControlClick($AppName,"","")
_WinWaitActivate($AppName,"在安装“QQ影音2.7”之前，请阅读授权")
ControlClick($AppName,"","")
_WinWaitActivate($AppName,"选择你想要安装“QQ影音2.7”的那些功")
ControlClick($AppName,"","")
_WinWaitActivate($AppName,"安装向导将安装 “QQ影音2.7” 在下")
ControlSetText($AppName,"","",$installpath)
ControlClick($AppName,"","")
_WinWaitActivate($AppName,"QQ影音2.7”已安装在你的系统。")
ControlClick($AppName,"","")
ControlClick($AppName,"","")
;清除多余文件
FileDelete(@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\QQ影音.lnk")
#region --- Internal functions Au3Recorder Start ---
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
#endregion --- Internal functions Au3Recorder End ---
#endregion --- Au3Recorder generated code End ---
没人顶 我来顶下
页:
[1]