千千静听5.5Beta脚本求助
每次安装到那一步之后就停了下来，按上一步之后又继续完成安装~~~~希望大家帮帮忙谢谢·~~~可以的话麻烦大家帮忙简化一下~~~~ Run('ttpsetup.exe')$hd="千千静听 5.5Beta 安装程序 Unicode"
WinWait($hd,"欢迎使用 千千静听 5.5Beta 安装程序")
if not WinActivate($hd,"欢迎使用 千千静听 5.5Beta 安装程序") then WinActivate($hd,"欢迎使用 千千静听 5.5Beta 安装程序")
WinActivate($hd,"欢迎使用 千千静听 5.5Beta 安装程序")
ControlClick($hd,"欢迎使用 千千静听 5.5Beta 安装程序","Button2")
Send("!s")
WinWait($hd,"用户使用协议")
if not WinActivate($hd,"用户使用协议") then WinActivate ($hd,"许可协议")
WinActivate($hd,"用户使用协议")
ControlClick($hd,"用户使用协议","Button2")
Send("!a")
WinWait($hd,"选择要安装的组件:")
if not WinActivate ($hd,"选择要安装的组件:") then WinActivate ($hd,"选择要安装的组件:")
WinActivate($hd,"选择要安装的组件:")
ControlClick($hd,"选择要安装的组件:","Button2")
Send("!n")
WinWait($hd,"指定安装本软件的目标文件夹:")
if not WinActivate ($hd,"指定安装本软件的目标文件夹:") then WinActivate($hd,"指定安装本软件的目标文件夹:")
WinActivate($hd,"指定安装本软件的目标文件夹:")
ControlSetText($hd,"指定安装本软件的目标文件夹:","Edit1","D:\Program Files\TTPlayer")
ControlClick($hd,"指定安装本软件的目标文件夹:","Button4")
Send("!n")
WinWait($hd,"我的桌面")
if not WinActivate($hd,"创建快捷方式") then WinActivate($hd,"创建快捷方式")
WinActivate($hd,"创建快捷方式")
ControlClick($hd,"创建快捷方式","Button10")
Send("!n")
WinWait($hd,"完成 千千静听 5.5Beta 安装向导")
if not WinActivate($hd,"完成 千千静听 5.5Beta 安装向导") then WinActivate($hd,"完成 千千静听 5.5Beta 安装向导")
WinActivate($hd,"完成 千千静听 5.5Beta 安装向导")
ControlCommand($hd,"完成 千千静听 5.5Beta 安装向导","Button1","UnCheck")
ControlCommand($hd,"完成 千千静听 5.5Beta 安装向导","Button3","UnCheck")
Send("{enter}") 我的桌面写错了·~改了为创建快捷方式都是有问题·~~· Run('ttpsetup.exe')
$hd="千千静听 5.5Beta 安装程序 Unicode"
WinWaitActive($hd,"欢迎使用 千千静听 5.5Beta 安装程序")
ControlClick($hd,"欢迎使用 千千静听 5.5Beta 安装程序","Button2")
Send("!s")
WinWaitActive($hd,"用户使用协议")
ControlClick($hd,"用户使用协议","Button2")
Send("!a")
WinWaitActive($hd,"选择要安装的组件:")
ControlClick($hd,"选择要安装的组件:","Button2")
Send("!n")
WinWaitActive($hd,"指定安装本软件的目标文件夹:")
ControlSetText($hd,"指定安装本软件的目标文件夹:","Edit1","D:\Program Files\TTPlayer")
Send("!n")
WinWaitActive($hd,"我的桌面")
Send("!n")
WinWaitActive($hd,"完成 千千静听 5.5Beta 安装向导")
ControlCommand($hd,"完成 千千静听 5.5Beta 安装向导","Button1","UnCheck")
ControlCommand($hd,"完成 千千静听 5.5Beta 安装向导","Button3","UnCheck")
Send("{enter}") 以上我修改后经过运行没问题
至于你写的脚本有低级错误
ControlClick($hd,"选择要安装的组件:","Button2")
Send("!n")
和
ControlClick($hd,"创建快捷方式","Button10")
Send("!n")
命令重复了！好好检查下啦
或者借鉴下这位坛友的千千静听5.3脚本，差不多的
http://www.autoitx.com/forum.php?mod=viewthread&tid=6522&extra=page%3D1
[ 本帖最后由 lynfr8 于 2009-4-19 20:55 编辑 ] 依然是停留在那一步里面无法前进哦~~~~~~~是不是WinWait($hd,"我的桌面")这个窗口文本出现问题了呢？ WinWait($hd,"我的桌面")
if not WinActivate($hd,"创建快捷方式") then WinActivate($hd,"创建快捷方式")
WinActivate($hd,"创建快捷方式")
你的脚本中WinWait($hd,"我的桌面")和WinActivate($hd,"创建快捷方式")
这两处不一致。
ynfr8兄的WinWaitActive($hd,"我的桌面")的这句前面我认为应该加上一句WinWait($hd,"我的桌面")
个人见解，仅供参考 我对Au3的理解为
winwait是等待命令，等待某个窗口的出现
WinActivate是激活命令，激活出现的这个窗口
两个语句的参数应该完全一致 WinWaitActive
--------------------------------------------------------------------------------
暂停脚本的执行直至指定窗口被激活(成为可活动状态)为止.
WinWaitActive ( "窗口标题", ["窗口文本"], [超时时间] )
参数
窗口标题 目标窗口标题.参考 标题特殊定义.
窗口文本 [可选参数] 目标窗口文本
超时时间 [可选参数] 以秒为单位 WinWait
--------------------------------------------------------------------------------
暂停脚本的执行直至指定窗口存在(出现)为止.
WinWait ( "窗口标题" [, "窗口文本" [, 超时时间]] )
WinActivate
--------------------------------------------------------------------------------
激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
WinActivate ( "窗口标题" [, "窗口文本"] ) WinActivate ( "窗口标题" [, "窗口文本"] )
[可选参数] 是指[]里面的参数可以不要吗？ Run(@ScriptDir&"\ttpsetup.exe")
WinWait("千千静听 5.5Beta 安装程序 Unicode","欢迎使用 千千静听 5.5Beta 安装程序")
WinWaitActive("千千静听 5.5Beta 安装程序 Unicode","欢迎使用 千千静听 5.5Beta 安装程序")
Send("!s")
WinWait("千千静听 5.5Beta 安装程序 Unicode","用户使用协议")
WinWaitActive("千千静听 5.5Beta 安装程序 Unicode","用户使用协议")
Send("!a")
WinWait("千千静听 5.5Beta 安装程序 Unicode","选择要安装的组件")
WinWaitActive("千千静听 5.5Beta 安装程序 Unicode","选择要安装的组件")
Send("!n")
WinWait("千千静听 5.5Beta 安装程序 Unicode","指定安装本软件的目标文件夹")
WinWaitActive("千千静听 5.5Beta 安装程序 Unicode","指定安装本软件的目标文件夹")
Send("D:\Program Files\TTPlayer")
Send("!n")
WinWait("千千静听 5.5Beta 安装程序 Unicode","我的桌面")
WinWaitActive("千千静听 5.5Beta 安装程序 Unicode","我的桌面")
Send("!n")
WinWait("千千静听 5.5Beta 安装程序 Unicode","完成 千千静听 5.5Beta 安装向导")
WinWaitActive("千千静听 5.5Beta 安装程序 Unicode","完成 千千静听 5.5Beta 安装向导")
ControlCommand("千千静听 5.5Beta 安装程序 Unicode","完成 千千静听 5.5Beta 安装向导", "Button1", "UnCheck") ;去掉 立即运行 千千静听 5.3勾选
ControlCommand("千千静听 5.5Beta 安装程序 Unicode","完成 千千静听 5.5Beta 安装向导", "Button3", "UnCheck") ;去掉 安装免费附赠的“百度工具栏”勾选
Send("{enter}")
Sleep(300)
FileDelete(@DesktopDir &"\千千音乐.url");删除桌面安装产生的快捷 我也来发下我的脚本
也帮我看下,哪里还有什么不妥的!#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=图标\ttpsetup_128.ico
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
run("ttpsetup.exe")
traytip("千千静听自动安装","请不要再此期间做任何操作,否则有可能安装失败",20)
$bt="千千静听 5.5Beta 安装程序 Unicode"
WinWaitActive($bt,"欢迎使用 千千静听 5.5Beta 安装程序")
controlclick($bt,"开始(&S)","Button2")
WinWaitActive($bt,"请仔细阅读以下的")
ControlClick($bt,"我同意(&A)","Button2")
WinWaitActive($bt,"选择要安装的组件:")
controlclick($bt,"下一步(&N) >","Button2")
winwaitactive($bt,"指定安装本软件的目标文件夹:")
controlsettext($bt,"指定安装本软件的目标文件夹:","Edit1","D:\Program Files\TTPlayer")
controlclick($bt,"下一步(&N) >","Button4")
winwaitactive($bt,"创建快捷方式")
controlclick($bt,"下一步(&N) >","Button10")
winwaitactive($bt,"完成 千千静听 5.5Beta 安装向导")
controlclick($bt,"安装免费附赠的","Button3")
controlclick($bt,"完成","Button14")
WinWaitActive("检查文件关联","千千静听目前没有关联常见的音频格式。")
controlclick("检查文件关联","每次启动时自动关联","Button3")
controlclick("检查文件关联","是","Button1")
send("!{F4}")
这个是我写的，看看问题出在哪里．运行到最后要完成时，也就是选择安装免费附赠的“百度工具栏”和
立即运行 千千静听 这时就不动了，
run("ttpsetup_551.exe")
winwait("千千静听 5.5 安装程序 Unicode","欢迎使用 千千静听 5.5 安装程序")
Send("^s")
winwait("千千静听 5.5 安装程序 Unicode","软件使用协议")
Send("^a")
winwait("千千静听 5.5 安装程序 Unicode","选择要安装的组件")
ControlClick("千千静听 5.5 安装程序 Unicode","选择要安装的组件","Button2")
Send("^n")
winwait("千千静听 5.5 安装程序 Unicode","指定安装本软件的目标文件夹")
ControlClick("千千静听 5.5 安装程序 Unicode","指定安装本软件的目标文件夹","Button4")
Send("^n")
winwait("千千静听 5.5 安装程序 Unicode","创建快捷方式")
Send("^n")
winwait("千千静听 5.5 安装程序 Unicode","完成 千千静听 5.5 安装向导")
ControlClick("千千静听 5.5 安装程序 Unicode","完成 千千静听 5.5 安装向导","Button1")
ControlClick("千千静听 5.5 安装程序 Unicode","完成 千千静听 5.5 安装向导","Button3")
Send("{enter}")
页:
[1]