关于循环嵌入延时等待的问题

xingyuwei

在一个添加终端的循环中，加入了一个判断所添加的终端是否重复，可以判断，可是在判断完成，重新添加不重复的终端是就执行不下去了，代码如下：


Sub Main
  Dim Result As Integer

    'Initially Recorded: 2006-9-20  11:30:18
    'Script Name: 1111
   
Dim I
   
For I=1 to 10   
     
   ‘ 添加终端部分   
   
    PushButton Click, "Type=PushButton;Name=Button1"   
    Result = SQAWaitForPropertyvalue("HTMLTitle=终端管理","Enabled",TRUE,2000)
   
    If Result <> sqaSuccess Then  
      PushButton Click, "Type=PushButton;Name=Button"  
    End if
      
Next I
   
End Sub

判断完成后，在添加一个新的终端循环就执行不下去了，请高手指点一下，谢谢！！！！！

xingyuwei

在判断是否输入重复的时候是不是不应该用SQAWatiForPropertyvalue呀？如果真的是这样的话，应该用什么函数呢，希望高手能够指点一下，谢谢！！！

5am

你是说
If Result <> sqaSuccess Then  
      PushButton Click, "Type=PushButton;Name=Button"  
End if
不能执行么？

xingyuwei

也不是不能执行，在开始Result<>sqaSuccess的时候还可以执行，可是等到Result==sqaSuccess的时候就不能执行了。好像是抓不到这个引起的（自己猜得）

5am

Result==sqaSuccess的时候就不能执行了  脚本结束还是调处循环？
另外也可以用sqagetproperty来判断

xingyuwei

脚本没有结束，还处于循环状态，只是他不去主动点击那个按钮了，手工点击那个按钮之后他就有开始循环，然后判断还是Result==sqaSuccess，程序就又没有响应了。

5am

你的意思是Result==sqaSuccess的时候下一个循环不再执行PushButton Click, "Type=PushButton;Name=Button1" 了？
是这样么？
如果Robot不点button的话 最好等脚本自己结束 然后看看有什么错误信息

caesarqth

Name=Button1和Name=Button1"
里面的Name就是不同的吗

xingyuwei

对呀，Result==sqaSuccess的时候下一个循环不再执行PushButton Click, "Type=PushButton;Name=Button1" 了，然后    Rational  TestManager里写的Script Command Failure，再去打开那个脚本，在PushButton Click, "Type=PushButton;Name=Button"  被加了注重标示了。

5am

如果停在PushButton Click, "Type=PushButton;Name=Button" 那就是说Result<>sqaSuccess了  在PushButton Click, "Type=PushButton;Name=Button" 加个断点  看看是不是这句有问题啊？

colume

我想在确认一下PushButton Click, "Type=PushButton;Name=Button1"  和 PushButton Click, "Type=PushButton;Name=Button"里的button1和button是一个按钮吗?

colume

如果还找不道原因,还可以这样操作一下,可以把result结果用msgbox打印出来看看到低是什么值.在做相应处理
或者按F8键进行逐行调试.也许会有些发现