【原创】实现组合热键！！不用再使用扩展支持库了！！！

1185384801

大家一定知道注册热键可以注册组合键吧？可是，有些易友认为多用了个扩展支持库，强迫症犯了（比如我）
于是我用一些很简单但是实用的方法实现了这个功能！
原理解析：

  

DLL命令名	返回值类型	公开	备 注
测试虚拟键_	整数型		判断某键是否被按住
DLL库文件名:
user32
在DLL库中对应命令名:
GetAsyncKeyState
参数名	类 型	传址	数组	备 注
键代码	整数型			vKey Long，欲测试的虚拟键的键码

.版本 2<br /> <br /> .DLL命令 测试虚拟键_, 整数型, "user32", "GetAsyncKeyState", , 判断某键是否被按住<br />     .参数 键代码, 整数型, , vKey Long，欲测试的虚拟键的键码

不错，就是这一个简单的API

  

子程序名	返回值类型	公开	备 注
处理热键
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
i

计次循环首 (取数组成员数 (被监视的热键), i)
如果真 (键代码 ＝ 被监视的热键 [i].键代码 且 功能键状态 ＝ 0 且 被监视的热键 [i].功能键状态 ≠ 0)
被监视的热键 [i].热键执行 ＝ 假
如果真 (被监视的热键 [i].热键执行 且 键代码 ＝ 被监视的热键 [i].键代码 且 功能键状态 ＝ 被监视的热键 [i].功能键状态)
被监视的热键 [i].热键执行 ＝ 假
调用事件 (到整数 (被监视的热键 [i].响应事件), 被监视的热键 [i].热键标识)  ' 被按下的键和有记录的键相同就调用事件
返回 ()

计次循环尾 ()

数据类型名	公开	备 注
监视热键
成员名	类 型	传址	数组	备 注
响应事件	子程序指针
键代码	整数型
功能键状态	整数型
热键标识	整数型
热键执行	逻辑型

.版本 2<br /> <br /> .子程序 处理热键<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 i<br /> <br /> .计次循环首 (取数组成员数 (被监视的热键), i)<br />     .如果真 (键代码 ＝ 被监视的热键 <i>.键代码 且 功能键状态 ＝ 0 且 被监视的热键 <i>.功能键状态 ≠ 0)<br />         被监视的热键 <i>.热键执行 ＝ 假<br />     .如果真结束<br />     .如果真 (被监视的热键 <i>.热键执行 且 键代码 ＝ 被监视的热键 <i>.键代码 且 功能键状态 ＝ 被监视的热键 <i>.功能键状态)<br />         被监视的热键 <i>.热键执行 ＝ 假<br />         调用事件 (到整数 (被监视的热键 <i>.响应事件), 被监视的热键 <i>.热键标识)  ' 被按下的键和有记录的键相同就调用事件<br />         返回 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .版本 2<br /> <br /> .数据类型 监视热键, 公开<br />     .成员 响应事件, 子程序指针<br />     .成员 键代码, 整数型<br />     .成员 功能键状态, 整数型<br />     .成员 热键标识, 整数型<br />     .成员 热键执行, 逻辑型

处理热键的过程
就是一个主要枚举
最后加上一个疯狂的时钟：

  

子程序名	返回值类型	公开	备 注
时钟_创建	逻辑型		创建一个时钟；成功返回真，失败返回假；
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				直接用“取窗口句柄()”命令取出本窗口句柄即可
时钟标识文本	文本型				随便输入一些文本，销毁时用来辩认的；
时钟周期	整数型				时钟周期
时钟_周期事件	子程序指针				时钟_周期事件

如果真 (IsWindow (窗口句柄) ＝ 1)
返回 (SetTimer (窗口句柄, 时钟标识文本, 时钟周期, 时钟_周期事件))
返回 (假)

