监控键盘按键

sn7039764

求大佬帮写个源码 功能就是如图所示  在组合框中加入F1-F12键  当选中F1-F12中的一个键时 在标签中反馈是按下了还是弹起了   求源码


PS：只监控组合框中选中的键不是监控键盘所有键


补充内容 (2024-1-1 16:22):
@蛀牙

dc244399752

监控键盘按键.e (954.66 KB, 下载次数: 28)

2024-1-1 16:34 上传

点击文件名下载附件

金叶

  

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

子程序名	返回值类型	公开	备 注
鼠标钩子_启动

程序集_鼠标钩子句柄 ＝ 鼠标钩子_SetWindowsHookExA (14, &鼠标钩子_回调, 鼠标钩子_GetModuleHandleA (0), 0)  ' 14 WH_MOUSE_LL

子程序名	返回值类型	公开	备 注
鼠标钩子_回调	整数型		' -1 是拦截鼠标点击
参数名	类 型	参考	可空	数组	备 注
参数_代码值nCode	整数型
参数一wParam	整数型
参数二lParam	整数型

变量名	类 型	静态	数组	备 注
Mouse	鼠标钩子_MOUSEHOOKSTRUCT
局部_标识窗口hwnd	整数型
局部_进程句柄pid	整数型
局部_返回数据	整数型
局部_调试文本	文本型
局部_当前进程标识符	整数型
局部_表项	整数型
局部_标题	文本型
局部_点击方式	文本型
局_键状态	整数型
局_键代码	整数型

' 局_键代码 = 1=左键 2=右键 3=中键 4=滚轮 5=侧键上 6=侧键下,
' 局_键状态 = 1=按下 2=弹起 3=双击 4=滚轮往上 5=滚轮往下。
如果真 (Mouse.hwnd ＝ 7864320)
局_键代码 ＝ 4
局_键状态 ＝ 4
如果真 (Mouse.hwnd ＝ -7864320)
局_键代码 ＝ 4
局_键状态 ＝ 5

如果真 (参数一wParam ＝ 512)
局部_调试文本 ＝ “鼠标在移动”
如果真 (参数一wParam ＝ 513)
局_键代码 ＝ 1
局_键状态 ＝ 1
局部_调试文本 ＝ “左键按下”
如果真 (参数一wParam ＝ 514)
局_键代码 ＝ 1
局_键状态 ＝ 2
局部_调试文本 ＝ “左键弹起”
如果真 (参数一wParam ＝ 515)
局_键代码 ＝ 1
局_键状态 ＝ 3
局部_调试文本 ＝ “左键双击”
如果真 (参数一wParam ＝ 516)
局_键代码 ＝ 2
局_键状态 ＝ 1
局部_调试文本 ＝ “右键按下”
如果真 (参数一wParam ＝ 517)
局_键代码 ＝ 2
局_键状态 ＝ 2
局部_调试文本 ＝ “右键弹起”
如果真 (参数一wParam ＝ 518)
局_键代码 ＝ 2
局_键状态 ＝ 3
局部_调试文本 ＝ “右键双击”
如果真 (参数一wParam ＝ 519)
局_键代码 ＝ 3
局_键状态 ＝ 1
局部_调试文本 ＝ “中键按下”
如果真 (参数一wParam ＝ 520)
局_键代码 ＝ 3
局_键状态 ＝ 2
局部_调试文本 ＝ “中键弹起”
如果真 (参数一wParam ＝ 521)
局_键代码 ＝ 3
局_键状态 ＝ 3
局部_调试文本 ＝ “中键双击”

