QQ影音自动安装脚本

chasedream

一个新手学习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 = "[CLASS:#32770]"
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,"","[CLASS:Button; INSTANCE:2]")
_WinWaitActivate($AppName,"在安装“QQ影音2.7”之前，请阅读授权")
ControlClick($AppName,"","[CLASS:Button; INSTANCE:2]")
_WinWaitActivate($AppName,"选择你想要安装“QQ影音2.7”的那些功")
ControlClick($AppName,"","[CLASS:Button; INSTANCE:2]")
_WinWaitActivate($AppName,"安装向导将安装 “QQ影音2.7” 在下")
ControlSetText($AppName,"","[CLASS:Edit; INSTANCE:1]",$installpath)
ControlClick($AppName,"","[CLASS:Button; INSTANCE:2]")
_WinWaitActivate($AppName,"QQ影音2.7”已安装在你的系统。")
ControlClick($AppName,"","[CLASS:Button; INSTANCE:4]")
ControlClick($AppName,"","[CLASS:Button; INSTANCE:2]")

;清除多余文件
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 ---

颜勇

没人顶 我来顶下