酷狗2010安装脚本

sxlvalue · 发表于 2010-3-2 03:23:10

刚才下的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

abcd1258 · 发表于 2010-3-2 10:25:02

恩，很不错的。

xz00311 · 发表于 2010-3-2 11:06:22

看看我正在写一个呢

minghui · 发表于 2010-6-10 00:27:15

ControlSetText($A,'选择目标位置','TEdit1','C:\Program Files\KuGou\KuGou2010') 为什么还要加上这句呢? 默认不就安装这里吗??

maybe131420 · 发表于 2010-6-10 13:29:13

下完后穷了

basketballkun · 发表于 2010-8-9 12:01:10

下了。。学习

qinxuexiang · 发表于 2010-8-26 13:16:14

谢谢，想问下怎么转换成AU3

fsjlx · 发表于 2010-8-26 22:47:29

回复 4# minghui

方便别人修改地址..

kehongpc · 发表于 2010-9-6 10:27:59

谢谢分享。。收下

kehongpc · 发表于 2010-9-6 10:28:02

谢谢分享。。收下

kehongpc · 发表于 2010-9-6 10:28:04

谢谢分享。。收下

wawahcl · 发表于 2010-9-25 02:57:12

是好东西，可以教教我吗？

a85848059 · 发表于 2011-3-19 18:29:42

很棒推推推

		自动登录	找回密码
密码			加入

[原创] 酷狗2010安装脚本

本帖子中包含更多资源