|
|
发表于 2025-11-6 09:00:32
|
显示全部楼层
黑龙江省鸡西市
.版本 2
.支持库 spec
.程序集 键盘钩子
.子程序 安装_钩子, 整数型, 公开
q_鼠标钩子句柄 = 到整数 (设置系统钩子_ (14, &处理消息, 取实例句柄_ (0), 0))
q_键盘钩子句柄 = 到整数 (设置系统钩子_ (13, &处理消息, 取实例句柄_ (0), 0))
返回 (鼠标钩子句柄)
.子程序 销毁_钩子, , 公开
释放系统钩子_ (键盘钩子句柄)
释放系统钩子_ (鼠标钩子句柄)
.子程序 处理消息, 整数型, , 刚哥科技
.参数 代码值, 整数型
.参数 消息值, 整数型
.参数 参数二, 整数型
.局部变量 按键信息, 按键信息
拷贝内存_ (按键信息, 参数二, 28)
.如果真 (消息值 > 512)
调试输出 (消息值, “消息”)
.判断开始 (消息值 = 513) ' 鼠标左键按下
.默认
.判断结束
.判断开始 (消息值 = 514) ' 鼠标左键放开
.默认
.判断结束
.判断开始 (消息值 = 516) ' 鼠标右键按下
.默认
.判断结束
.判断开始 (消息值 = 517) ' 鼠标右键放开
.默认
.判断结束
.判断开始 (消息值 = 519) ' 鼠标中键按下
.默认
.判断结束
.判断开始 (消息值 = 520) ' 鼠标中键放开
.默认
.判断结束
.如果真结束
.如果真 (消息值 = 256)
调试输出 (按键信息.键代码)
.如果真结束
.如果真 (消息值 = 257)
.如果真结束
返回 (呼叫下一钩子_ (鼠标钩子句柄, 代码值, 消息值, 参数二))
|
|