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

酷狗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

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

很棒 推推推
页: [1]
查看完整版本: 酷狗2010安装脚本