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