Fig est dans le contexte application 2DSPH a écrit :Tu veux dire que ca t'arrive quand tu tapes du texte dans l'IDE ?
Code : Tout sélectionner
; Exemple hameçonnage clavier
; écran et ExamineKeyboard () n'est pas nécessaire
; un événement personnalisé est généré lorsqu'une touche est enfoncée
; code de touche virtuelle peut être obtenue avec états Maj, Ctrl et Alt
; par BasicallyPure
; date: 10/13/2014
; OS: windows
; compiler: PB 5.30
; forum topic: http://www.purebasic.fr/english/viewtopic.php?f=12&t=60775
EnableExplicit
Define vKeyCode, scanCode, shiftState, altKeyState, ctrlKeyState, Quit = #False
Define hHookProc ; <--- doit avoir cette procédure pour hameçonnage
#KeyBoard_Event = #PB_Event_FirstCustomValue ; l'hameçonnage génère cet événement sur toute touche pressée
#WinMain = 1
; voici la procédure de rappel de l'hameçonnage
Procedure MyKeyboardHook(nCode, wParam, lParam)
; détache un événement personnalisé (#KeyBoard_Event) quand une touche du clavier est pressée
; informations sur la touche pressée peut être obtenue avec ce qui suit:
; EventData() retourne WPARAM (le code de touche virtuelle).
; EventType() retourne #True si la touche Maj est en pressée lorsque la touche est enfoncée.
; EventGadget() retourne lParam (nombre de répétitions (bits 0-15), le code de balayage (bits 16-23),
; drapeau touche prolongé (24 bits), bits réservés (25-28), le code de contexte (bit 29),
; drapeau touche d'état précédent (bit 30), et le drapeau état-transition (bit 31).
; voir windows 'KeyboardProc callback function' pour plud de détails.
; http://msdn.microsoft.com/en-us/library/windows/desktop/ms644984(v=vs.85).aspx
Shared hHookProc
Static shift, ctrl, alt
Protected vShift, vlParam
If Not (nCode < 0)
If Not lParam & $80000000 ; key down
If wParam = #VK_CONTROL : ctrl + 1 : EndIf
If wParam = #VK_SHIFT : shift + 1 : EndIf
If wParam = #VK_MENU : alt + 1 : EndIf
Select wParam
Case #VK_A To #VK_Z
vShift = Bool(shift > 0) ! (GetKeyState_(#VK_CAPITAL) & 1)
Default
vShift = Bool(shift > 0)
EndSelect
; utilise le bit 25 de vlParam pour l'état touche "CTRL"
vlParam = (lParam & $FDFFFFFF) | (Bool(ctrl > 0) << 25)
Select wParam
Case #VK_SHIFT
If shift < 2 ; éviter la répétition automatique avec shift
PostEvent(#KeyBoard_Event, #WinMain, vlParam, vShift, wParam)
EndIf
Case #VK_CONTROL
If ctrl < 2 ; éviter la répétition automatique avec ctrl
PostEvent(#KeyBoard_Event, #WinMain, vlParam, vShift, wParam)
EndIf
Case #VK_MENU
If alt < 2 ; éviter la répétition automatique avec alt
PostEvent(#KeyBoard_Event, #WinMain, vlParam, vShift, wParam)
EndIf
Default
PostEvent(#KeyBoard_Event, #WinMain, vlParam, vShift, wParam)
EndSelect
Else ; touche Haut
Select wParam
Case #VK_SHIFT : shift = 0
Case #VK_CONTROL : ctrl = 0
Case #VK_MENU : alt = 0
EndSelect
EndIf
EndIf
ProcedureReturn CallNextHookEx_(hHookProc, nCode, wParam, lParam)
EndProcedure
If OpenWindow(#WinMain, 0, 0, 400, 200, "hameçonnage clavier", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
; créer l'hameçonnage
hHookProc = SetWindowsHookEx_(#WH_KEYBOARD, @MyKeyboardHook(), #Null, GetCurrentThreadId_())
StringGadget(0, 10, 10, 100, 25, "")
StringGadget(1, 10, 45, 100, 25, "")
SpinGadget(2, 10, 90, 100, 25, 0, 100, #PB_Spin_Numeric)
ButtonGadget(3, 150, 10, 50, 25, "vider")
EditorGadget(4, 210, 10, 150, 150)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = #True
Case #PB_Event_Gadget
Select EventGadget()
Case 0 :
Case 1 :
Case 2 :
Case 3 : SetGadgetText(4, "") : SetActiveGadget(4)
Case 4 :
EndSelect
Case #KeyBoard_Event ; à cet événement personnalisé
; EventData() donne le code de touche virtuelle
; EventGadget() Bits 16-23 donne le code de balayage
; EventType() donne l'état de la touche shift
; EventGadget() bit 29 donne l'état de la touche alt
; EventGadget() bit 25 donne l'état de la touche ctrl
vKeyCode = EventData() ; obtenir code vKey
scanCode = (EventGadget() & $FF0000) >> 16 ; obtenir code de balayage
shiftState = EventType() ; obtenir état shift
altKeyState = (EventGadget() & $20000000) >> 29 ; obtenir état alt
ctrlKeyState = (EventGadget() & $2000000) >> 25 ; obtenir état ctrl
Debug "virtual key code = " + vKeyCode +
" | scan code = " + scanCode +
" | shift = " + shiftState +
" | Alt = " + altKeyState +
" | ctrl = " + ctrlKeyState
; effectuer une action si touche "Entrée" a été enfoncée alors
; que le gadget de votre choix avait le focus
If vKeyCode = #VK_RETURN
Select GetActiveGadget()
Case 0 : SetActiveGadget(1)
Case 1 : SetActiveGadget(0)
Case 2 : SetGadgetText(2, Str(GetGadgetState(2))) ; spin gadget
EndSelect
EndIf
EndSelect
Until Quit = #True
; supprimer l'hameçonnage
UnhookWindowsHookEx_(hHookProc)
EndIf
; Epb