J'ai trouvé ça peut servir
// Forcer numlock en vérouillage
// amélioration apportée par DAUTREY François e-mail : dautreyfrancois@free.fr
// pour tenir compte des versions de windows
// sans garantie pour milénium je n'ai pas pu tester
vers est une chaîne
VK_NUMLOCK est un entier sur 4 octets = 0x90 + 1
Clavier est un tableau de 256 caractères
EtatTouche est un entier
vers=SysVersionWindows()
SI (vers="XP") OU (vers="ME") ALORS
EtatTouche=ETBinaire(AppelDLL32("USER32","GetKeyState",144),1)
SI EtatTouche=0 ALORS
API("USER32","keybd_event",144,0x45,1,0)
API("USER32","keybd_event",144,0x45,2,0)
FIN
SINON
API("USER32","GetKeyboardState",&Clavier[1])
Clavier[VK_NUMLOCK] = 1
API("USER32","SetKeyboardState",&Clavier[1])
FIN |