CONTROLE DES LED DU CLAVIER

Signaler
Messages postés
111
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 août 2004
-
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2667-controle-des-led-du-clavier

Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007

puissant merci eyesonlyle pour la version xp (ca marche sur windows 2003 server enterprise edition
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007

puissant merci eyesonlyle pour la version xp (ca marche sur windows 2003 server enterprise edition
Messages postés
4
Date d'inscription
samedi 22 novembre 2003
Statut
Membre
Dernière intervention
1 décembre 2003

si ça marche sous win xp jv méclater, jsuis entrain de faire un tetris , ça va maider.
si ça marche merci bcp!!!!!
*bonne prog
Messages postés
3
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
5 août 2004

Voila la reponse pour XP, il faut utiliser sendinput, c'est plus compliqué.
cet exemple permet juste d'allumer/eteindre le bouton numlock, mais l'adapter sera facile.


' a mettre dans un module !!!
' et creer un bouton command
Public Type KEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
End Type
Public Const KEYEVENTF_KEYUP = &H2
Public Type INPUT_TYPE
dwType As Long
xi(0 To 23) As Byte
End Type
Public Const INPUT_KEYBOARD = 1
Public Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As INPUT_TYPE, _
ByVal cbSize As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source _
As Any, ByVal Length As Long)

' a mettre dans "form"

Private Sub Command1_Click()
Dim inputevents(0 To 3) As INPUT_TYPE ' holds information about each event
Dim keyevent As KEYBDINPUT ' temporarily hold keyboard input info

With keyevent
.wVk = vbKeyNumlock
.wScan = 0 ' not needed
.dwFlags = 0 ' press the key down
.time = 0 ' use the default
.dwExtraInfo = 0 ' not needed
End With
' Copy the structure into the input array's buffer.
inputevents(0).dwType = INPUT_KEYBOARD
CopyMemory inputevents(0).xi(0), keyevent, Len(keyevent)

With keyevent
.wVk = vbKeyNumlock
.wScan = 0 ' not needed
.dwFlags = KEYEVENTF_KEYUP ' release the key
.time = 0 ' use the default
.dwExtraInfo = 0 ' not needed
End With
inputevents(1).dwType = INPUT_KEYBOARD
CopyMemory inputevents(1).xi(0), keyevent, Len(keyevent)
SendInput 2, inputevents(0), Len(inputevents(0))
End Sub
Afficher les 8 commentaires