HOOK CLAVIER + SOURIS ( PERMET UN BLOQUAGE DU CLAVIER ET/OU DE LA SOURIS )

Option Explicit
Global HookHandleClip As Long
Global HookHandleMouse As Long

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Const WH_MOUSE = 7
Public Const WH_KEYBOARD_LL = 13

Public Const HC_ACTION = 0

' ###################################################################################################
' Hook Clavier#######################################################################################
' ###################################################################################################

Function HookClipBoard() As Integer
On Error GoTo HandledErr

' Dans cette fonction, je lance un hooking clavier. Le 1er paramètre définit l'IDHook
' ( en l'occurence le clavier ).
' ( L'IdHook est définit par des constantes qui sont dans la visionneuse d'API )

' Le 2ème paramètre est l'adresse de la fonction qui traite les messages windows.
' Attention , "AdressOf" ne peut être utilisé que pour un fonction qui est dans un module.

' Le 3ème paramètre est la DLL qui contient la procédure de Hook ( Ici, c'est l'instance du programme
' qui contient cette procédure ( HookRedirClip )

' Le dernier paramètre, est le thread sur lequel agit le hook. "0" permet de ne pas définir de thread
' précis, et donc de hooker tous les threads.

' /!\ Si le hook agit sur un thread précis qui a été crée par le programme lui même, il faut
' que le 3ème paramètre ( hmod soit à "NULL" )

' Lancement du Hook => Redirection des messages Windows sur notre fonction HookRedirClip
HookHandleClip = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf HookRedirClip, App.hInstance, 0)

' La fonction renvoi 1 si elle à fonctionné, et 0 s'il y a eu une erreur.
HookClipBoard = 1

Exit Function

HandledErr:
HookClipBoard = 0

End Function

Function UnHookClipBoard() As Integer
On Error GoTo HandledErr

' Cette fonction est très importante, elle permet de rediriger les messages vers le thread
' d'origine. Si vous ne l'appelez pas avant de quitter, vous devrez rebooter ;-)

' Appel l'API d'Unhooking
UnhookWindowsHookEx HookHandleClip

' Pareil que précédent, la fonction renvoi 1 ou 0 selon la réussite ou l'echec de la fonction.
UnHookClipBoard = 1

Exit Function

HandledErr:
UnHookClipBoard = 0

End Function

Public Function HookRedirClip(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

' Voici la fonction qui va traiter les messages filtrés par le hook.
' Notre but étant de paralyser le clavier, il nous suffit de ne pas renvoyer les messages
' qui lui sont destinés. Nous renvoyons donc -1 ( Considéré comme valeur Nulle ).

HookRedirClip = -1

End Function

' ###################################################################################################
' Hook Souris########################################################################################
' ###################################################################################################


' Le principe étant strictement équivalent il nous suffit juste de changer la constante du IdHook.
' Donc : Voir plus haut ! :p

Function HookMouse() As Integer
On Error GoTo HandledErr

HookHandleMouse = SetWindowsHookEx(WH_MOUSE, AddressOf HookRedirMouse, App.hInstance, 0)
HookMouse = 1

Exit Function

HandledErr:
HookMouse = 0

End Function

Function unHookMouse() As Integer
On Error GoTo HandledErr

UnhookWindowsHookEx HookHandleMouse
unHookMouse = 1

Exit Function

HandledErr:
unHookMouse = 0

End Function

Public Function HookRedirMouse(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
HookRedirMouse = -1
End Function