论坛 › 『 软件安装 』 › 酷狗2010 au3自动安装到D盘脚本

honghao_123 发表于 2010-4-27 11:17:28

看看，参考学习一下代码

hkzhangt 发表于 2010-5-19 18:59:34

要钱就不应该拉吧

hkzhangt 发表于 2010-5-21 22:43:37

TrayTip("温馨提示","正在进行安装，不要进行操作，以免出现错误！",5,2)
Run("KuGou2010.exe")
WinWait("安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导")
ControlClick("安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导","TNewButton2")
WinWait("安装 - 酷狗音乐","请在继续之前阅读以下重要信息！")
Send("!n")
WinWait("安装 - 酷狗音乐","选择目标位置")
ControlSetText("安装 - 酷狗音乐","选择目标位置","TEdit1","d:\Program Files\KuGou\KuGou2010\")
ControlClick("安装 - 酷狗音乐","选择目标位置","TNewButton3")
If WinActive("文件夹已存在","已存在！无论如何也要安装到此文件夹中吗？") Then
          Send("{Enter}")
          EndIf
WinWait("安装 - 酷狗音乐","免费的 Google 工具栏，搜索更简单")
ControlClick("安装 - 酷狗音乐","免费的 Google 工具栏，搜索更简单","TCheckBox1")
Send("!n")
WinWait("安装 - 酷狗音乐","安装程序准备在你的电脑上安装 酷狗音乐")
Send("!i")
WinWait("安装 - 酷狗音乐","酷狗音乐 安装完毕")
WinActivate("安装 - 酷狗音乐","酷狗音乐 安装完毕")
Send("{SPACE}")
Send("{tab}")
Send("{SPACE}")
Send("{tab}")
Send("{SPACE}")
Send("!f")
FileDelete(@DesktopDir & '\酷狗音乐文件夹.lnk')
Exit

lidenpan 发表于 2010-6-3 10:28:07

谢谢分享。。收下

lidenpan 发表于 2010-6-3 10:28:32

现在都是这种乱收费的现象。。。。不过我还是支持你。。。

Joo 发表于 2010-6-3 10:32:44

LZ好狠·····

冬崽 发表于 2010-6-4 22:40:24

谢谢四楼的！

agunagun 发表于 2010-6-5 18:16:58

ddddddddddddddddddddddddddd

agunagun 发表于 2010-6-5 18:17:09

ddddddddddddddddddddddddddd

agunagun 发表于 2010-6-5 18:18:07

ddddddddddddddddddddd

agunagun 发表于 2010-6-5 18:18:31

ddddddddddddddddddddd

agunagun 发表于 2010-6-5 18:18:40

ddddddddddddddddddddd

agunagun 发表于 2010-6-5 19:41:52

dddddddddddddddd

agunagun 发表于 2010-6-5 19:41:58

ddddddddddddddddddd

agunagun 发表于 2010-6-5 19:42:03

dddddddddddddddddddd

查看完整版本: 酷狗2010 au3自动安装到D盘脚本