繁锁但实用的处女作---自动安装千千静听 4.5.3

vfhpai9

本人的第一个AUTOIT程序

请赐教!!!

run("千千静听.exe")
WinActivate("千千静听 4.5.3 安装程序","欢迎使用 千千静听 4.5.3 安装程序")
WinWait("千千静听 4.5.3 安装程序","欢迎使用 千千静听 4.5.3 安装程序")
ControlClick("千千静听 4.5.3 安装程序","欢迎使用 千千静听 4.5.3 安装程序","Button2")
WinActivate("千千静听 4.5.3 安装程序","用户使用协议：")
WinWait("千千静听 4.5.3 安装程序","用户使用协议：")
ControlClick("千千静听 4.5.3 安装程序","用户使用协议：","Button2")
WinActivate("千千静听 4.5.3 安装程序","选择要安装的组件:")
WinWait("千千静听 4.5.3 安装程序","选择要安装的组件:")
ControlClick("千千静听 4.5.3 安装程序","选择要安装的组件:","Button2")
WinActivate("千千静听 4.5.3 安装程序","指定安装本软件的目标文件夹:")
WinWait("千千静听 4.5.3 安装程序","指定安装本软件的目标文件夹:")
ControlClick("千千静听 4.5.3 安装程序","指定安装本软件的目标文件夹:","Button4")
WinActivate("千千静听 4.5.3 安装程序","我的桌面")
WinWait("千千静听 4.5.3 安装程序","我的桌面")
ControlClick("千千静听 4.5.3 安装程序","我的桌面","Button4")
WinActivate("千千静听 4.5.3 安装程序","我的桌面")
WinWait("千千静听 4.5.3 安装程序","我的桌面")
ControlClick("千千静听 4.5.3 安装程序","我的桌面","Button11")
WinActivate("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3")
WinWait("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3")
ControlClick("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3","Button1")
WinActivate("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3")
WinWait("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3")
ControlClick("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3","Button3")
WinActivate("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3")
WinWait("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3")
ControlClick("千千静听 4.5.3 安装程序","立即运行 千千静听 4.5.3","Button15")

[ 本帖最后由 vfhpai9 于 2008-11-25 23:31 编辑 ]

luke

支持一下！

番茄

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("D:\Program Files\TTPlayer")
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-1-7 11:56 编辑 ]

booby

这些东西不是很实用，我的千千还是二年前装的。

wuluck

FileDelete(@DesktopDir &"\千千音乐在线.url")
这个好像安装时候删不掉呀

6wings

为什么有些写的是用"Button1"有的是用Send("!n")
这些,,WHY??

ioiooo

send  是 按键  ：！i 就是  alt +i
controlclick  是 模拟鼠标 点击button1
help 里有

wangjinxian

很好的教材

YoDe

thank you very much

zscy231

留个记号:

wyy0320

D:\Program Files\TTPlayer,这个自动安装的盘符只能是这样的么？
能不能把那段英文的改成中文的呢？
我改过了，但是改出来的怎么是一堆乱码呢？

lcroy

不错学习了 多谢

magicpsyche

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
$Path = IniRead(@WorkingDir & "\PCSG Softprep 2009.ini", "Config", "ProgramPath", "D:\Program Files")
Run('ttp.exe')
WinWait("千千静听 5.3 安装程序 Unicode","现在将开始安装")
If Not WinActive("千千静听 5.3 安装程序 Unicode","现在将开始安装") Then WinActivate("千千静听 5.3 安装程序 Unicode","现在将开始安装")
WinWaitActive("千千静听 5.3 安装程序 Unicode","现在将开始安装")
Send("{ALTDOWN}s{ALTUP}")
WinWait("千千静听 5.3 安装程序 Unicode","用户使用协议")
If Not WinActive("千千静听 5.3 安装程序 Unicode","用户使用协议") Then WinActivate("千千静听 5.3 安装程序 Unicode","用户使用协议")
WinWaitActive("千千静听 5.3 安装程序 Unicode","用户使用协议")
Send("{ALTDOWN}a{ALTUP}")
WinWait("千千静听 5.3 安装程序 Unicode","选择要安装的组件")
If Not WinActive("千千静听 5.3 安装程序 Unicode","选择要安装的组件") Then WinActivate("千千静听 5.3 安装程序 Unicode","选择要安装的组件")
WinWaitActive("千千静听 5.3 安装程序 Unicode","选择要安装的组件")
Send("{ALTDOWN}n{ALTUP}")
WinWait("千千静听 5.3 安装程序 Unicode","指定安装本软件")
If Not WinActive("千千静听 5.3 安装程序 Unicode","指定安装本软件") Then WinActivate("千千静听 5.3 安装程序 Unicode","指定安装本软件")
WinWaitActive("千千静听 5.3 安装程序 Unicode","指定安装本软件")
ControlFocus("千千静听 5.3 安装程序 Unicode","指定安装本软件","[class:Edit;instance:1]")
ControlSetText("千千静听 5.3 安装程序 Unicode","指定安装本软件","[class:Edit;instance:1]",$path & "\TTPlayer")
Send("{ALTDOWN}n{ALTUP}")
WinWait("千千静听 5.3 安装程序 Unicode","我的桌面")
If Not WinActive("千千静听 5.3 安装程序 Unicode","我的桌面") Then WinActivate("千千静听 5.3 安装程序 Unicode","我的桌面")
WinWaitActive("千千静听 5.3 安装程序 Unicode","我的桌面")
Send("{ALTDOWN}n{ALTUP}")
WinWait("千千静听 5.3 安装程序 Unicode","已成功安装到")
If Not WinActive("千千静听 5.3 安装程序 Unicode","已成功安装到") Then WinActivate("千千静听 5.3 安装程序 Unicode","已成功安装到")
WinWaitActive("千千静听 5.3 安装程序 Unicode","已成功安装到")
controlcommand("千千静听 5.3 安装程序 Unicode","已成功安装到","Button1","UnCheck")
controlcommand("千千静听 5.3 安装程序 Unicode","已成功安装到","Button3","UnCheck")
ControlClick("千千静听 5.3 安装程序 Unicode","已成功安装到","Button14")
FileCopy(@WorkingDir & "\install\媒体播放\TTP.zip", $path & "\TTPlayer\skin\")
FileCopy(@WorkingDir & "\install\媒体播放\TTPlayer.xml", $path & "\TTPlayer")
sleep(1000)
filedelete(@DesktopDir & "\千千音乐.url")

原帖由 wyy0320 于 2009-2-8 21:51 发表
D:\Program Files\TTPlayer,这个自动安装的盘符只能是这样的么？
能不能把那段英文的改成中文的呢？
我改过了，但是改出来的怎么是一堆乱码呢？

用controlsettext可以输入中文，send不能输入中文的。
我的脚本会读取软件安装器的配置文件，安装目录可以改变，如果没有配置文件则默认为D:\Program Files