huangguolian 发表于 2009-2-13 15:19:43

千千静音2009最新版 自动安装（源码）

Run(@ScriptDir&"ttpsetup.exe")

WinWait("千千静听 5.3 安装程序 Unicode","欢迎使用 千千静听 5.3 安装程序")
WinWaitActive("千千静听 5.3 安装程序 Unicode","欢迎使用 千千静听 5.3 安装程序")
Send("!s")

WinWait("千千静听 5.3 安装程序 Unicode","用户使用协议")
WinWaitActive("千千静听 5.3 安装程序 Unicode","用户使用协议")
Send("!a")

WinWait("千千静听 5.3 安装程序 Unicode","选择要安装的组件")
WinWaitActive("千千静听 5.3 安装程序 Unicode","选择要安装的组件")
Send("!n")

WinWait("千千静听 5.3 安装程序 Unicode","指定安装本软件的目标文件夹")
WinWaitActive("千千静听 5.3 安装程序 Unicode","指定安装本软件的目标文件夹")
Send("C:Program FilesTTPlayer")
Send("!n")

WinWait("千千静听 5.3 安装程序 Unicode","我的桌面")
WinWaitActive("千千静听 5.3 安装程序 Unicode","我的桌面")
Send("!n")

WinWait("千千静听 5.3 安装程序 Unicode","完成 千千静听 5.3 安装向导")
WinWaitActive("千千静听 5.3 安装程序 Unicode","完成 千千静听 5.3 安装向导")
ControlCommand("千千静听 5.3 安装程序 Unicode","完成 千千静听 5.3 安装向导", "Button1", "UnCheck")   ;去掉 立即运行 千千静听 5.3勾选
ControlCommand("千千静听 5.3 安装程序 Unicode","完成 千千静听 5.3 安装向导", "Button3", "UnCheck")   ;去掉 安装免费附赠的“百度工具栏”勾选
Send("{enter}")
Sleep(200)
FileDelete(@DesktopDir &"千千音乐.url");删除桌面千千快捷文件

番茄 发表于 2009-2-13 16:20:20

汗，无语。
http://www.autoitx.com/forum.php?mod=viewthread&tid=3880&extra=page%3D1

sdlw999 发表于 2009-2-14 12:24:40

学习，谢谢。。

hxming 发表于 2009-5-9 20:43:55

楼主，无法运行啊。

tianyadeyouzi 发表于 2009-5-13 15:40:36

我也写了一个，不过好像不能完全自动，参考你的做修改看看
页: [1]
查看完整版本: 千千静音2009最新版 自动安装（源码）