下你所需,载你所想!
汇集开发技术源码资料

进阶的键盘连点器,多线程方式、支持小键盘等

:237.318KB :1 :2021-11-27 13:46:07

部分简介

按键按下和抬起都会产生一次按键事件,要用键代码判断只取一个状态执行一次判断即可。

易语言进阶的键盘连点器,多线程方式、支持小键盘等例子。
事件转移() 取事件组件() 应用例子
编辑框变热键框应用例子 (直接在编辑框按键,键代码会被自动转换为主键区的键代码)多线程应用

好像没啥亮点,唯一能拿得出手的好像就是编辑框转热键框支持小键盘的处理方法了,线程内执行循环,每个循环周期内为什么执行两次子程序。

.如果真 (按键状态 = 2) ' ,按键按下和抬起都会产生一次按键事件,要用键代码判断只取一个状态执行一次判断即可
.判断开始 (键代码 = 开始键.键代码 且 编辑框_开始.可有焦点 () = 假 且 编辑框_停止.可有焦点 () = 假)
集_窗口句柄 = 窗口_取鼠标处窗口句柄 ()
_启动窗口.标题 = 程序版本 + “ ” + 窗口_句柄取进程名 (集_窗口句柄) + “ ” + 到文本 (窗口_句柄取进程ID (集_窗口句柄))
集_是否循环 = 真 ' 置循环状态
.计次循环首 (取数组成员数 (按键), n) ' 根据所有按键预设状态,勾选的按键启动循环线程
.如果真 (按键 [n].选择框.选中 = 真)
线程_启动 (&按键处理线程, n, 按键 [n].线程句柄)
.如果真结束

.计次循环尾 ()

.判断 (键代码 = 停止键.键代码 且 编辑框_开始.可有焦点 () = 假 且 编辑框_停止.可有焦点 () = 假)
_启动窗口.标题 = 程序版本
集_是否循环 = 假 ' 循环状态置假以使线程停止循环

进阶的键盘连点器,多线程方式、支持小键盘等

热门推荐

相关文章