q1987648 q1987648
一直被模仿
关注数: 0 粉丝数: 3 发帖数: 333 关注贴吧数: 10
请教一个关于鼠标钩子问题~CBM大哥在吗在的话麻烦帮小弟看看代码 Public Sub EnableHook_Mouse() On Error Resume Next If mHook = 0 Then '..................................................................................................启用鼠标钩子 mHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseHookProc, App.hInstance, 0) End If '.............................................................................................................启用鼠标钩子 End Sub Public Sub FreeHook_Mouse() On Error Resume Next If mHook <> 0 Then '.......................................................释放鼠标钩子 Call UnhookWindowsHookEx(mHook) mHook = 0 End If '...................................................................释放鼠标钩子 End Sub Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal iParam As Long) As Long On Error Resume Next Dim MHS As MSLLHOOKSTRUCT, pt As POINTAPI '...........................................................鼠标钩子回调函数 Call CopyMemory(MHS, ByVal iParam, LenB(MHS)) pt = MHS.pt If pt.x > RangeL And pt.x < RangeR Then If pt.y > RangeU And pt.y < RangeD Then MouseHookProc = CallNextHookEx(mHook, nCode, wParam, iParam) Else MouseHookProc = True End If Else MouseHookProc = True End If '..............................................................................................鼠标钩子回调函数 End Function 以上代码在XP下能正常运行 把鼠标控制在屏幕中间的位置~在WIN7下就没效果了 ~~有哪位大神 麻烦帮小弟看看代码 哪里出问题了还是?
1 下一页