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

qq15992707270 发表于 2010-9-16 15:45:56

谢谢分享。。收下

4216730 发表于 2010-9-18 02:02:42

看来什么东西都可以拿出来卖了啊
还是用自己写的吧

binghc 发表于 2010-9-18 17:16:07

回复 4# 719931662


    呵呵，这么写你累不累啊
建议你写个函数，执行循环！
我以前也想你这样，虽然是复制粘贴，反反复复还是挺累的
用函数不仅能精简代码，最重要的是有助于你提升编程能力

bsyr2009 发表于 2010-9-19 08:58:53

回复 1# lizhongbo

这个我有了，就不买了。

qq15992707270 发表于 2010-9-21 10:35:35

下载了，谢谢!

wawahcl 发表于 2010-9-26 23:21:36

好东西阿w,.咋又没钱了

hkzhangt 发表于 2010-9-26 23:33:31

回复 2# ice20040919


    TrayTip(" 温馨提示", "自动安装期间为避免操作失败，请勿动键盘鼠标。", 10, 1)
Run("KuGou2010.exe")
WinWait("安装 - 酷狗音乐","1. 优化网络的联通性，搜索下载更加稳定，迅速")
ControlClick("安装 - 酷狗音乐","1. 优化网络的联通性，搜索下载更加稳定，迅速","TNewButton2")
WinWait("安装 - 酷狗音乐","请在继续之前阅读以下重要信息！")
ControlClick("安装 - 酷狗音乐","请在继续之前阅读以下重要信息！","TNewButton2")
WinWait("安装 - 酷狗音乐","选择目标位置")
ControlSetText("安装 - 酷狗音乐","选择目标位置","TEdit1","d:\Program Files\KuGou\KuGou2010\")
Send("!n")
If WinWait("文件夹已存在","已存在！无论如何也要安装到此文件夹中吗？",2) Then
Send("{enter}")
EndIf
WinWait("安装 - 酷狗音乐","准备安装")
Send("!i")
WinWait("安装 - 酷狗音乐","酷狗音乐 安装完毕")
WinActivate("安装 - 酷狗音乐","酷狗音乐 安装完毕")
Send("{space}")
Send("{tab}")
Send("{space}")
Send("{tab}")
Send("{space}")
Send("{enter}")

FileDelete(@DesktopDir & '\酷狗音乐文件夹.lnk')
Exit

2482230 发表于 2011-10-31 22:49:34

围观参观下

2482230 发表于 2011-10-31 22:49:45

围观参观下

2482230 发表于 2011-10-31 22:52:20

围观参观下

2482230 发表于 2011-10-31 22:52:25

围观参观下

2482230 发表于 2011-10-31 22:52:31

围观参观下

2482230 发表于 2011-10-31 23:00:43

垃圾---------------------------

nicky_926 发表于 2011-11-2 14:01:01

郁闷，还要钱啊

liangyubai 发表于 2011-11-3 15:27:28

rtgyetgredggdfdh

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