Question

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

.版本 2
.支持库 EThread
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
hook ＝ SetWindowsHookExA (14, &钩子处理, GetModuleHandleA (0), 0)
.子程序 钩子处理, 整数型
.参数 code, 整数型
.参数 wp, 整数型
.参数 lp, 整数型
.判断开始 (wp ＝ 513)
左键 ＝ 真
时钟1.时钟周期 ＝ 200 ' 限制左键和右键最大时间间隔
.如果真 (右键)
启动线程 (&子程序1, )
.如果真结束
.判断 (wp ＝ 514)
时钟1.时钟周期 ＝ 0
左键 ＝ 假
.判断 (wp ＝ 516)
时钟1.时钟周期 ＝ 200
右键 ＝ 真
.如果真 (左键)
启动线程 (&子程序1, )
.如果真结束
.判断 (wp ＝ 517)
右键 ＝ 假
时钟1.时钟周期 ＝ 0
.默认
.判断结束
返回 (CallNextHookEx (hook, code, wp, lp))
.子程序 子程序1
信息框 (“您同时按下了左右键！ ” ＋ #换行符 ＋ #换行符 ＋ 取空白文本 (7) ＋ “近在眼前出品”, #信息图标, )
.子程序 _时钟1_周期事件
左键 ＝ 假
右键 ＝ 假
.子程序 __启动窗口_可否被关闭, 逻辑型
UnhookWindowsHookEx (hook)

Answer 1

    

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

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

安装前再  可视=真

   

   

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

另外在

__启动窗口_首次激活

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

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

  

看看其他的消息值：

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