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

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

本人的第一个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

支持一下！

番茄 · 发表于 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

留个记号:

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","指定安装本软件","[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

		自动登录	找回密码
密码			加入