如何判断CTRL是否被弹起与按下

cumulonimbus

1、用这个不起作用

.子程序 __启动窗口_创建完毕

窗口_监视热键_zc (&响应监视事件)

.子程序 响应监视事件
.参数 功能键, 整数型
.参数 键代码, 整数型
.参数 按键状态, 整数型

' 调试输出 (功能键, 键代码, 按键状态)
.判断开始 (功能键 ＝ #Ctrl键)
    .判断开始 (按键状态 ＝ 1)
        调试输出 (“#Ctrl键按下”)
    .判断 (按键状态 ＝ 2)
        调试输出 (“#Ctrl键弹起”)
    .默认

2、用这个也不起作用

.子程序 __启动窗口_创建完毕

窗口_监视热键_zc (&响应监视事件)

.子程序 响应监视事件
.参数 功能键, 整数型
.参数 键代码, 整数型
.参数 按键状态, 整数型

' 调试输出 (功能键, 键代码, 按键状态)
.判断开始 (功能键 ＝ #Ctrl键)

.判断 (按键状态 ＝ 1)
    调试输出 (“#Ctrl键按下”)
.判断 (按键状态 ＝ 2)
    调试输出 (“#Ctrl键弹起”)

3、这个也不起作用

jiesansi

安装钩子_键盘（）    精易模块

cumulonimbus

jiesansi 发表于 2022-8-2 10:07
安装钩子_键盘（）    精易模块

窗口_监视热键_zc，这个不是钩子吗？

jiesansi

cumulonimbus 发表于 2022-8-2 10:10
窗口_监视热键_zc，这个不是钩子吗？

属于勾子。我看了看。基本没有问题，主要是在判断弹起时，“功能键” 的值是0，而不是ctrl按键

jiesansi

cumulonimbus 发表于 2022-8-2 10:10
窗口_监视热键_zc，这个不是钩子吗？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
勾子句柄	整数型
勾子	类_钩子

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
按键类型	整数型
键代码	整数型

如果真 (按键类型 ＝ 256)
如果真 (键代码 ＝ 162)
输出调试文本 (“左ctrl按键被按下”)

如果真 (键代码 ＝ 163)
输出调试文本 (“右ctrl按键被按下”)


如果真 (按键类型 ＝ 257)
如果真 (键代码 ＝ 162)
输出调试文本 (“左ctrl按键被按下”)

如果真 (键代码 ＝ 163)
输出调试文本 (“右ctrl按键被按下”)

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

勾子.卸载 (勾子句柄)
窗口_监视热键_卸载 ()

子程序名	返回值类型	公开	备 注
_选择框1_被单击

选择框2.选中 ＝ 假
窗口_监视热键_卸载 ()
勾子句柄 ＝ 勾子.安装钩子_键盘 (窗口1.取窗口句柄 (), &子程序1, )

子程序名	返回值类型	公开	备 注
_选择框2_被单击

选择框1.选中 ＝ 假
勾子.卸载 (勾子句柄)
窗口_监视热键_zc (&子程序2)

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

如果真 (功能键 ＝ #Ctrl键 且 按键状态 ＝ 1)
输出调试文本 (“#Ctrl键按下”)

如果真 (功能键 ＝ 0 且 按键状态 ＝ 2)
输出调试文本 (“#Ctrl键弹起”)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 勾子句柄, 整数型<br /> .程序集变量 勾子, 类_钩子<br /> <br /> .子程序 子程序1<br /> .参数 按键类型, 整数型<br /> .参数 键代码, 整数型<br /> <br /> .如果真 (按键类型 ＝ 256)<br />     .如果真 (键代码 ＝ 162)<br />         输出调试文本 (“左ctrl按键被按下”)<br />     .如果真结束<br /> <br />     .如果真 (键代码 ＝ 163)<br />         输出调试文本 (“右ctrl按键被按下”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (按键类型 ＝ 257)<br />     .如果真 (键代码 ＝ 162)<br />         输出调试文本 (“左ctrl按键被按下”)<br />     .如果真结束<br /> <br />     .如果真 (键代码 ＝ 163)<br />         输出调试文本 (“右ctrl按键被按下”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> 勾子.卸载 (勾子句柄)<br /> 窗口_监视热键_卸载 ()<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> 选择框2.选中 ＝ 假<br /> 窗口_监视热键_卸载 ()<br /> 勾子句柄 ＝ 勾子.安装钩子_键盘 (窗口1.取窗口句柄 (), &子程序1, )<br /> <br /> .子程序 _选择框2_被单击<br /> <br /> 选择框1.选中 ＝ 假<br /> 勾子.卸载 (勾子句柄)<br /> 窗口_监视热键_zc (&子程序2)<br /> <br /> .子程序 子程序2<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 按键状态, 整数型<br /> <br /> .如果真 (功能键 ＝ #Ctrl键 且 按键状态 ＝ 1)<br />     输出调试文本 (“#Ctrl键按下”)<br /> .如果真结束<br /> <br /> .如果真 (功能键 ＝ 0 且 按键状态 ＝ 2)<br />     输出调试文本 (“#Ctrl键弹起”)<br /> .如果真结束

用了精易模块

Suky

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

窗口_监视热键_zc (&响应事件)

子程序名	返回值类型	公开	备 注
响应事件
参数名	类 型	参考	可空	数组	备 注
功能键	整数型
键代码	整数型
按键状态	整数型

如果真 (按键状态 ＝ 1)
调试输出 (Adm_键代码取键名 (键代码) ＋ “按下”)

如果真 (按键状态 ＝ 2)
调试输出 (Adm_键代码取键名 (键代码) ＋ “抬起”)

返回 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 窗口_监视热键_zc (&响应事件)<br /> <br /> .子程序 响应事件<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 按键状态, 整数型<br /> <br /> <br /> .如果真 (按键状态 ＝ 1)<br />     调试输出 (Adm_键代码取键名 (键代码) ＋ “按下”)<br /> .如果真结束<br /> <br /> .如果真 (按键状态 ＝ 2)<br />     调试输出 (Adm_键代码取键名 (键代码) ＋ “抬起”)<br /> .如果真结束<br /> <br /> <br /> 返回 ()

键代码键名转换源码(对精易模块源码补足)
https://bbs.125.la/forum.php?mod=viewthread&tid=14707379
(出处: 精易论坛)


补充内容 (2022-8-2 10:36):
常量里   #ctrl键代码是17，但是普通标准键盘上，左Ctrl键代码是162，右Ctrl键代码是163

火威网络

全局用钩子，窗口用zc热键。

cumulonimbus

飞鸟和蝉 发表于 2022-8-2 10:32
[e=1].版本 2
.支持库 spec

请问鼠标左键单击与鼠标右键单的键代码分别是什么？

Suky

cumulonimbus 发表于 2022-8-3 14:39
请问鼠标左键单击与鼠标右键单的键代码分别是什么？

论坛搜索一下就有     我没研究过鼠标   只用过一次   代码忘了
或者   你看一下精易模块的源码     里面有的

cumulonimbus

jiesansi 发表于 2022-8-2 10:31
[e=0].版本 2

.程序集 窗口程序集_窗口1

.版本 2

.子程序 __启动窗口_创建完毕

窗口_监视热键_zc (&响应事件)


.子程序 响应事件
.参数 功能键, 整数型
.参数 键代码, 整数型
.参数 按键状态, 整数型

.如果真 (功能键 ＝ #Ctrl键 且 按键状态 ＝ 1)
    输出调试文本 (“#Ctrl键按下”)
.如果真结束

.如果真 (功能键 ＝ 0 且 按键状态 ＝ 2)
    输出调试文本 (“#Ctrl键弹起”)
.如果真结束

这个直接不行，按任何键都会产生弹起事件