如果真 (参数一wParam ＝ 522)
局部_调试文本 ＝ “中键滚动”
如果真 (参数一wParam ＝ 523 且 Mouse.hwnd ＝ 65536)  ' 侧键下
局部_调试文本 ＝ “侧键下 按下”
局_键代码 ＝ 6
局_键状态 ＝ 1
如果真 (参数一wParam ＝ 524 且 Mouse.hwnd ＝ 65536)  ' 侧键下
局部_调试文本 ＝ “侧键下 弹起”
局_键代码 ＝ 6
局_键状态 ＝ 2
如果真 (参数一wParam ＝ 523 且 Mouse.hwnd ＝ 131072)  ' 侧键上
局部_调试文本 ＝ “侧键上 按下”
局_键代码 ＝ 5
局_键状态 ＝ 1
如果真 (参数一wParam ＝ 524 且 Mouse.hwnd ＝ 131072)  ' 侧键上
局部_调试文本 ＝ “侧键上 弹起”
局_键代码 ＝ 5
局_键状态 ＝ 2


局部_返回数据 ＝ 鼠标钩子_CallNextHookEx (程序集_鼠标钩子句柄, 参数_代码值nCode, 参数一wParam, 参数二lParam)
如果 (参数一wParam ＝ 512)

输出调试文本 (“        ”)
输出调试文本 (“        ”)
输出调试文本 (“        ”)
输出调试文本 (“        ” ＋ 局部_调试文本)
输出调试文本 (“           参数_代码值  ” ＋ 到文本 (参数_代码值nCode))
输出调试文本 (“参数一   ” ＋ 到文本 (参数一wParam))
输出调试文本 (“参数二   ” ＋ 到文本 (参数二lParam))
如果 (参数二lParam ＝ 1703228)
输出调试文本 (“       模拟点击”)
局部_点击方式 ＝ “ 点击方式  模拟点击”
局部_点击方式 ＝ “ 点击方式  未知”

