QQ影音1.3自动安装_au3代码

ouruola119

官方下载地址：http://dl_dir.qq.com/invc/QQPlayer_Setup_1.3.430.400.exe
安装过程中，自动锁定鼠标键盘操作，但不能锁定ctrl+alt+del，自动安装路径是：C:\Program Files\Tencent\QQPlayer，安装完毕删除快速启动栏里的QQ影音快捷方式。

注意你下载的文件名字
QQ影音文件名字一定是 QQPlayer_Setup_1.3.430.400.exe
一定放到和你的程序同文件夹
如果出现问题，ctrl+alt+del，安装过程中自动锁定鼠标键盘。

代码如下：


BlockInput(1)

TrayTip("", "正在安装QQ影音播放器，请稍等", 5)

Run(@ScriptDir&"\QQPlayer_Setup_1.3.430.400.exe")

WinWait("QQ影音1.3 安装","欢迎使用“QQ影音1.3”安装向导")

WinActivate("QQ影音1.3 安装","欢迎使用“QQ影音1.3”安装向导")

Send("!N")

WinWait("QQ影音1.3 安装","授权协议")

WinActivate("QQ影音1.3 安装","授权协议")

Send("!I")

WinWait("QQ影音1.3 安装","选择组件")

WinActivate("QQ影音1.3 安装","选择组件")

Send("!N")

WinWait("QQ影音1.3 安装","选择安装位置")

WinActivate("QQ影音1.3 安装","选择安装位置")

ControlSetText("QQ影音1.3 安装","选择安装位置","Edit1","C:\Program Files\Tencent\QQPlayer")

Send("!I")

WinWait("QQ影音1.3 安装","“QQ影音1.3”安装完成")

WinActivate("QQ影音1.3 安装","“QQ影音1.3”安装完成")

ControlCommand("QQ影音1.3 安装", "“QQ影音1.3”安装完成", "Button4", "UnCheck", "")

WinWait("QQ影音1.3 安装","“QQ影音1.3”安装完成")

WinActivate("QQ影音1.3 安装","“QQ影音1.3”安装完成")

Send("!F")

FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\QQ影音.lnk")

BlockInput(0)

TrayTip("清除任何托盘提示","",0)

TrayTip("", "QQ影音安装完毕", 5)

Sleep(2000)

wenfengbj

嗯 好使   

sudublog

Send
--------------------------------------------------------------------------------------------------
向激活窗口发送模拟键击操作。
Send ( "按键" [, 标志] )

'!'
表示告知 AutoIt 要发送一个 ALT 键击动作，因此语句 Send("www.sudublog.com!a") 的意思是按序发送按键 "www.sudublog.com" 然后在按下"ALT+a"。

注意，有些程序对大小写字符和 ALT 键相当挑剔，举例来说，"!A" 可能会被认为不同于 "!a"；第一个代表 ALT+SHIFT+A，而第二个则代表 ALT+a。如果拿不准的话最好使用小写！
--------------------------------------------------------------------------------------------------

所以：
Send("!N")     表示是：发送按键ALT+SHIT+N
Send("!I")      表示是：发送按键ALT+SHIT+I
Send("!F")     表示是：发送按键ALT+SHIT+F