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