软件自动安装到最后一步就不动了，帮我看看问题出在哪？
本帖最后由 tianya1631 于 2010-1-26 00:03 编辑软件自动安装到最后一步完成那个界面，脚本就停止不动了，帮我看看问题出在哪？【用17#KN007管理员的方法解决，在此谢谢热心帮助的朋友们！！】
TrayTip("ULtraISO正在安装", "安装期间，请勿进行其他操作，否则可能导致安装失败!",10)
Run("UltraISO_8.66_YlmF.exe")
Send("!n")
WinWaitActive("安装 - UltraISO","欢迎使用 UltraISO 安装向导")
Send("!n")
WinWaitActive("安装 - UltraISO","许可协议")
Send("!a")
Send("!n")
WinWaitActive("安装 - UltraISO","选择目标位置")
Send("D:\Program files\ULtraISO")
Send("!n")
WinWaitActive("安装 - UltraISO","选择开始菜单文件夹")
Send("!n")
WinWaitActive("安装 - UltraISO","选择附加任务")
Send("!d")
Send("!m")
Send("!n")
WinWaitActive("安装 - UltraISO","准备安装")
Send("{enter}")
WinWaitActive("安装 - UltraISO","信息")
Send("{enter}")
WinWaitActive("安装UltrISO","ULraISO安装向导完成")
Send("{space}")
Send("{table}{space}")
Send("!f")
WinWaitActive("安装 - UltraISO","欢迎使用 ultraiso 安装向导")
Send("{enter}")
WinWaitActive("安装 - UltraISO","许可协议")
Send("!a")
WinWaitActive("安装 - UltraISO","选择目标位置")
Send("D:\Program files\ULtraISO")
Send("{enter}")
WinWaitActive("安装 - UltraISO","选择开始菜单文件夹")
Send("{enter}")
WinWaitActive("安装 - UltraISO","选择附加任务")
Send("!d")
Send("!m")
Send("{enter}")
WinWaitActive("安装 - UltraISO","准备安装")
Send("{enter}")
WinWaitActive("安装 - UltraISO","信息")
Send("{enter}")
WinWaitActive("安装 - UltraISO","ULraISO 安装向导完成")
Send("{SPACE}")
Send("{TAB}{SPACE}")
Send("!f")
Exit
Send("{SPACE}")
sleep(1000)
Send("{TAB}{SPACE}")
Send("!f")
试试。。。。 本帖最后由 llztt 于 2010-1-24 08:54 编辑
可以用CONTROLFOCUS试试定位，用TAB不保险 可以用CONTROLFOCUS试试定位，用TAB不保险
PS：竟然装雨林木风的东西，弄个破软件竟放他们LOGO了，好像是 ...
llztt 发表于 2010-1-24 08:31 http://www.autoitx.com/images/common/back.gif
不用这样吧。。。。就像番茄，按你这样说，他老说番茄花园，你说这系统好似是它做的！？
现在的人啊，都不可理喻。。 YlmF哪惹你，让你这样，汗，我系统除了是IBM OEM XP EN SP3，不是雨林，其余如优化软件什么，都多少可以见到影子。。。现在有很多人在sfx加上签名，你能说那东西就是他做的？不是他做就不能署名？！，我说autoit不是你做的，你只是运用了个可以改名字的，改名字，加上自己的小小心得就成了软件，这软件你自豪的说是我做的，但它的内核核心呢？
XD，说话别太绝对，而且不要随意辱骂
我觉得任何团体都有存在的意义。。。
至少我觉得当年能想到做ghost的人，都是灵活人
而且。。
靠自己艰苦奋斗吧，不说了，，
不理解的人，还以为我是ylmf的。。
倒了
再说一句：现在很多东西都标上其他人的名字，如nod32那个破解可以42年那个。。关于里面就有这个破解者的信息，我说nod32是它制作的，你信不！？ 这是以前写的，用最土的办法，当时只会这个#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=Setup.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=自动安装UltraISO 9.3.0.2600多国语言版
#AutoIt3Wrapper_Res_Description=自动注册，并且在语言选择中文
#AutoIt3Wrapper_Res_Fileversion=2.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=kn007
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
If FileExists(@ScriptDir & "\UltraISO 9.3.0.2600_pe.exe") Then
Run(@ScriptDir & "\UltraISO 9.3.0.2600_pe.exe")
WinWaitActive("Setup")
Send("!n")
Send("!a")
Send("!n")
Send("D:\Program Files\UltraISO")
Send("!n")
Send("!y")
Send("!n")
Send("!n")
Send("!i")
WinWaitActive("Setup - UltraISO","Completing the UltraISO Setup Wizard")
Send("!f")
WinWaitActive("Welcome")
Send("{Tab}")
Send("{Enter}")
WinWaitActive("Registration")
Send("UW-Madison Executive Education")
Send("{Tab}")
Send("1519-E287-A828-A24A")
Send("{Enter}")
Send("{Enter}")
Sleep(1000)
Run("D:\Program Files\UltraISO\UltraISO.exe")
Sleep(1000)
WinWaitActive("UltraISO")
Send("!o")
Send("{Down}")
Send("{Right}")
Send("{Down}")
Send("{Down}")
Send("{Down}")
Send("{Down}")
Send("{Down}")
Send("{Enter}")
Sleep(1000)
WinWaitActive("UltraISO")
Send("!{F4}")
Sleep(500)
Run("D:\Program Files\UltraISO\UltraISO.exe")
MsgBox(4096, "The Setup Was Completed !", "kn007 All Rights Reserved ! E-Mail:kn007@126.com")
Sleep(100)
else
MsgBox(4096, "Warning !!!", "Could Not Found The Setup File Here ! Please Check !")
Exit
Endif
再拿个这种方法的，建议楼主提供程序地址，大家帮你#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=Setup.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=自动安装QQ2009Beta2简体中文版
#AutoIt3Wrapper_Res_Description=自动安装注册
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=kn007
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_String.au3>
If FileExists(@ScriptDir & "\QQ2009Beta2.exe") Then
Run(@ScriptDir & "\QQ2009Beta2.exe")
WinWait("腾讯QQ2009 安装向导")
WinActivate("腾讯QQ2009 安装向导")
WinWaitActive("腾讯QQ2009 安装向导")
ControlClick ("腾讯QQ2009 安装向导", "", "Button1")
ControlClick ("腾讯QQ2009 安装向导", "下一步(&N)", "Button3")
ControlClick ("腾讯QQ2009 安装向导", "", "Button6")
ControlClick ("腾讯QQ2009 安装向导", "", "Button12")
ControlClick ("腾讯QQ2009 安装向导", "下一步(&N)", "Button2")
ControlClick ("腾讯QQ2009 安装向导", "", "Button9")
ControlClick ("腾讯QQ2009 安装向导", "", "Button8")
ControlClick ("腾讯QQ2009 安装向导", "", "Button10")
ControlClick ("腾讯QQ2009 安装向导", "", "Button11")
ControlClick ("腾讯QQ2009 安装向导", "", "Button7")
ControlClick ("腾讯QQ2009 安装向导", "下一步(&N)", "Button2")
ControlSetText("腾讯QQ2009 安装向导","","Edit1","D:\Program Files\Tencent\QQ2009")
ControlClick ("腾讯QQ2009 安装向导", "", "Button7")
ControlClick ("腾讯QQ2009 安装向导", "安装(&I)", "Button2")
WinWait("腾讯QQ2009 安装向导","安装完成")
WinWaitActive("腾讯QQ2009 安装向导","安装完成")
ControlClick ("腾讯QQ2009 安装向导", "安装完成", "Button6")
ControlClick ("腾讯QQ2009 安装向导", "安装完成", "Button7")
ControlClick ("腾讯QQ2009 安装向导", "安装完成", "Button8")
ControlClick ("腾讯QQ2009 安装向导", "完成(&F)", "Button2")
MsgBox(4096, "The Setup Was Completed !", "kn007 All Rights Reserved ! E-Mail:kn007@126.com")
Sleep(111)
else
MsgBox(4096, "Warning !!!", "Could Not Found The Setup File Here ! Please Check !")
Exit
Endif
http://www.autoitx.com/forum.php?mod=viewthread&tid=10181&page=1&fromuid=7644076#pid94778
下载不用钱的 别太激动哈，呵呵，我只是看不惯YLMF乱放LOGO和标题的做法而已，他们大部分软件都只是封装安装而已，放放LOGO也就罢了，但安装后软件里还到处是，太不地道了。。至于番茄等几家系统修改论坛，网上评论已多，我再说只会惹人嫌，不说了
KN说的对，任何团体都有存在的意义，纵然封装届是是非非再多，但他们的修改过的系统，惠及过太多人了，起码客观上节省了大家的时间、提高了效率，起码苦劳是有的了
我改贴，写的过火了，呵呵 一直认为controlclick要好用的多 谢谢大家这么热心，源文件已经上传，大家说的方法我马上去试下看看，今天刚上线。~ 用auto3窗口工具查看“运行 ULraISO和访问 雨林木风官方网站”是在一个TNewCheckLisBox1里，没有button按钮，用contolcommand就不行了，但是我直接跳过这2个，运行完成那个命令也是不行，很郁闷呢~
如果复选框不是一个单独控件，就只好用controlclick吧（带偏移参数的），这可以把复选框问题解决 如果复选框不是一个单独控件，就只好用controlclick吧（带偏移参数的），这可以把复选框问题解决
请详细说明下，最好贴一下代码，谢谢！ 建议楼主查询controlclick的用法 本帖最后由 llztt 于 2010-1-24 23:06 编辑
忘从AUTOIT3.几版了，CONTROLCLICK改进了，增加了4个参数，分别是按钮、点击次数、相对控件X坐标、相对控件Y坐标，所以针对那些特别控件（一般是非按钮的），可以精确点击控件的位置和次数，就不用更不保险的MOUSECLICK了。。
使用起来很简单，查其帮助，对号入座参数就行，相对坐标，可以用AU3INFO查到
譬如你上面的那个例子，可以用
ControlClick("安装 - UltraISO","ULraISO 安装向导完成","TNewCheckLisBox1","primary",1,25,20)
试试
现成的例子得找找才行，忘放哪了 谢谢了，我去找下，再试试~
页:
[1]
2