//L`exemple est fait avec NUMLOCK

VK_NUMLOCK est un entier long = 0x90
VK_CAPITAL est un entier long = 0x14

// Récupération de l`état de NUMLOCK
SI AppelDLL32("user32","GetKeyState",VK_NUMLOCK) ALORS
Trace("NUMLOCK actif")
SINON
Trace("NUMLOCK inactif")
FIN

// Les deux lignes sont nécessaires
AppelDLL32("user32","keybd_event",VK_NUMLOCK,0,KEYEVENTF_EXTENDEDKEY+0,0)
AppelDLL32("user32","keybd_event",VK_NUMLOCK,0,KEYEVENTF_EXTENDEDKEY+KEYEVENTF_KEYUP,0)

// Laisser le temps à Windows de modifier l`état de la touche avant de la tester
Multitâche()

// Récupération de l`état de NUMLOCK
SI AppelDLL32("user32","GetKeyState",VK_NUMLOCK) ALORS
Trace("NUMLOCK actif")
SINON
Trace("NUMLOCK inactif")
FIN