delphi 鼠标钩子记录鼠标运行轨迹？低级鼠标键盘钩子的疑问.该怎么解决

本文目录

• delphi 鼠标钩子记录鼠标运行轨迹
• 低级鼠标键盘钩子的疑问.该怎么解决
• 什么是鼠标钩子
• VB鼠标钩子的问题
• c#鼠标钩子问题
• 易语言安装鼠标钩子，鼠标会卡一下，怎么解决

delphi 鼠标钩子记录鼠标运行轨迹

钩子类型：WH_MOUSE_LL 这个是全局的 值为14; WH_MOUSE是局部的 值为7数据结构：PMouseHookStruct鼠标坐标保存在钩子函数的lParam参数中, 如下：PMouseHookStruct(lParam).pt.XPMouseHookStruct(lParam).pt.Y这个应该可以记录鼠标轨迹了。如果要将即时的坐标值回传给调用钩子的exe程序, 那么重载WndProc方法, 这样的话需要在exe端自定义一个消息标示符, 在挂钩的时候传入, 在钩子程序SendMessage的时候把这个消息标示符一起发送到exe端, exe端判断Message.msg是否等于自定义的消息标示符, 如果Ture则保存坐标inherited， 否则直接inherited。

低级鼠标键盘钩子的疑问.该怎么解决

*鼠标和键盘不能都锁定吧，否则用什么来重新打开屏幕啊*低级钩子的方法是不行的。系统底层（驱动层）收到输入就开启屏幕了。之后才会调用低级钩子。所以低级钩子拦截是没用的。*如果你的系统是professional的，好像在鼠标的驱动配置里面（设备管理器）电源管理里面可以配置鼠标不唤醒。*可以是usb鼠标，可以考虑关屏幕后卸载掉这个usb设备。这样鼠标就不会触发了。之后开屏再重启这个usb设备*我看过一款关屏幕软件确实做到关闭屏幕后鼠标不会从开屏幕的。但不知道它是用什么原理

什么是鼠标钩子

钩子(Hook)，是Windows消息处理机制的一个平台，应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。钩子实际上是一个处理消息的程序段，通过系统调用，把它挂入系统。每当特定的消息发出，在没有到达目的窗口前，钩子程序就先捕获该消息，亦即钩子函数先得到控制权。这时钩子函数即可以加工处理（改变）该消息，也可以不作处理而继续传递该消息，还可以强制结束消息的传递。Hook API是指Windows开放给程序员的编程接口，使得在用户级别下可以对操作系统进行控制，也就是一般的应用程序都需要调用API来完成某些功能，Hook API的意思就是在这些应用程序调用真正的系统API前可以先被截获，从而进行一些处理再调用真正的API来完成功能。1） 键盘钩子和低级键盘钩子可以监视各种键盘消息。 （2） 鼠标钩子和低级鼠标钩子可以监视各种鼠标消息。 （3） 外壳钩子可以监视各种Shell事件消息。比如启动和关闭应用程序。 （4） 日志钩子可以记录从系统消息队列中取出的各种事件消息。 （5） 窗口过程钩子监视所有从系统消息队列发往目标窗口的消息

VB鼠标钩子的问题

使用子类化，而不是使用全局钩子。如果非得使用全局钩子，那可以在程序最小化or失去焦点时取消Hook。Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GWL_WNDPROC = (-4)Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_MOUSEWHEEL = &H20A初始化：lHwnd=Frm.hWnd ’你的窗体sHwnd=SetWindowLong(lHwnd, GWL_WNDPROC, AddressOf MouseProc)结束：Call SetWindowLong(lhWnd, GWL_WNDPROC, sHwnd)Public Function MouseProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If Msg = WM_MOUSEWHEEL Then Select Case wParam Case &H780000 ’向上滚 MoveUp = True Case &HFF880000 ’向下滚 MoveUp = False End Select EventRaised = True End If MouseProc = CallWindowProc(sHwnd, hWnd, Msg, wParam, lParam)End Function

c#鼠标钩子问题

用mouse_event发送鼠标右键事件。如果仅是恶作剧的话，修改右手鼠标为左手鼠标就行了。鼠标钩子，八成会被杀毒软件干掉。 static extern void mouse_event(MouseEventFlag flags, int dx, int dy, uint data, UIntPtr extraInfo);enum MouseEventFlag : uint { Move = 0x0001, LeftDown = 0x0002, LeftUp = 0x0004, RightDown = 0x0008, RightUp = 0x0010, MiddleDown = 0x0020, MiddleUp = 0x0040, XDown = 0x0080, XUp = 0x0100, Wheel = 0x0800, VirtualDesk = 0x4000, Absolute = 0x8000 }

易语言安装鼠标钩子，鼠标会卡一下，怎么解决

安装前让启动窗口可视=假

（在属性表里写,见上图）

安装前再  可视=真

呵呵，是不是不会卡了？我也不知道是怎么回事 -、-|||

另外在

__启动窗口_首次激活

中直接写 SetWindowsHookExA  也可以达到鼠标不卡的效果额~

无间断、无间断、无间断……

看看其他的消息值：

另外还有512=鼠移动   522=鼠滚轮