Do Until Loop issue

[mv8167]

Can anyone help me straighten out my Do Loop?

Code:

Do Until Browser("Wisdom").Page("WisdomLogin").Frame("parent").WebElement("Account Documents", "visable:=" &True).Exist(0)
    Wait(1)
Loop

Thx

[tarun]

If you are using this loop to verify if the web element is visible or not, then you can also use the following

Code:

sLoop = True
Do Until sLoop
If cStr(Browser().Page().Frame().WebElement("Account Documents").GetROProperty("Visible")) = "True" Then
    sLoop = False
else
   wait(1)
End if
Loop

[mv8167]

Thx, I will give this a try. I just thought I could pull this off all in three lines. I guess not. ;-) thxx

[supputuri]

Hi Guys,

Just think out of box, what will happen if the application is crashed once the do loop is initiated? The script will never come back.

So the best practice is when ever you are using do loop make sure you have initiate the time elapse.
Below is the snippet, if you feel it's worth keeping the time then you can goahead and use this.

Code:

Dim strInitialTime  : strInitialTime = Now()
Dim boolFlag : boolFlag = False
Do until boolFlag = False or DateDiff("n",strCurrentTime,Now())< 3
  'here you can specify your condition to check.
  'First of all Check whether that object exist or not
  If Browser().Page().Frame().WebElement("Account Documents").Exist(0) Then
     If Browser().Page().Frame().WebElement("Account Documents").GetROProperty("Visible") = True Then
       boolFlag = True
     Else
       wait 1
     End If
  Else
     msgbox "Specified object doesn't exist.
     ExitDo
  End If
Loop

If boolFlag = False Then
msgbox "Object does not meet the condition with in 3 minutes."
End If
Please let me know if you need any further info.

[mv8167]

Perfect, im clear ;-)

thx Supputuri