(已解决）如何解决等待时间设置的小问题

oksy · 发表于 2010-7-22 09:22:57

本帖最后由 oksy 于 2010-7-27 07:53 编辑

本人系菜鸟，有待各位高手指教。
不好意思，标题不知道应该怎表达，不过，在主内容中我会说得详细些，希望不会被扣分，哈哈哈哈！~
先看段代码吧

Run("ACDSEE_9.0.exe")
WinWaitActive("安装 - ACDSee 9","欢迎使用 ACDSee 9 安装向导")
Send("!n")
WinWaitActive("安装 - ACDSee 9","请仔细阅读下列许可协议。")
Send("!n")
WinWaitActive("安装 - ACDSee 9","ACDSee 是目前最流行的数字图象处理软件")
Send("!n")
WinWaitActive("安装 - ACDSee 9","选择目标位置")
Send("!n")
WinWaitActive("安装 - ACDSee 9","选择开始菜单文件夹")
Send("!n")
WinWaitActive("安装 - ACDSee 9","选择附加任务")
Send("!n")
WinWaitActive("安装 - ACDSee 9","安装程序现在准备开始安装 ACDSee 9 到您的电脑中。")
Send("!i")
WinWaitActive("安装 - ACDSee 9","http://www.ylmf.com")
Send("!n")
WinWaitActive("安装 - ACDSee 9","ACDSee 9 安装向导完成")
Send("{Tab}")
Send(" ")
Send("!f")
WinWaitActive("编目文件向导","你能够通过编目你的图像和媒体文件提高 ACDSee 的性能。")
ControlClick ("编目文件向导","取消", "Button6")
Sleep(2000)
Do
    If WinExists("文件关联已经变更","ACDSee 9.0 已经不再与你先前选择的文件类型建立关联") Then
            WinActivate("文件关联已经变更","ACDSee 9.0 已经不再与你先前选择的文件类型建立关联")
            Send("!d")
            ControlClick ("文件关联已经变更","确定", "Button2")
    EndIf
Until WinExists("My Pictures - ACDSee 9 Photo Manager")
    WinActivate("My Pictures - ACDSee 9 Photo Manager")
    WinClose("My Pictures - ACDSee 9 Photo Manager")

这是我个人写的一个自动安装雨林木风版本的ACDSEE9.0程序，勉强可以运行使用，呵呵。
在程序安装完后，会执行安装好的程序，并有相映的窗口跳出，所以需要对跳出的窗口进行进一步的自动设置（设置好后，运行程序，将不再会跳出此窗口，在使用过程中）。
程序完成是在
WinWaitActive("安装 - ACDSee 9","ACDSee 9 安装向导完成")
Send("{Tab}")
Send(" ")
Send("!f")
结束后。
“编目文件向导”和“文件关联已经变更”窗口就是运行程序后，跳出的需要调试的窗口。但由于“文件关联已经变更”跳出比较迟，所以用到Sleep(2000)命令进行等待。
我现在的问题是这样的：
1、由于每台计算机的配置不可能相同，所以，“文件关联已经变更”窗口跳出的时间也肯定不见得就是我所设定的时间范围，如果超出了时间，没有跳出窗口，则直接运行了后续程序。自然在下次运行程序时，此窗口仍然会跳出，没有达到安装后直接使用的效果。
2、当然，把Sleep时间设长，可以满足要求。但如果时间设置过长，在安装的过程中感觉就不连贯，虽然可以达到目的，但浪费了时间。
所以，我想向高手了解，是否还有别的方式能解决此问题，使用别的命令，取消Sleep的等待时间；或换个思维方式编写程序来实现。这样写出来的程序，出现的不可预知性会减少到最低，又能完美的解决问题。
请高手赐教！~~~
当然，各位高手如果对我写的程序本身有什么好的建议，也请提出来，谢谢！~~~

水木子 · 发表于 2010-7-22 09:38:58

很不错，虽然提问标题有些模糊，但是贴内将遇到的问题描述的十分清楚。

就冲这一点，相信会有高手来帮忙解决的。

顺便问下，这个窗口是每次安装都会跳出来的吗？

Ziya · 发表于 2010-7-22 09:42:43

那个安装程序没试过....
不能用WinWait之类的等那个么?

oksy · 发表于 2010-7-22 11:40:48

回复 2# 水木子

那个窗口如果说是覆盖安装，原有的程序已经关闭过，那就不会跳出了，但如果是第一次装，肯定会跳出的。所以，我才添加了IF语句的。
水木老大，程序有什么写得不够好的地方，多指教呀。

oksy · 发表于 2010-7-22 11:43:54

回复 3# Ziya

因为如果是覆盖安装，就不会跳出此窗口了，所以如果winwait，窗口不没出来，那就不能继续了呀。

3mile · 发表于 2010-7-22 11:53:32

看代码中选择默认安装路径，所以首先判断安装目录是否已经存在。
若已经存在则执行32行，若不存在则winwait

Ziya · 发表于 2010-7-22 11:54:02

之前装过的话,注册表是会有相关条目的吧
是否能够先做一个判断呢?
如果注册表中有,则跳过
如果没有,则winwait这样

水木子 · 发表于 2010-7-22 12:00:12

回复 4# oksy

老大？实在不敢当啊！

楼上两位的思路不错，值得一试！

oksy · 发表于 2010-7-22 13:34:17

回复 6# 3mile

两个问题：1、如果前次安装的默认路径不同呢？进行全盘收缩查找？
2、如果前次安装后没有对跳出的这个窗口进行设置，同样还是会跳出此窗口的呦。

oksy · 发表于 2010-7-22 15:00:51

其实我的这个问题，主要是问有没别的方法代替Sleep这个等待的不可知时间，如果没有，似乎也只好改变写程序的思路了。但我上面提出的问题，确实，还是存在这样的可能。至少为了让程序更优化，或者说更少的出现意外状况而出错。个人认为还是应该尽多的考虑多方面因素。
如同3mile 和Ziya的回复，确实可以换个思路来写，主要目的是判断是否已经安装，安装了就不再运行。但我的考虑是，如果确实安装。但为了确认打开后能够直接使用，我也会考虑打开已经安装好的程序，再尝试这两个窗口是否已经点击确认，下次不再跳出。如果这样去考虑程序本身，似乎还是需要用到判断语句，自然也就需要SLEEP的等待时间了。
只是想让自己的程序更易用，如有什么没有表达好的，或理解上的误区，也请高手指正。

afan · 发表于 2010-7-22 15:08:03

安装后运行程序，会有多种可能出现的窗口，（用正则匹配）根据出现的窗体判断继续执行的动作。

oksy · 发表于 2010-7-22 15:08:14

本帖最后由 oksy 于 2010-7-22 15:09 编辑

为了方便探讨，我找了个新的安装程序，安装过程简化了，但同样还是有我提出的问题。发个网址供大家下载安装程序 http://www.xiazaiba.com/html/132.html
同时附上自己修改后的，此安装程序的源码，用于探讨

Run("ACDSee_9.0.108_HA_XiaZaiBa.exe")
WinWaitActive("下载吧 - ACDSee 9.0.108 安装","请选择安装方式")
Send("!i")
WinWaitActive("下载吧 - ACDSee 9.0.108 安装 ","单击 [完成(F)] 关闭此向导")
Send("!s")
Send("!f")
WinWaitActive("编目文件向导","你能够通过编目你的图像和媒体文件提高 ACDSee 的性能。")
ControlClick ("编目文件向导","取消", "Button6")
Sleep(2000)
Do
    If WinExists("文件关联已经变更","ACDSee 9.0 已经不再与你先前选择的文件类型建立关联") Then
            WinActivate("文件关联已经变更","ACDSee 9.0 已经不再与你先前选择的文件类型建立关联")
            Send("!d")
            ControlClick ("文件关联已经变更","确定", "Button2")
    EndIf
Until WinExists("My Pictures - ACDSee 9 Photo Manager")
    WinActivate("My Pictures - ACDSee 9 Photo Manager")
    WinClose("My Pictures - ACDSee 9 Photo Manager")

同时，我也在查找判断路径的方式，请高手多指教！~

oksy · 发表于 2010-7-22 15:19:28

回复 11# afan

老大所说（正则匹配）是否是需要引入变量来进行判断了，现在只是基础，变量有点晕，呵呵。不过我会去搜索下用法。我想问的是：如此是否就可以解决SLEEP时间等待的问题了？因为是用winexists来进行判断，所以需要等待窗口出现的时间。用正则匹配是否就没了等待窗口出现的时间问题？

afan · 发表于 2010-7-22 18:48:15

比如可能会有标题为a或者b两个可能的窗口
$h = WinWaitActive("[REGEXPTITLE:(a)|(b)]")
这样随便出哪个窗口都会立即返回窗口句柄
$tw = WinGetTitle($h)
Switch $tw
Case a
标题为a时的操作
Case b
标题为b时的操作
EndSwitch

oksy · 发表于 2010-7-23 08:48:16

本帖最后由 oksy 于 2010-7-23 08:54 编辑

回复 14# afan

此种方式，是否就是判断A或B的存在？如果A和B同时存在是不是只执行A或B？还是都执行？（因为A、B、A+B、无四种方式都有可能出现，用switch case是不是只执行其中一条？）小弟愚钝，请指教。
程序修改后，无法关闭跳出的窗口，不错停止了。估计写错了，汗。指点一下，谢谢。

Dim $h,$tw
Run("ACDSee_9.0.108_HA_XiaZaiBa.exe")
WinWaitActive("下载吧 - ACDSee 9.0.108 安装","请选择安装方式")
Send("!i")
WinWaitActive("下载吧 - ACDSee 9.0.108 安装 ","单击 [完成(F)] 关闭此向导")
Send("!s")
Send("!f")
$h=WinWaitActive("[REGEXPTITLE:(文件关联已经变更)|(编目文件向导)") 
$tw=WinGetTitle($h)
Switch $tw
        Case "文件关联已经变更" 
                         WinActivate("文件关联已经变更","ACDSee 9.0 已经不再与你先前选择的文件类型建立关联")
                         Send("!d")
        ControlClick ("文件关联已经变更","确定", "Button2")
        Case "编目文件向导"
                 WinActivate("编目文件向导","你能够通过编目你的图像和媒体文件提高 ACDSee 的性能。")
                 ControlClick ("编目文件向导","取消", "Button6")
EndSwitch
WinActivate("My Pictures - ACDSee 9 Photo Manager")
WinClose("My Pictures - ACDSee 9 Photo Manager")

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

[系统综合] (已解决）如何解决等待时间设置的小问题

评分

评分

评分

评分

评分