Question

求易语言一个全局鼠标钩子的源码(不用模块的)

若以下回答无法解决问题，邀请你更新回答

Answer 1

...额这个嘛。。。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)