Can hold a key press for 10 seconds ?

[subiya]

Hi
I have to hold a key press for 10 second in my test. Is there any option in QTP\VBscript to do this ?

Please give me an answer...

[guin.anirban]

Can you check the following and let me know whether it's working or not?

Code:

Print Time

b = DateAdd("s", 10, Time)

Set WshShell = CreateObject("WScript.Shell")

Do While (Time < b)        
        
        WshShell.SendKeys "{ENTER}"

Loop

Print Time

Set WshShell = Nothing