Holding a key down?

[Dude]

This code holds down the "A" key, but doesn't repeat it. I want it to show "aaaaaaaaaa" but it only types the initial first "a" and then no more, even though the key state is down.

Code: Select all

keybd_event_(#VK_A,0,0,0)
Sleep_(5000)

It works if I do it in a loop like below, but is that really necessary?

Code: Select all

timeout.q=ElapsedMilliseconds()+1000
Repeat
  keybd_event_(#VK_A,0,0,0)
  Sleep_(1)
Until ElapsedMilliseconds()>timeout

[Otrebor]

Hi
This code was very usefull for me:
http://www.purebasic.fr/english/viewtop ... yboardHook

[Fig]

You need to release the key, repetition doesn't work else.

Code: Select all

Procedure simulerTouche(a.i)
  keybd_event_(a,0,0,0) ;key down
  keybd_event_(a,0,#KEYEVENTF_KEYUP,0) ;key up
EndProcedure
simulerTouche(#VK_A)
simulerTouche(#VK_A)
simulerTouche(#VK_A)