QQ影音1.3自动安装_au3代码
本帖最后由 ouruola119 于 2009-7-14 18:48 编辑官方下载地址：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) 嗯 好使 :face (21): 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
页:
[1]