Comment bloquer le clavier ou la souris

gnHandleHook est une variable globale de la fenêtre.

// Déclaration de la fenêtre
gnHandleHook est un entier

// Clic bouton qui commence le blocage clavier
gnHandleHook = API("user32","SetWindowsHookExA",13,&Procédure_Hook, Instance() ,0)
// Pour bloquer la souris il suffit de remplacer "13" par "14"

// Procédure globale
PROCEDURE Procédure_Hook(ncode, wParam, lParam) 
RENVOYER -1 // -1 oculte l'évènement

// Clic bouton qui termine le blocage
SI PAS API("user32","UnhookWindowsHookEx",gnHandleHook) ALORS
	Erreur("erreur ")
FIN