移动鼠标或按下键盘的键时，弹出窗口

yzy26353520

比如，移动鼠标 或 按下键盘的键时，弹出窗口

拉风晓晓

1. #include <WinAPI.au3>
   
2. #include <WindowsConstants.au3>
   
3. 
   
4. Opt('MustDeclareVars', 1)
   
5. HotKeySet("^{end}",'_exit')
   
6. Global $hHook, $hStub_KeyProc
   
7. Global $hStub_MouProc,$hHook_mouse
   
8. Local $hmod
   
9. $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
   
10. $hStub_MouProc = DllCallbackRegister("_Mouse_Events_Handler", "int", "int;ptr;ptr")
    
11. $hmod = _WinAPI_GetModuleHandle(0)
    
12. $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
    
13. $hHook_mouse=_WinAPI_SetWindowsHookEx($WH_MOUSE_LL,DllCallbackGetPtr($hStub_MouProc),$hmod)
    
14. While 1
    
15.         Sleep(10)
    
16.                
    
17. WEnd
    
18. Func _KeyProc($nCode, $wParam, $lParam)
    
19.         Local $tKEYHOOKS, $wVKey
    
20.         $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    
21.         If $nCode < 0 Then
    
22.                 Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
    
23.         EndIf
    
24.         $wVKey = DllStructGetData($tKEYHOOKS, "vkCode")
    
25.                 If ($wParam = $WM_KEYDOWN) Then
    
26.                         ToolTip(''&$wVKey&''&" was pressed.")
    
27.                                                 Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam) ;不加这一句可以截断按下动作传递
    
28.                                                
    
29.                         Return 1
    
30.                 ElseIf ($wParam = $WM_KEYUP) Then
    
31.                         ToolTip(''&$wVKey&''&" was released.")
    
32.                                                                                                 Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam) ;不加这一句可以截断弹起动作传递
    
33.                 EndIf
    
34.         
    
35.         EndFunc        ;==>_KeyProc
    
36.        
    
37. Func _Mouse_Events_Handler($wnCode, $wwParam, $wlParam)
    
38.                 Switch $wwParam
    
39.                                 Case $WM_LBUTTONUP     ;弹起鼠标左键
    
40.                                         ToolTip('L UP.')
    
41.                                        
    
42.                                                                 Case $WM_LBUTTONDOWN     ;按下鼠标左键
    
43.                                         ToolTip('L DOWN.')
    
44.                                        
    
45.                                 Case $WM_RBUTTONUP    ;弹起鼠标右键
    
46.                                         ToolTip('R UP.')
    
47.                                        
    
48.                                                                 Case $WM_RBUTTONDOWN    ;按下鼠标右键
    
49.                                         ToolTip('R DOWN.')
    
50.                                 EndSwitch
    
51.                         ;Return _WinAPI_CallNextHookEx($hHook_mouse, $wnCode, $wwParam, $wlParam) ;与按键相同，不加这一句可以阻断鼠标动作传递,但是实际测试没有效果，都不能阻断
    
52. EndFunc
    
53. 
    
54. 
    
55. Func _exit()
    
56.         _WinAPI_UnhookWindowsHookEx($hHook)
    
57.         DllCallbackFree($hStub_KeyProc)
    
58.         Exit
    
59. EndFunc   ;==>_exit
    

复制代码

用钩子函数，可以实现的

风行月影

谢谢分享！~