子程序名	返回值类型	公开	备 注
时钟_销毁	逻辑型		销毁一个时钟；成功返回真，失败返回假；
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				直接用“取窗口句柄()”命令取出本窗口句柄即可
时钟标识文本	文本型				创建时用的标识文本

如果真 (IsWindow (窗口句柄) ＝ 1)
返回 (KillTimer (窗口句柄, 时钟标识文本))
返回 (假)

子程序名	返回值类型	公开	备 注
热键_开始执行	逻辑型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				请不要提供错误的窗口句柄
时钟标识	文本型				时钟的唯一标识

返回 (时钟_创建 (窗口句柄, 时钟标识, 1, &热键监控时钟_周期事件))

子程序名	返回值类型	公开	备 注
热键监控时钟_周期事件

变量名	类 型	静态	数组	备 注
键代码
功能键状态
键状态

计次循环首 (135, 键代码)
键状态 ＝ 测试虚拟键_ (键代码)
功能键状态 ＝ 取功能键状态 (键代码)
如果 (键状态 ≠ 0)
处理热键 (键代码, 功能键状态)
初始热键 ()

计次循环尾 ()

.版本 2<br /> <br /> .子程序 时钟_创建, 逻辑型, , 创建一个时钟；成功返回真，失败返回假；<br /> .参数 窗口句柄, 整数型, , 直接用“取窗口句柄()”命令取出本窗口句柄即可<br /> .参数 时钟标识文本, 文本型, , 随便输入一些文本，销毁时用来辩认的；<br /> .参数 时钟周期, 整数型, , 时钟周期<br /> .参数 时钟_周期事件, 子程序指针, , 时钟_周期事件<br /> <br /> .如果真 (IsWindow (窗口句柄) ＝ 1)<br />     返回 (SetTimer (窗口句柄, 时钟标识文本, 时钟周期, 时钟_周期事件))<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 时钟_销毁, 逻辑型, , 销毁一个时钟；成功返回真，失败返回假；<br /> .参数 窗口句柄, 整数型, , 直接用“取窗口句柄()”命令取出本窗口句柄即可<br /> .参数 时钟标识文本, 文本型, , 创建时用的标识文本<br /> <br /> .如果真 (IsWindow (窗口句柄) ＝ 1)<br />     返回 (KillTimer (窗口句柄, 时钟标识文本))<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 热键_开始执行, 逻辑型, 公开<br /> .参数 窗口句柄, 整数型, , 请不要提供错误的窗口句柄<br /> .参数 时钟标识, 文本型, , 时钟的唯一标识<br /> <br /> 返回 (时钟_创建 (窗口句柄, 时钟标识, 1, &热键监控时钟_周期事件))<br /> <br /> .子程序 热键监控时钟_周期事件<br /> .局部变量 键代码<br /> .局部变量 功能键状态<br /> .局部变量 键状态<br /> <br /> .计次循环首 (135, 键代码)<br />     键状态 ＝ 测试虚拟键_ (键代码)<br />     功能键状态 ＝ 取功能键状态 (键代码)<br />     .如果 (键状态 ≠ 0)<br />         处理热键 (键代码, 功能键状态)<br />     .否则<br />         初始热键 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()

是不是就哦很完美了？
看看效果吧：
帧数的问题看起来就有点问题了
最后！！源码回复下载！！！！！
如果你觉得可以的话欢迎好评打赏！！
纯代码多级热键.zip (9.4 KB, 下载次数: 353)

2018-1-22 14:04 上传

点击文件名下载附件

南栀哥哥

厉害刚好拿来学习

网络注册会员

        支持开源

zhangkun2001

不用模块也可以完成的，

不苦小和尚

试试看看，这个支持窗口吧

心胸开阔的逃跑

学习好的帖子让人进步

豆豆豆豆豆子

不用模块也可以完成的，

2752812988

好，很好

瓶中仙子

谢谢分享，先标记一下

chouchong06

赶紧学习一下 谢谢分享

walj222

太好了，正老板娘