酷狗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盘脚本