i-Aotit 自动安装 QQ影音QQ影音3.0(822)

wurich614

i-Aotit 后修改添加 有什么不对的地方给下提示 谢谢
官方不添加别的按钮情况下 应该能通用以后版本

;本脚本由i-Autoit-1.01 正式版 生成 ,非常感谢您的使用,请保留此脚本声明!  2011年04月21日

;--------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息
Opt("WinTextMatchMode", 1) ;1=完全匹配, 2=快速匹配
Opt("WinTitleMatchMode", 1) ;1=开头, 2=子串, 3=完全, 4=高级
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测
;--------------------------------------------------------------;设置脚本参数
$WinTitle_1= 'QQ影音'
$WinTitle_2= 'QQ影音';----------------------------------;本来这两个窗口标题不一样的 但我设置的完全匹配 匹配开头，这样设置应该能通用版本（官方不添加别的按钮情况下）
;-------------------------------------------------------------;保留这个是怕官方做大的修改，备用的
$Wintxt_1= '下一步(&N) >'
$Wintxt_2= '我接受(&I)'
$Wintxt_3= '下一步(&N) >'
$Wintxt_4= '安装(&I)'
$Wintxt_5= '完成(&F)'
;--------------------------------------------------------------;窗口元素变量声明

TrayTip ( "温馨提示", "正在自动安装请不要动鼠标键盘"&@CRLF&"反馈http://www.joz7.com",5,4) 
;--------------------------------------------------------------;右下角气泡提示

$Exe = 'QQPlayer_Setup.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)

Do
        Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面


WinWaitActive($Wintitle_1, $Wintxt_1);
ControlClick($Wintitle_1, $Wintxt_1, "Button2");---------------;点击按钮控件: 下一步(&N) >


WinWaitActive($Wintitle_2, $Wintxt_2);
ControlClick($Wintitle_2, $Wintxt_2, "Button2");---------------;点击按钮控件: 我接受(&I)


WinWaitActive($Wintitle_2, $Wintxt_3);
ControlClick($Wintitle_2, $Wintxt_3, "Button2");---------------;点击按钮控件: 下一步(&N) >


WinWaitActive($Wintitle_2, $Wintxt_4);
;ControlSetText($Wintitle_2, $Wintxt_4, "Edit1", "C:\Program Files\Tencent\QQPlayer");------;重置文本框控件文本
ControlClick($Wintitle_2, $Wintxt_4, "Button2");---------------;点击按钮控件: 安装(&I)


WinWaitActive($Wintitle_2, $Wintxt_5);
ControlClick($Wintitle_2, $Wintxt_5, "Button4");---------------;点击按钮控件: 运行 QQ影音2.2(&R)


ControlClick($Wintitle_2, $Wintxt_5, "Button2");---------------;点击按钮控件: 完成(&F)


;[删除文件]
FileDelete ("D:\Backup\Desktop\QQ影音.lnk") ;--------删除文件--------
FileDelete ("C:\Documents and Settings"&@UserName&"\Application Data\Microsoft\Internet Explorer\Quick Launch\QQ影音.lnk") ;--------删除文件--------

xin266

非常不错的哦

思明

新版怎么去掉QQ管家 烦恼

idonline

试试看看能不能用