自定义屏蔽键盘任意键

.子程序 屏蔽按键, , 公开, 屏蔽任意键
.参数 键码, 整数型, , 键代码，可以是E的常数如：#A键

键代码 ＝ 键码
卸载钩子 (钩子句柄)
钩子句柄 ＝ 安装钩子 (13, &低级键盘钩子, GetModuleHandleA (0), 0) ' 锁键盘

.子程序 低级键盘钩子, 整数型
.参数 icode, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 按键信息, 按键信息

CopyMemory (按键信息, lparam, 28)
.如果真 (icode ＝ 0)
.如果真 (按键信息.虚拟码 ＝ 键代码)
返回 (1)
.如果真结束
返回 (0)
.如果真结束
返回 (下一个钩子 (钩子句柄, icode, wparam, lparam))