窗口_监视热键_zc_增加抛弃按键消息功能

jr21066

窗口_监视热键_zc
加入热键消息链后,在处理完消息后仍然会把消息传递给链的下一程序.这时会出现一个按键两个动作的情况出现
按api的定义.在程序处理完按键消息后返回真可以避免系统再把消息传递下去.

功能是通过"监视处理"子过程实现的.下边代码增加了一个局部变量.实现返回功能.兼容以前代码.

  

子程序名	返回值类型	公开	备 注
监视处理	整数型
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
Wparam	整数型
Lparam	整数型

变量名	类 型	静态	数组	备 注
局_状态键	整数型
局_键代码	整数型
MSG	MSG
局_返回值	整数型

如果真 (nCode ＝ 0)
CopyMemory (MSG, Lparam, 20)
判断 (MSG.wParam ＜ 35)  ' 按下
局_键代码 ＝ MSG.hwnd
判断 (MSG.hwnd ＝ 160 或 MSG.hwnd ＝ 161)  ' 左Shift键 和 右Shift键
局_状态键 ＝ #Shift键
判断 (MSG.hwnd ＝ 162 或 MSG.hwnd ＝ 163)  ' 左Ctrl键 和 右Ctrl键
局_状态键 ＝ #Ctrl键
判断 (MSG.hwnd ＝ 164 或 MSG.hwnd ＝ 165)  ' 左Alt键 和 右Alt键
局_状态键 ＝ #Alt键
判断 (MSG.hwnd ＝ 91 或 MSG.hwnd ＝ 92)  ' 左Win键 和 右Win键
局_状态键 ＝ 91


局_返回值 ＝ 程序_执行整数子程序 (集_监视事件, 局_状态键, 局_键代码, 1)

判断 (MSG.wParam ＞ 127)  ' 放开
局_键代码 ＝ MSG.hwnd
判断 (MSG.hwnd ＝ 160 或 MSG.hwnd ＝ 161)  ' 左Shift键 和 右Shift键
局_状态键 ＝ 0

判断 (MSG.hwnd ＝ 162 或 MSG.hwnd ＝ 163)  ' 左Ctrl键 和 右Ctrl键
局_状态键 ＝ 0
判断 (MSG.hwnd ＝ 164 或 MSG.hwnd ＝ 165)  ' 左Alt键 和 右Alt键
局_状态键 ＝ 0
判断 (MSG.hwnd ＝ 91 或 MSG.hwnd ＝ 92)  ' 左Win键 和 右Win键
局_状态键 ＝ 0


局_返回值 ＝ 程序_执行整数子程序 (集_监视事件, 局_状态键, 局_键代码, 2)



如果真 (局_返回值 ＝ 0)
CallNextHookEx (集_Hook, nCode, Wparam, Lparam)
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 监视处理, 整数型<br /> .参数 nCode, 整数型<br /> .参数 Wparam, 整数型<br /> .参数 Lparam, 整数型<br /> .局部变量 局_状态键, 整数型, 静态<br /> .局部变量 局_键代码, 整数型<br /> .局部变量 MSG, MSG<br /> .局部变量 局_返回值, 整数型<br /> <br /> .如果真 (nCode ＝ 0)<br />     CopyMemory (MSG, Lparam, 20)<br />     .判断开始 (MSG.wParam ＜ 35)  ' 按下<br />         局_键代码 ＝ MSG.hwnd<br />         .判断开始 (MSG.hwnd ＝ 160 或 MSG.hwnd ＝ 161)  ' 左Shift键 和 右Shift键<br />             局_状态键 ＝ #Shift键<br />         .判断 (MSG.hwnd ＝ 162 或 MSG.hwnd ＝ 163)  ' 左Ctrl键 和 右Ctrl键<br />             局_状态键 ＝ #Ctrl键<br />         .判断 (MSG.hwnd ＝ 164 或 MSG.hwnd ＝ 165)  ' 左Alt键 和 右Alt键<br />             局_状态键 ＝ #Alt键<br />         .判断 (MSG.hwnd ＝ 91 或 MSG.hwnd ＝ 92)  ' 左Win键 和 右Win键<br />             局_状态键 ＝ 91<br />         .默认<br /> <br />         .判断结束<br />         局_返回值 ＝ 程序_执行整数子程序 (集_监视事件, 局_状态键, 局_键代码, 1)<br /> <br />     .判断 (MSG.wParam ＞ 127)  ' 放开<br />         局_键代码 ＝ MSG.hwnd<br />         .判断开始 (MSG.hwnd ＝ 160 或 MSG.hwnd ＝ 161)  ' 左Shift键 和 右Shift键<br />             局_状态键 ＝ 0<br /> <br />         .判断 (MSG.hwnd ＝ 162 或 MSG.hwnd ＝ 163)  ' 左Ctrl键 和 右Ctrl键<br />             局_状态键 ＝ 0<br /> <br />         .判断 (MSG.hwnd ＝ 164 或 MSG.hwnd ＝ 165)  ' 左Alt键 和 右Alt键<br />             局_状态键 ＝ 0<br /> <br />         .判断 (MSG.hwnd ＝ 91 或 MSG.hwnd ＝ 92)  ' 左Win键 和 右Win键<br />             局_状态键 ＝ 0<br />         .默认<br /> <br />         .判断结束<br />         局_返回值 ＝ 程序_执行整数子程序 (集_监视事件, 局_状态键, 局_键代码, 2)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> .如果真 (局_返回值 ＝ 0)<br />     CallNextHookEx (集_Hook, nCode, Wparam, Lparam)<br /> .如果真结束<br /> 返回 (局_返回值)

