Clavier

Question

J'ai une petite question, est-il possible de simuler les touches du clavier? Comme par exemple lorsque je pars le programme il fait comme si javais peser sur A, ensuite une pause de 1 sec, sur L, un pause de 1 sec, encore sur L, une pause de 1 sec et puis sur O?  S'il y a quelque qui le sait serait-il possible d'avoir une petit exemple pour aider a comprendre?

Jn

jnbrunet · Answer

Bon oubliez sa j'ai trouv&#233; comment faire.. pour les autres qui ne savent pas voi&#231;i une petite source que j'ai fais moi m&#234;me.

Option Explicit



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



 
Private Sub Command1_Click()
'active un timer pour vous laisser le temp de vous placer dans le textbox
Timer1.Interval = "1000"
Timer1.Enabled = True


End Sub


Private Sub simuler()


 keybd_event 65, 0, 0, 0
 'enfonce la touche a
 keybd_event 65, 0, 2, 0
 'remonte la touche a
 DoEvents
 
 Sleep 1000
 'pause de 1 sec
  
  
  keybd_event 76, 0, 0, 0
 'enfonce la touche l
 keybd_event 76, 0, 2, 0
 'remonte la touche l
 DoEvents
 
 
 Sleep 1000
 'pause de 1 sec
  
  
  keybd_event 76, 0, 0, 0
 'enfonce la touche l
 keybd_event 76, 0, 2, 0
 'remonte la touche l
 DoEvents
 
  Sleep 1000
 'pause de 1 sec
 
 
  keybd_event 79, 0, 0, 0
 'enfonce la touche 0
 keybd_event 79, 0, 2, 0
 'remonte la touche 0
 DoEvents
End Sub


Private Sub Timer1_Timer()
simuler
'active la simulation de clavier
Timer1.Enabled = False
End Sub

Jn
Si vous connaissez des moyens plus simple dites moi le!

jnbrunet · Answer

&#192; et juste pour pr&#233;ciser  lorsque je dis dans ma source plus haut:
keybd_event 76, 0, 0, 0
 'enfonce la touche l
 keybd_event 76, 0, 2, 0
 'remonte la touche l
 DoEvents

le 76 est le num&#233;ro de la touche. 
le 2 est pour dire de remonter la touche qui &#224; &#233;t&#233; enfonc&#233;...si vous n'aviez pas compris

Pour conna&#238;tre les num&#233;ros des touches faite vous une petite form et ajoutez ceci dans la source:

Private Sub form_keyup(keycode As Integer, shift As Integer)
MsgBox keycode
End Sub

Clavier

2 réponses

Discussions similaires