VB 禁用鼠标 屏蔽鼠标消息

VB 禁用鼠标屏蔽鼠标消息

'模块.bas 代码

Option Explicit

Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long) Private Const WH_MOUSE = 7

Const WM_MOUSELAST = &H209

Const WM_MOUSEFIRST = &H200

Public Const WM_KEYLAST = &H108

Public Const WM_KEYFIRST = &H100

Public Const WH_JOURNALRECORD = 0

Public Const WH_JOURNALPLAYBACK = 1

Type EVENTMSG

message As Long

paramL As Long

paramH As Long

time As Long

hWnd As Long

End Type

Declare Function SetWindowsHookEx Lib "user32" Alias _ "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _ ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Declare Function UnhookWindowsHookEx Lib "user32" _

(ByVal hHook As Long) As Long

Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long Public hNxtHook As Long

Public msg As EVENTMSG

Sub EnableHook()

hNxtHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf HookProc, App.hInstance, 0)

End Sub

Sub FreeHook()

Dim ret As Long

ret = UnhookWindowsHookEx(hNxtHook)

End Sub

Function HookProc(ByVal code As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long