Simulation des touche clavier
cs_simon0000
Messages postés
90
Date d'inscription
lundi 25 juillet 2005
Statut
Membre
Dernière intervention
18 janvier 2006
-
12 sept. 2005 à 17:24
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 12 sept. 2005 à 23:01
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 12 sept. 2005 à 23:01
A voir également:
- Simulation des touche clavier
- Symbole flash clavier ✓ - Forum Flash
- Touche du clavier - Forum Flash
- Appuyer sur une touche - Forum Flash
- Python détecter touche clavier - Forum Delphi / Pascal
- Comment detecter quel touche a ete presser - Forum Visual Basic
2 réponses
CCJ
Messages postés
565
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
30 avril 2008
1
12 sept. 2005 à 17:52
12 sept. 2005 à 17:52
l'API keybdevent est la pr ca ;)
Si l'informatique été de l'alcool il y aurait des genies partout
Si l'informatique été de l'alcool il y aurait des genies partout
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
12 sept. 2005 à 23:01
12 sept. 2005 à 23:01
Salut Simon 0000,
Tu peux voir un exemple de keybd_even
Option Explicit
Const VK_S = 83
Const VK_A = 65
Const VK_L = 76
Const VK_U = 85
Const VK_T = 84
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
'Print the key on the form
Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Clear the form
Me.Cls
keybd_event VK_S, 0, 0, 0 ' press S
keybd_event VK_S, 0, KEYEVENTF_KEYUP, 0 ' release S
keybd_event VK_A, 0, 0, 0 ' press A
keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0 ' release A
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_U, 0, 0, 0 ' press U
keybd_event VK_U, 0, KEYEVENTF_KEYUP, 0 ' release U
keybd_event VK_T, 0, 0, 0 ' press T
keybd_event VK_T, 0, KEYEVENTF_KEYUP, 0 ' release T
End Sub
++
Zlub
Tu peux voir un exemple de keybd_even
Option Explicit
Const VK_S = 83
Const VK_A = 65
Const VK_L = 76
Const VK_U = 85
Const VK_T = 84
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
'Print the key on the form
Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Clear the form
Me.Cls
keybd_event VK_S, 0, 0, 0 ' press S
keybd_event VK_S, 0, KEYEVENTF_KEYUP, 0 ' release S
keybd_event VK_A, 0, 0, 0 ' press A
keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0 ' release A
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_U, 0, 0, 0 ' press U
keybd_event VK_U, 0, KEYEVENTF_KEYUP, 0 ' release U
keybd_event VK_T, 0, 0, 0 ' press T
keybd_event VK_T, 0, KEYEVENTF_KEYUP, 0 ' release T
End Sub
++
Zlub
