求易语言一个全局鼠标钩子的源码(不用模块的)
若以下回答无法解决问题,邀请你更新回答
展开全部
...额这个嘛。。。API你自己找咯~ .版本 2 .程序集 窗口程序集1 .程序集变量 hook, 整数型 .程序集变量 sbhook, 整数型 .子程序 __启动窗口_创建完毕 hook = SetWindowsHookEx (13, &钩子函数, GetModuleHandle (0), 0) .子程序 钩子函数, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .参数 参数三, 整数型 .局部变量 鼠标, MOUSEHOOKSTRUCT .局部变量 句柄, 整数型 CopyMemory (鼠标, 参数三, 20) 句柄= WindowFromPoint (鼠标.pt.X, 鼠标.pt.Y) 标签1.标题 = “当前鼠标处句柄:”+ 到文本 (句柄) 标签1.标题 = 到文本 (鼠标.pt.X) +“,”+ 到文本 (鼠标.pt.Y) 返回(CallNextHookEx (sbhook, 参数一, 参数二, 参数三)) .子程序 __启动窗口_将被销毁 UnHookWindowsHookEx (sbhook)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询