.版本 2<br /> <br /> .程序集 程序集_鼠标钩子<br /> .程序集变量 程序集_鼠标钩子句柄, 整数型<br /> <br /> .子程序 鼠标钩子_启动<br /> <br /> 程序集_鼠标钩子句柄 ＝ 鼠标钩子_SetWindowsHookExA (14, &鼠标钩子_回调, 鼠标钩子_GetModuleHandleA (0), 0)  ' 14 WH_MOUSE_LL<br /> <br /> .版本 2<br /> <br /> .子程序 鼠标钩子_回调, 整数型, , ' -1 是拦截鼠标点击   <br /> .参数 参数_代码值nCode, 整数型<br /> .参数 参数一wParam, 整数型<br /> .参数 参数二lParam, 整数型<br /> .局部变量 Mouse, 鼠标钩子_MOUSEHOOKSTRUCT<br /> .局部变量 局部_标识窗口hwnd, 整数型<br /> .局部变量 局部_进程句柄pid, 整数型<br /> .局部变量 局部_返回数据, 整数型<br /> .局部变量 局部_调试文本, 文本型<br /> .局部变量 局部_当前进程标识符, 整数型<br /> .局部变量 局部_表项, 整数型<br /> .局部变量 局部_标题, 文本型<br /> .局部变量 局部_点击方式, 文本型<br /> .局部变量 局_键状态, 整数型<br /> .局部变量 局_键代码, 整数型<br /> <br /> ' 局_键代码 = 1=左键 2=右键 3=中键 4=滚轮 5=侧键上 6=侧键下,<br /> ' 局_键状态 = 1=按下 2=弹起 3=双击 4=滚轮往上 5=滚轮往下。<br /> <br /> .版本 2<br /> <br /> <br />     .如果结束<br />     .如果真 (Mouse.hwnd ＝ 7864320)<br />         局_键代码 ＝ 4<br />         局_键状态 ＝ 4<br />     .如果真结束<br />     .如果真 (Mouse.hwnd ＝ -7864320)<br />         局_键代码 ＝ 4<br />         局_键状态 ＝ 5<br />     .如果真结束<br /> <br />     .如果真 (参数一wParam ＝ 512)<br />         局部_调试文本 ＝ “鼠标在移动”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 513)<br />         局_键代码 ＝ 1<br />         局_键状态 ＝ 1<br /> <br />         局部_调试文本 ＝ “左键按下”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 514)<br />         局_键代码 ＝ 1<br />         局_键状态 ＝ 2<br /> <br />         局部_调试文本 ＝ “左键弹起”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 515)<br />         局_键代码 ＝ 1<br />         局_键状态 ＝ 3<br /> <br />         局部_调试文本 ＝ “左键双击”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 516)<br />         局_键代码 ＝ 2<br />         局_键状态 ＝ 1<br /> <br />         局部_调试文本 ＝ “右键按下”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 517)<br />         局_键代码 ＝ 2<br />         局_键状态 ＝ 2<br /> <br />         局部_调试文本 ＝ “右键弹起”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 518)<br />         局_键代码 ＝ 2<br />         局_键状态 ＝ 3<br /> <br />         局部_调试文本 ＝ “右键双击”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 519)<br />         局_键代码 ＝ 3<br />         局_键状态 ＝ 1<br /> <br />         局部_调试文本 ＝ “中键按下”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 520)<br />         局_键代码 ＝ 3<br />         局_键状态 ＝ 2<br /> <br />         局部_调试文本 ＝ “中键弹起”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 521)<br />         局_键代码 ＝ 3<br />         局_键状态 ＝ 3<br />         局部_调试文本 ＝ “中键双击”<br />     .如果真结束<br /> <br />     .如果真 (参数一wParam ＝ 522)<br />         局部_调试文本 ＝ “中键滚动”<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 523 且 Mouse.hwnd ＝ 65536)  ' 侧键下<br />         局部_调试文本 ＝ “侧键下 按下”<br />         局_键代码 ＝ 6<br />         局_键状态 ＝ 1<br /> <br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 524 且 Mouse.hwnd ＝ 65536)  ' 侧键下<br />         局部_调试文本 ＝ “侧键下 弹起”<br />         局_键代码 ＝ 6<br />         局_键状态 ＝ 2<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 523 且 Mouse.hwnd ＝ 131072)  ' 侧键上<br />         局部_调试文本 ＝ “侧键上 按下”<br />         局_键代码 ＝ 5<br />         局_键状态 ＝ 1<br />     .如果真结束<br />     .如果真 (参数一wParam ＝ 524 且 Mouse.hwnd ＝ 131072)  ' 侧键上<br />         局部_调试文本 ＝ “侧键上 弹起”<br />         局_键代码 ＝ 5<br />         局_键状态 ＝ 2<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> 局部_返回数据 ＝ 鼠标钩子_CallNextHookEx (程序集_鼠标钩子句柄, 参数_代码值nCode, 参数一wParam, 参数二lParam)<br /> <br /> .如果 (参数一wParam ＝ 512)<br /> <br /> .否则<br />     输出调试文本 (“        ”)<br />     输出调试文本 (“        ”)<br />     输出调试文本 (“        ”)<br />     输出调试文本 (“        ” ＋ 局部_调试文本)<br />     输出调试文本 (“           参数_代码值  ” ＋ 到文本 (参数_代码值nCode))<br />     输出调试文本 (“参数一   ” ＋ 到文本 (参数一wParam))<br />     输出调试文本 (“参数二   ” ＋ 到文本 (参数二lParam))<br />     .如果 (参数二lParam ＝ 1703228)<br />         输出调试文本 (“       模拟点击”)<br />         局部_点击方式 ＝ “ 点击方式  模拟点击”<br />     .否则<br />         局部_点击方式 ＝ “ 点击方式  未知”<br />     .如果结束

金叶

金叶 发表于 2024-1-1 15:28
[e=1].版本 2

.程序集 程序集_鼠标钩子

键盘的也一样   这只是个例子   自己动脑动手写一个能提高水平

sn7039764

金叶 发表于 2024-1-1 15:30
键盘的也一样   这只是个例子   自己动脑动手写一个能提高水平

大神 能来个源码不 主要是不会弄 哈哈

金叶

https://bbs.125.la/forum.php?mod ... 8%E9%92%A9%E5%AD%90

补充内容 (2024-1-1 15:40):
点击这个连接 进去看看 是不是你想要的

sn7039764

金叶 发表于 2024-1-1 15:40
https://bbs.125.la/forum.php?mod=viewthread&tid=13636660&highlight=%E9%94%AE%E7%9B%98%E9%92%A9%E5%AD ...

不是的 我的问题描述的很清楚吧