Delay Time in QTP

[kamalakannan_anandan]

Hi,

I am new QTP, How to set Delay Time in QTP vb Script

Here sample Code

Code:

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("passCount").Select "4" Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select "New York" 'Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromMonth").Select "December" WScript.Sleep( 1000 ) Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromMonth").Select "January" WScript.Sleep(1000) Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromMonth").Select "February" WScript.Sleep(1000)

WScript.Sleep(1000) It Show a error message

Object Required: WScript

Please Help me to solve this problem.

Thanks & Regards,
Kamalakannan Anandan

[vIns]

Hi,
Below is the wait/sleep statement for QTP.

Wait <time in Seconds>
ex: Wait 2

[Palanimurugana]

Use Like below:

WScript.Sleep 1000

[kamalakannan_anandan]

Hi,

Thanks for u r support, It's working correctly.

Thanks & Regards,
Kamalakannan Anandan

[Skepsis]

A better way is to wait for the object, with a time out (say 10 seconds) this way you can handle failures too and variations between machines.

(this is psudo code while loop is probably better)

Code:

continue = false for x = 1 to 10 if (object exists) then continue = true x = 10 endif wait(1000) next if continue <> true then (fail with approperate error)

[tbien]

Code:

public Function waitForElement(element) Dim n for n=0 to 1000 step 1 If element.Exist then n=1000 Else wait 1 End If Next End Function

[rajpes]

Code:

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("passCount").Select "4" Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select "New York" wait 1 Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromMonth").Select "January" wait 1 Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromMonth").Select "February" wait 1