学了一个小时,自动安装学了个基本,大家给给意见

辉聚网络

run("kugou.exe")

;运行“kugou.exe”

WinWaitActive("安装 - 酷狗音乐2008","最新更新")

;等待窗体"安装 - 酷狗音乐2008","最新更新"出现

send("!n")

;发送快捷键Alt＋N
WinWaitActive("安装 - 酷狗音乐2008","许可协议")

;等待窗体"安装 - 酷狗音乐2008","许可协议"出现

send("!n")

;发送快捷键Alt＋N

WinWaitActive("安装 - 酷狗音乐2008","选择目标位置")

;等待窗体"安装 - 酷狗音乐2008","选择目标位置"出现

send("!n")

;发送快捷键Alt＋N
WinWaitActive("安装 - 酷狗音乐2008","准备安装")

;等待窗体"安装 - 酷狗音乐2008","准备安装"出现

send("!i")

;发送快捷键Alt＋i
WinWaitActive("安装 - 酷狗音乐2008","酷狗音乐2008 安装完毕")
;等待窗体"安装 - 酷狗音乐2008 安装完毕"出现
send("{SPACE}{TAB}{TAB}{SPACE}")
;默认状态下发送空格将勾去掉。
;用TAB切换到下一个复选框
send("!f")
;发送快捷键Alt＋f

131738

如果手写脚本, 可将窗口标题设为变量:

$title = "安装 - 酷狗音乐2008"

火车头

呵呵，我也是才学两三天，楼主用的方法如果窗口不是激活状态的话就很难自动安装下去。
我发个我做的自动运行酷狗脚本，大家互相交流下。

BlockInput(1)
traytip("！！请注意！！","正在进行安装,安装时将锁定键盘鼠标！",3)
run("kugou.exe")
WinWaitActive("安装 - 酷狗音乐2008","欢迎使用")
WinActivate("安装 - 酷狗音乐2008","欢迎使用 酷狗音乐2008 安装向导")
WinWait("安装 - 酷狗音乐2008","欢迎使用 酷狗音乐2008 安装向导")
controlclick("安装 - 酷狗音乐2008","欢迎使用 酷狗音乐2008 安装向导","TNewButton2")
WinActivate("安装 - 酷狗音乐2008","许可协议")
WinWait("安装 - 酷狗音乐2008","许可协议")
ControlClick("安装 - 酷狗音乐2008","许可协议","TNewButton2")
WinActivate("安装 - 酷狗音乐2008","选择目标位置")
WinWait("安装 - 酷狗音乐2008","选择目标位置")
ControlClick("安装 - 酷狗音乐2008","选择目标位置","TNewButton3")
WinActivate("安装 - 酷狗音乐2008","免费的 Google 工具栏，搜索更简单")
WinWait("安装 - 酷狗音乐2008","免费的 Google 工具栏，搜索更简单")
ControlClick("安装 - 酷狗音乐2008","免费的 Google 工具栏，搜索更简单","TCheckBox1")
ControlClick("安装 - 酷狗音乐2008","免费的 Google 工具栏，搜索更简单","TNewButton3")
WinActivate("安装 - 酷狗音乐2008","准备安装")
WinWait("安装 - 酷狗音乐2008","准备安装")
ControlClick("安装 - 酷狗音乐2008","准备安装","TNewButton3")
WinActivate("安装 - 酷狗音乐2008","酷狗音乐2008 安装完毕")
WinWait("安装 - 酷狗音乐2008","酷狗音乐2008 安装完毕")
Send("{space}{tab}{space}{tab}{space}")
ControlClick("安装 - 酷狗音乐2008","酷狗音乐2008 安装完毕","TNewButton3")



另外我把标题用变量表示，如下：
$title="安装 - 酷狗音乐2008"
BlockInput(1)
traytip("！！请注意！！","正在进行安装,安装时将锁定键盘鼠标！",3)
run("kugou.exe")
WinWaitActive($title,"欢迎使用")
WinActivate($title,"欢迎使用 酷狗音乐2008 安装向导")
WinWait($title,"欢迎使用 酷狗音乐2008 安装向导")
controlclick($title,"欢迎使用 酷狗音乐2008 安装向导","TNewButton2")
WinActivate($title,"许可协议")
WinWait($title,"许可协议")
ControlClick($title,"许可协议","TNewButton2")
WinActivate($title,"选择目标位置")
WinWait($title,"选择目标位置")
ControlClick($title,"选择目标位置","TNewButton3")
WinActivate($title,"免费的 Google 工具栏，搜索更简单")
WinWait($title,"免费的 Google 工具栏，搜索更简单")
ControlClick($title,"免费的 Google 工具栏，搜索更简单","TCheckBox1")
ControlClick($title,"免费的 Google 工具栏，搜索更简单","TNewButton3")
WinActivate($title,"准备安装")
WinWait($title,"准备安装")
ControlClick($title,"准备安装","TNewButton3")
WinActivate($title,"酷狗音乐2008 安装完毕")
WinWait($title,"酷狗音乐2008 安装完毕")
Send("{space}{tab}{space}{tab}{space}")
ControlClick($title,"酷狗音乐2008 安装完毕","TNewButton3")

刘强

这个也能换钱   明天改行  天天喊 破烂换钱喽

辉聚网络

都是高手啊,谢谢大家

辉聚网络

呵呵，我也是才学两三天，楼主用的方法如果窗口不是激活状态的话就很难自动安装下去。
我发个我做的自动运行酷狗脚本，大家互相交流下。

BlockInput(1)
traytip("！！请注意！！","正在进行安装,安装时将锁定键 ...
火车头 发表于 2009-9-10 02:36

到安装界面时就停住了,不能运行下去,而且你把我鼠标也锁掉了,只能按机箱上的重启

caicaicaicaijj

到安装界面时就停住了,不能运行下去,而且你把我鼠标也锁掉了,只能按机箱上的重启
辉聚网络 发表于 2009-9-11 09:43

呵呵，这个真的很有意思啊！

adslceo

来学习。先看看怎样入门先。

netegg

既然没有选择项，直接替换界面变量，用不着这么复杂吧

火车头

6# 辉聚网络


我下载的酷狗是最新版的，不知你的是不是，而且自动安装文件要和酷狗安装文件要在同一文件夹才行哦。锁定键盘的话可以换键盘的热启动来解锁的（就是“ctrl+alt+del”三个键）。

lpxx

你悟性真高,我学了3年,就会写一行代码.

msgbox (0,"This is my First Program","Hello World")

魂_

Send("{space}{tab}{space}{tab}{space}")
可以告诉我这段代码的意思吗？

13977088970

解除AU3半年勒。！感觉很好。。。

km8880

学习了,要怎么才可以改路径，谢谢

yongyuan527

大哥、我也是新手，能不能教教我怎样修改安装的路径！