Add a Delay without using sleep / wait

Lets see a simple code snippet that will add some delay without using the native wait or sleep methods while coding using VBs/QTP/QC

Sub Delay( seconds )
    Dim wshShell
    Set wshShell = CreateObject( "WScript.Shell" )
    wshShell.Run "ping -n " & ( seconds + 1 ) & "", 0, True
    Set wshShell = Nothing
End Sub

Happy Coding!


Popular posts from this blog

XPATH for IE / internet explorer

All time good software testing books!