条件满足后,循环不会退出吗?

时间:2015-10-19 12:15:57

标签: vbscript qtp hp-uft do-loops

我一直试图创建一个循环,重复自己,直到页面上没有元素。但是,当满足条件时,循环不会退出。有什么建议吗?

Dim userExt
userExt = 1
Do until Not Browser("Some_browser").Page("Some_page").WebElement("This username is already").exist
  Browser("Some_browser").Page("Some_page").WebEdit("WebEdit").Set "registertester" & userExt+1
  userExt = userExt+1
  Browser("Some_browser").Page("Some_page").WebElement("Save & Continue").Click
Loop

我也尝试将第一行更改为

Do until Browser("Some_browser").Page("Some_page").WebElement("This username is already").exist=False

我尝试添加一个if exists然后退出循环,这不起作用。它只是保持循环。我确信该页面上不存在该元素。

1 个答案:

答案 0 :(得分:1)

源代码中不存在该元素,但由于某种原因,UFT找到了它。我通过浏览页面然后点击"应用程序中的突出显示#34; UFT中的按钮。虽然没有突出显示,但UFT没有产生任何错误。我继续检查元素的属性,找到一个名为visible的属性。

我将Do Until语句更改为:

Do until Browser("Some_browser").Page("Some_page").WebElement("This username is already").GetROProperty("visible")="False"