[PB4]Mausklick hooken

[myself]

Dieser code zeigt euch wie ihr mausklicks durch einen Systemweiten hook abfängt und verarbeitet, wenn ihr eure linke maustaste wiederhaben wollt drückt Escape

Code: Alles auswählen

Structure llmouse
  p.POINT
  mouseData.w
  flags.w
  time.w
  dwExtraInfo.w
EndStructure

Procedure.l mousehook(nCode,wParam,*p.llmouse)
  If wParam = 513
    Debug "Klick!"
    ProcedureReturn 1
    Else
    ProcedureReturn CallNextHookEx_(0,nCode,wParam,*p)
  EndIf
EndProcedure


MessageRequester("Hook","Alle linken Mausklicks werden abgefangen! Zum beenden drücke Escape.")

SetWindowsHookEx_(#WH_MOUSE_LL,@mousehook(),GetModuleHandle_(0),0)

Repeat

Delay(1)
WindowEvent()
Until GetAsyncKeyState_(#VK_ESCAPE)

So lassen sich natürlich auch rechte mausklicks und/oder die ganze mausbewegung abfangen!

mfg Ninja

[Arrag0n]

@myself

Das ist cool. Kann man ab und zu gebrauchen.


mfg
Arrag0n