Programme:
Code : Tout sélectionner
#Librairie=0
#WM_MONMESSAGE= #WM_USER+1
Structure Partage
Hook.l
HandleApplication.l
HandleFocusClavier.l
ActiverHook.l
EndStructure
Global *Vue.Partage
Procedure ProcedureCallback(WindowID.l, Message.l, wParam.l, lParam.l)
Resultat = #PB_ProcessPureBasicEvents
Select Message
Case #WM_MONMESSAGE
;Si wParam >0, alors on à un code ascii sinon c'est ue touche système
If wParam>0
;Code ascii
AddGadgetItem(0,-1,Chr(wParam))
Else
;Code virtuel de la touche
AddGadgetItem(0,-1,"Code virtuel de la touche="+Str(lParam))
EndIf
EndSelect
ProcedureReturn Resultat
EndProcedure
If OpenWindow(0,0,0,200,200,"Capture du clavier",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_TitleBar)
EditorGadget(0,10,10,180,140,#PB_Editor_ReadOnly)
ButtonGadget(1,50,160,100,30,"Quitter")
SetWindowCallback(@ProcedureCallback())
StickyWindow(0,1)
Hmodule = OpenLibrary(#Librairie,"Hook_Clavier_Global_dll.dll")
If Hmodule=0
MessageRequester("Info","La Dll (Hook_Clavier_Global_dll.dll) n'a pu être chargée!, le programme va se terminer")
End
EndIf
*Vue=CallFunction(#Librairie, "Initialiser_Hook", WindowID(0),Hmodule)
If *Vue=0
MessageRequester("Info","L'installation du Hook a échoué!, le programme va se terminer")
End
EndIf
Repeat
Event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Quit=1
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit=1
If *Vue<>0
If CallFunction(#Librairie, "Fermeture_Hook")=0
MessageRequester("Info","La désinstallation du Hook à échoué!")
EndIf
EndIf
EndIfla DLL, à compiler sous le nom de Hook_Clavier_Global_dll.dll:
Code : Tout sélectionner
#WM_MONMESSAGE= #WM_USER+1
Structure Partage
Hook.l
HandleApplication.l
HandleFocusClavier.l
ActiverHook.l
EndStructure
Global MemoirePartagee.l,*Vue.Partage
Global Dim Key.b(255)
Procedure.l Keyboard_Hook(nCode.l, wParam.l, lParam.l)
;Quel que soit le type de hook, La valeur nCode doit toujours être vérifiée
;car si elle est inférieur à 0, il faut passer l'évènement à la procédure
;d'interception suivante.
If nCode < 0
ProcedureReturn CallNextHookEx_(*Vue\Hook, nCode, wParam, lParam)
EndIf
If *Vue\ActiverHook=#True
If nCode=#HC_ACTION
If lParam & 2147483648=0 ;(Test du bit 31= 2^31 0 si enfoncé, 1 si relaché)
;
Ascii.w=0
GetKeyboardState_(@Key(0))
;Le paramètre wparam renvoie le code virtuel de la touche
;pour le convertir en Ascii si c'est un caractère, on utilise cette fonction
ToAscii_(wParam,(lParam>>16) & $FF ,@Key(0),@Ascii,0)
; Control ayant le focus clavier
*Vue\HandleFocusClavier=GetFocus_()
PostMessage_(*Vue\HandleApplication,#WM_MONMESSAGE,Ascii, wParam)
EndIf
EndIf
EndIf
ProcedureReturn CallNextHookEx_(*Vue\Hook, nCode, wParam, lParam)
EndProcedure
ProcedureDLL AttachProcess(Instance.l)
MemoirePartagee=CreateFileMapping_($FFFFFFFF,#Null, #PAGE_READWRITE, 0, SizeOf(Partage),"Mapping")
*Vue=MapViewOfFile_(MemoirePartagee, #FILE_MAP_WRITE, 0, 0, 0)
EndProcedure
ProcedureDLL DetachProcess(Instance.l)
UnmapViewOfFile_(VueDonnees)
CloseHandle_(MemoirePartagee)
EndProcedure
ProcedureDLL AttachThread(Instance.l)
EndProcedure
ProcedureDLL DetachThread(Instance.l)
EndProcedure
ProcedureDLL.L Initialiser_Hook(Handle.l,Hinst.l)
Protected Hook.l
*Vue\HandleApplication=Handle
Hook.l = SetWindowsHookEx_(#WH_KEYBOARD,@Keyboard_Hook(),Hinst,0)
If Hook = #False
ProcedureReturn 0
EndIf
*Vue\Hook=Hook
*Vue\ActiverHook=#True
ProcedureReturn *Vue
EndProcedure
ProcedureDLL.l Fermeture_Hook()
Protected Result.l
Result.l= UnhookWindowsHookEx_(*Vue\Hook)
ProcedureReturn Result
EndProcedure
