酷狗2010安装脚本
刚才下的AUTOIT3,用最新的酷狗2010试了下,大家给点意见.run("KuGou2010.exe")
Dim $A="安装 - 酷狗音乐"
TrayTip("注意:在此期间切勿动键盘和鼠标!","正在安装软件,请稍候...",10,1)
WinWaitActive($A)
Send("!n")
WinWait($A,"许可协议")
Send("!n")
WinWait($A,"选择目标位置")
ControlSetText($A,'选择目标位置','TEdit1','C:\Program Files\KuGou\KuGou2010')
If WinWaitActive($A,"选择目标位置") Then
Send("!n")
EndIf
WinWaitActive($A)
ControlClick($A,'安装 Google 工具栏','TCheckBox1')
WinWaitActive($A)
Send("!n")
WinWaitActive($A,"准备安装")
Send("!i")
WinSetOnTop($A,"正在安装",1)
WinWaitActive($A,"正在安装")
WinWaitActive($A,"酷狗音乐 安装完毕")
WinSetOnTop($A,"酷狗音乐 安装完毕",1)
WinMove($A,"酷狗音乐 安装完毕",416,225,608,410)
WinWaitActive($A,"酷狗音乐 安装完毕")
MouseClick( "left",636,533,1)
MouseClick( "left",636,555,1)
MouseClick( "left",636,577,1)
WinWaitActive($A,"酷狗音乐 安装完毕")
Send("!f")
Exit
酷狗下载地址:
http://downmini.kugoo.com/KuGou2010.exe
恩,很不错的。 看看我正在写一个呢 ControlSetText($A,'选择目标位置','TEdit1','C:\Program Files\KuGou\KuGou2010')为什么还要加上这句呢?默认不就安装这里吗?? 下完后穷了 下了。。学习 谢谢,想问下怎么转换成AU3 回复 4# minghui
方便别人修改地址.. 谢谢分享。。收下 谢谢分享。。收下 谢谢分享。。收下 是好东西,可以教教我吗? 很棒 推推推
页:
[1]