鼠标失灵c语言代码,[转载]键盘和鼠标操作失灵代码

'很酷的代码，让鼠标和键盘操作失灵

Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As

Long)

Public Const WH_JOURNALPLAYBACK = 1

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

Sub EnableHook()

hNxtHook =

SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf HookProc,

App.hInstance, 0)

End Sub

Sub FreeHook()

UnhookWindowsHookEx hNxtHook

End Sub

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

lParam As Long) As Long

HookProc = CallNextHookEx(hNxtHook, code, wParam, lParam)

End Function