找回密码
 加入
搜索
查看: 4893|回复: 11

[AU3基础] 编好雨林木风的好些安装软件的自动安装脚本,第一次运行正常,再运行就停在某一步了。

  [复制链接]
发表于 2010-8-21 22:41:49 | 显示全部楼层 |阅读模式
雨林木风改版的软件很有特点,或对原版有功能上有增强,或者去掉广告什么的,手动安装步步可选。但写出自动安装脚本后,往往第一次运行(,猜测这是全新安装)正常,再运行往往停在某步上不动了,(猜测可能是覆盖安装时出问题了)。有时缷载一下软件后运行脚本又正常了。估计雨林改版时将一些窗口隐藏了的。请问大侠们有什么办法解决吗?
下面是我编的实例,qvod安装自动脚本。见附件,原软件在http://www.xiazaiba.com/html/136.html

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2010-8-21 22:43:59 | 显示全部楼层
手工覆盖安装检查问题的所在吧。
 楼主| 发表于 2010-8-21 23:12:12 | 显示全部楼层
覆盖安装时发现不再出现第一步的窗口选择语言步骤,难道要用if语句去掉这一步吗?这样的话,如果碰上原有的版本不是现在这样同一版本的再安装,而是低些的版本升级会出问题吗?如果会出问题的话,就不好选编进自动安装光盘了的呀!
发表于 2010-8-21 23:53:35 | 显示全部楼层
覆盖安装时发现不再出现第一步的窗口选择语言步骤


这一步可以等待一段时间如1S
不出现窗口继续
 楼主| 发表于 2010-8-22 22:57:15 | 显示全部楼层
我加了一段调用adlibregister的代码后解决了前述问题。但总觉得这样做很笨拙,哪位有好的方法呢?
新代码如下:
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=ico.ico
#AutoIt3Wrapper_outfile=自动安装.exe
#AutoIt3Wrapper_Res_Comment=www.51aou.com 制作:醉爱清茶
#AutoIt3Wrapper_Res_Description=Qvod Player(快播) V3.5.0 build 0101 特别版 安装脚本
#AutoIt3Wrapper_Res_LegalCopyright=版权所有 (C) 2010
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region AutoIt3Wrapper 预编译参数(常用参数)
#EndRegion AutoIt3Wrapper 预编译参数设置完成
traytip(" 温馨提示","自动安装期间为避免操作失败,请勿动键盘鼠标",15,4)
run("QvodSetup_115.exe")
AdlibRegister("end")
Func end()
If WinExists("Installer Language","Chinese (Simplified)")Then
        ControlCommand("Installer Language","Chinese (Simplified)",1,"check")
        Else
EndIf
EndFunc
WinWaitActive("快播(Qvod Player) 3.5 安装","在开始安装之前,建议先关闭其他所有应用程序")
ControlCommand("快播(Qvod Player) 3.5 安装","在开始安装之前,建议先关闭其他所有应用程序",1,"check")
WinWaitActive("快播(Qvod Player) 3.5 安装 ","在使用本软件的同时, 你已经默认接受了此协议")
Send("!I")
WinWaitActive("快播(Qvod Player) 3.5 安装","选择安装位置")
ControlCommand("快播(Qvod Player) 3.5 安装","选择安装位置",1209,"uncheck")
ControlClick("快播(Qvod Player) 3.5 安装","选择安装位置",1)
WinWaitActive("快播(Qvod Player) 3.5 安装 ","正在完成“快播(Qvod Player) 3.5”安装向导")
ControlCommand("快播(Qvod Player) 3.5 安装 ","正在完成“快播(Qvod Player) 3.5”安装向导",1203,"uncheck")
ControlCommand("快播(Qvod Player) 3.5 安装 ","正在完成“快播(Qvod Player) 3.5”安装向导",1204,"uncheck")
Send("!F")
发表于 2010-8-23 11:43:53 | 显示全部楼层
Run ("QvodSetup_115.exe")
If WinExists("Installer Language","Chinese (Simplified)")Then
Send("{enter}")
Else
WinWait ( "快播(Qvod Player) 3.5 安装","欢迎使用“快播(Qvod Player) 3.5”安装向导" )
WinActivate ( "快播(Qvod Player) 3.5 安装","欢迎使用“快播(Qvod Player) 3.5”安装向导" )
Send("!N")
WinWait ( "快播(Qvod Player) 3.5 安装","许可证协议" )
WinActivate ( "快播(Qvod Player) 3.5 安装","许可证协议" )
Send("!I")
WinWait ( "快播(Qvod Player) 3.5 安装","选择安装位置" )
WinActivate ( "快播(Qvod Player) 3.5 安装","选择安装位置" )
ControlSetText("快播(Qvod Player) 3.5 安装", "选择安装位置", "Edit1", "D:\QvodPlayer")
ControlSetText("快播(Qvod Player) 3.5 安装", "选择安装位置", "Edit2", "D:\QvodPlayer\Media")
Send("!I")
WinWait ( "快播(Qvod Player) 3.5 安装","正在完成“快播(Qvod Player) 3.5”安装向导" )
WinActivate ( "快播(Qvod Player) 3.5 安装","正在完成“快播(Qvod Player) 3.5”安装向导" )
ControlClick("快播(Qvod Player) 3.5 安装", "正在完成“快播(Qvod Player) 3.5”安装向导", "Button4")
ControlClick("快播(Qvod Player) 3.5 安装", "正在完成“快播(Qvod Player) 3.5”安装向导", "Button5")
Send("!F")
EndIf

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

 楼主| 发表于 2010-8-23 20:47:14 | 显示全部楼层
回复 6# zcx880517

不用adlibregister的话,对新安装不行的,会停在选择语言上的。请你验证一下了。
发表于 2010-8-23 21:36:36 | 显示全部楼层
酒喝多了,忍不住说一句,雨林也没也什么大不了的。
发表于 2010-8-23 22:01:48 | 显示全部楼层
回复 8# 3mile

老兄又喝多啦?这样说会不会太狂妄了?

不过我对YM没什么了解。
 楼主| 发表于 2010-8-23 23:10:24 | 显示全部楼层
回复 8# 3mile

见仁见智吧。但ylmf能将软件做成基本不带插件或绿色的,就成它自己的了,可以看出里面高手不少的,象我这样的菜鸟只能高山仰止的。但它也加了一些安装中可以选择的它自己的东西,所以想编成自动安装脚本自动选择了。最重要的是想学它的改版手段或思路,却不知道从何学起?
顺便说一下,我只喜欢它的应用软件,却一点不喜欢它的系统。系统我只用萝卜的。
发表于 2010-8-24 08:24:50 | 显示全部楼层
本帖最后由 zcx880517 于 2010-8-24 08:26 编辑

回复 7# fuxinminmq


    我试过,我第一次安装通过,机子上已安装再试,也通过。
发表于 2010-8-25 17:10:46 | 显示全部楼层
回复 9# 水木子
哈哈,酒后狂妄。勿怪
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-22 01:40 , Processed in 0.081564 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表