EnableExplicit Define EventID Define hhkLLMouse Define hhkLLKey Procedure MouseKeyHook(nCode, wParam, lParam) Protected EvenementClavier Select wParam Case #WM_LBUTTONDOWN ProcedureReturn 1 Case #WM_KEYDOWN EventwParam() Case #WM_KEYUP EvenementClavier = EventwParam() EndSelect ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam) EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ButtonGadget(1,10,10,100,50,"Klicken Sie Ihre linke Maustaste..."+Chr(13)+"Beenden = Esc",#PB_Button_MultiLine) hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE_LL, @MouseKeyHook(), GetModuleHandle_(0), 0) hhkLLKey = SetWindowsHookEx_(#WH_KEYBOARD_LL, @MouseKeyHook(), GetModuleHandle_(0), 0) AddKeyboardShortcut(0,#PB_Shortcut_Escape,1) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Menu Select EventMenu() Case 1 EventID = #PB_Event_CloseWindow EndSelect EndIf Until EventID = #PB_Event_CloseWindow EndIf UnhookWindowsHookEx_(hhkLLMouse) UnhookWindowsHookEx_(hhkLLKey)