墨影0620

jr21066 发表于 2018-10-25 18:14
比如我需要在我的目标窗口内按a键实现空格功能.那么不撤销键的话.会在窗口内激活一个空格并且再打出一个a ...

1. ★★ 本子程序为事件处理子程序，请不要修改此子程序的名称、返回值及参数定义，否则将导致对应事件不能传递到此事件处理子程序。
   
2. 此事件当用户按下一个键时发生。处理本事件的子程序如果返回假，则取消本事件，不再将此按键事件传递到所属对象上去；如果不返回值或返回真，则将此事件继续传递到所属对象上去。

复制代码

直接返回假就不会传递上去的了！

墨影0620

jr21066 发表于 2018-10-25 18:14
比如我需要在我的目标窗口内按a键实现空格功能.那么不撤销键的话.会在窗口内激活一个空格并且再打出一个a ...

貌似在按下某键那里面直接返回假就可以了

徐喵喵推广

学习了学习了

余生不碰爱情

学习学习了

jr21066

凌哥 发表于 2018-10-25 18:16
请挂接窗口消息

是给易加点热键这样的.
比如收缩展开程序
快速加常用代码这样的

凌哥

jr21066 发表于 2018-10-25 18:14
比如我需要在我的目标窗口内按a键实现空格功能.那么不撤销键的话.会在窗口内激活一个空格并且再打出一个a ...

请挂接窗口消息

jr21066

凌哥 发表于 2018-10-25 18:05
不可能会出现按两次的情况吧

比如我需要在我的目标窗口内按a键实现空格功能.那么不撤销键的话.会在窗口内激活一个空格并且再打出一个a出来.
如果有了返回值,那么我在目标窗口内接到消息时,返回真,在其他窗口内接到消息返回0.就互相不影响了.

凌哥

不可能会出现按两次的情况吧

jr21066

使用例子

  

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

变量名	类 型	静态	数组	备 注
myid	整数型

' 如果是自己要处理的热键就返回真.说明按键已被处理.无需传递
如果真 (键代码 ＝ myid)
处理事件 ()
返回 (1)
' 返回0,系统会继续在消息链中传递热键消息
返回 (0)
' 功能键最好是传递下去.不然可能会影响其他程序

.版本 2<br /> <br /> .子程序 热键反馈事件, 整数型<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 键状态, 整数型<br /> .局部变量 myid, 整数型<br /> <br /> ' 如果是自己要处理的热键就返回真.说明按键已被处理.无需传递<br /> .如果真 (键代码 ＝ myid)<br />     处理事件 ()<br />     返回 (1)<br /> .如果真结束<br /> ' 返回0,系统会继续在消息链中传递热键消息<br /> 返回 (0)<br /> ' 功能键最好是传递下去.不然可能会影响其他程序