Public Declare Function CallNextHookEx Lib “user32” (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
\nPublic Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)<\/p>\n

Public Type MOUSEMSGS
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 X As Long\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘x\u5ea7\u6807
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Y As Long\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘y\u5ea7\u6807
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a As Long
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 b As Long
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 time As Long\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘Window\u8fd0\u884c\u65f6\u95f4
\nEnd Type<\/p>\n

\u00a0Public Const WH_MOUSE_LL = 14<\/p>\n

‘—————————————–
\n‘\u6d88\u606f
\nPublic Const HC_ACTION = 0<\/p>\n

‘\u9f20\u6807\u6d88\u606f
\nPublic Const WM_MOUSEMOVE = &H200
\nPublic Const WM_LBUTTONDOWN = &H201
\nPublic Const WM_LBUTTONUP = &H202
\nPublic Const WM_LBUTTONDBLCLK = &H203
\nPublic Const WM_RBUTTONDOWN = &H204
\nPublic Const WM_RBUTTONUP = &H205
\nPublic Const WM_RBUTTONDBLCLK = &H206
\nPublic Const WM_MBUTTONDOWN = &H207
\nPublic Const WM_MBUTTONUP = &H208
\nPublic Const WM_MBUTTONDBLCLK = &H209
\nPublic Const WM_MOUSEACTIVATE = &H21
\nPublic Const WM_MOUSEFIRST = &H200
\nPublic Const WM_MOUSELAST = &H209
\nPublic Const WM_MOUSEWHEEL = &H20A<\/p>\n

Public MouseMsg As MOUSEMSGS
\nPublic lHook As Long ‘\u8bb0\u5f55Hook\u7684\u503c\uff0c\u4ee5\u4fbf\u9000\u51fa\u7a0b\u5e8f\u7684\u65f6\u5019\u9500\u6bc1Hook
\nPublic lClick As Long, mClick As Long, rClick As Long, tClick As Long ‘\u7528\u6765\u7edf\u8ba1\u9f20\u6807\u5404\u4e2a\u952e\u7684\u6309\u4e0b\u6b21\u6570
\n‘\u9f20\u6807\u94a9\u5b50
\nPublic Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long<\/p>\n

\u00a0If code = HC_ACTION Then
\n\u00a0\u00a0\u00a0 CopyMemory MouseMsg, lParam, LenB(MouseMsg)<\/p>\n

\u00a0\u00a0\u00a0 frmMain.Caption = “X=” + Str(MouseMsg.X) + ” Y=” + Str(MouseMsg.Y)’\u5728\u4e3b\u7a97\u53e3\u4e0a\u663e\u793a\u9f20\u6807\u7684\u5f53\u524d\u4f4d\u7f6e<\/p>\n

\u00a0\u00a0\u00a0 Select Case wParam ‘\u6839\u636e\u4e0d\u540c\u9f20\u6807\u52a8\u4f5c\u8fdb\u884c\u5904\u7406\uff0c\u5728\u8fd9\u91cc\u53ea\u5904\u7406\u4e86\u9f20\u6807\u6309\u4e0b\u7684\u52a8\u4f5c
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Case WM_LBUTTONDOWN ‘\u5de6\u952e\u6309\u4e0b
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 lClick = lClick + 1\u00a0 ‘\u8fdb\u884c\u7edf\u8ba1\uff0c\u5e76\u663e\u793a\u5728\u4f4f\u7a97\u4f53\u7684\u6587\u672c\u6846\u4e0a
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tClick = tClick + 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 frmMain.txtMsg(0).Text = lClick
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 frmMain.txtMsg(3).Text = tClick
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CallMouseHookProc = 0 ‘\u8fd9\u91cc\u628a\u8fd4\u56de\u503c\u8bbe\u5b9a\u4e3a0\uff0c\u4fdd\u8bc1\u9f20\u6807\u52a8\u4f5c\u6b63\u5e38\u5b8c\u6210
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Case WM_MBUTTONDOWN ‘\u4e2d\u952e\u6309\u4e0b
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 mClick = mClick + 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tClick = tClick + 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 frmMain.txtMsg(1).Text = mClick
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 frmMain.txtMsg(3).Text = tClick
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CallMouseHookProc = 0
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Case WM_RBUTTONDOWN ‘\u53f3\u952e\u6309\u4e0b
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 rClick = rClick + 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 tClick = tClick + 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 frmMain.txtMsg(2).Text = rClick
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 frmMain.txtMsg(3).Text = tClick
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CallMouseHookProc = 0
\n\u00a0\u00a0\u00a0 End Select
\n\u00a0
\nEnd If<\/p>\n

If code <> 0 Then
\n\u00a0\u00a0\u00a0 CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam) ‘\u4f7f\u7528CallNextHookEx\uff0c\u6765\u4fdd\u8bc1\u9f20\u6807\u94a9\u5b50\u80fd\u591f\u88ab\u5176\u5b83\u7a0b\u5e8f\u4f7f\u7528
\nEnd If
\n\u00a0
\nEnd Function<\/p>\n

\u00a0‘\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u518d\u7ed9\u7a97\u4f53\u91cc\u9762\u6dfb\u52a0\u4ee3\u7801<\/p>\n

\u00a0Private Sub AddHook()\u00a0 ‘\u5b89\u88c5\u9f20\u6807\u94a9\u5b50
\n\u00a0 lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
\nEnd Sub
\nPrivate Sub DelHook()’\u5378\u9664\u9f20\u6807\u94a9\u5b50<\/p>\n

\u00a0 UnhookWindowsHookEx lHook
\nEnd Sub<\/p>\n

Private Sub Form_Load() ‘\u7a97\u4f53\u8f7d\u5165\u7684\u65f6\u5019\uff0c\u5b89\u88c5\u9f20\u6807\u94a9\u5b50
\n\u00a0\u00a0\u00a0 AddHook
\nEnd Sub<\/p>\n

Private Sub Form_Unload(Cancel As Integer)’\u7a97\u4f53\u5378\u8f7d\u7684\u65f6\u5019\uff0c\u5378\u9664\u9f20\u6807\u94a9\u5b50
\n\u00a0\u00a0\u00a0 DelHook
\nEnd Sub<\/p>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

‘\u9996\u5148\u7528\u5efa\u7acb\u4e00\u4e2a\u6807\u51c6Exe\u7a0b\u5e8f ‘\u628a\u7a97\u4f53\u540d\u79f0...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21],"tags":[],"class_list":["post-306","post","type-post","status-publish","format-standard","hentry","category-vb"],"_links":{"self":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/306","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=306"}],"version-history":[{"count":1,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/306\/revisions"}],"predecessor-version":[{"id":307,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/306\/revisions\/307"}],"wp:attachment":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=306"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=306"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=306"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}