论坛 › 已解决问题区 › 繁锁但实用的处女作---自动安装千千静听 4.5.3

vfhpai9 发表于 2008-11-25 23:30:18

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

本人的第一个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 发表于 2008-11-26 08:30:10

支持一下！:face (20):

番茄 发表于 2008-11-26 12:25:12

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 发表于 2008-11-26 19:38:29

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

wuluck 发表于 2008-12-8 00:24:34

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

6wings 发表于 2008-12-25 20:53:18

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

ioiooo 发表于 2009-1-7 11:08:55

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

wangjinxian 发表于 2009-1-8 10:05:14

很好的教材

YoDe 发表于 2009-1-26 15:07:40

thank you very much

zscy231 发表于 2009-2-1 20:28:19

留个记号::face (29): :face (29): :face (29):

wyy0320 发表于 2009-2-8 21:51:29

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

lcroy 发表于 2009-2-8 22:11:54

不错学习了 多谢

magicpsyche 发表于 2009-2-12 14:02:01

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","指定安装本软件","")
ControlSetText("千千静听 5.3 安装程序 Unicode","指定安装本软件","",$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 发表 http://www.autoitx.com/images/common/back.gif
D:\Program Files\TTPlayer,这个自动安装的盘符只能是这样的么？
能不能把那段英文的改成中文的呢？
我改过了，但是改出来的怎么是一堆乱码呢？

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

查看完整版本: 繁锁但实用的处女作---自动安装千千静听 4.5.3