多键盘的输入问题

wanghgxf

我有7个USB小键盘，要在七个编辑框同时输入数字，有两个要求，这个应该怎么做，代码怎么写？
1、如何区分设定出哪个小键盘对应哪个编辑框，例如，1号键盘，对应1号编辑框，那么7个完全相同的键盘里怎么指定出哪一个键盘为1号？


2、只有一个输入光标，怎么让光标不在的编辑框里输入上数字，例如，光标在1号编辑框，我用2号键盘输入数字，那么数字在2号编辑框里显示？

请大神们教教我！感谢，能代写的高手可以加微私聊！

lxh1230

[color=var(--md-box-samantha-normal-text-color) !important]要区分 7 个相同的 USB 小键盘，你需要获取每个键盘的唯一标识符。在 E 语言中，可以通过 Windows API 来实现这一点。每个 USB 设备都有一个唯一的设备路径或硬件 ID，可以用来区分它们。

[color=var(--md-box-samantha-normal-text-color) !important]以下是一个 E 语言代码示例，展示如何获取所有键盘的设备路径并让用户选择对应的编辑框：
[color=var(--md-box-samantha-normal-text-color) !important]

  

子程序名	返回值类型	公开	备 注
获取键盘设备路径	文本型		返回所有键盘的设备路径列表

变量名	类 型	静态	数组	备 注
设备信息集	整数型
设备信息	字符串
设备路径	文本型		用于存储键盘设备路径的数组
i	整数型
设备数量	整数型
设备路径列表	文本型

// 创建设备信息集
设备信息集 = CreateDeviceInfoList ("{884B96C3-56EF-11D1-BC8C-00A0C91405DD}", 0)
如果 (设备信息集 = INVALID_HANDLE_VALUE) 则
返回 ""
结束
// 获取设备数量
设备数量 = 0
i = 0
循环 (真)
如果 (EnumDeviceInfo (设备信息集, i, 设备信息)) 则
设备数量 = 设备数量 + 1
i = i + 1
否则
跳出
结束
结束
// 重新初始化数组大小
重定义数组 设备路径[设备数量]
// 获取每个键盘的设备路径
i = 0
循环 (真)
如果 (EnumDeviceInfo (设备信息集, i, 设备信息)) 则
设备路径[i] = SetupDiGetDeviceInstanceId (设备信息集, 设备信息)
设备路径列表 = 设备路径列表 + 设备路径[i] + #换行符
i = i + 1
否则
跳出
结束
结束
// 清理资源
SetupDiDestroyDeviceInfoList (设备信息集)
返回 设备路径列表
.子程序结束

子程序名	返回值类型	公开	备 注
配置键盘映射	逻辑型		配置键盘与编辑框的映射关系

变量名	类 型	静态	数组	备 注
键盘路径列表	文本型
选择结果	整数型
i	整数型
键盘数量	整数型
键盘路径数组	文本型		存储键盘设备路径的数组
映射关系	文本型		存储键盘与编辑框的映射关系

// 获取键盘设备路径列表
键盘路径列表 = 获取键盘设备路径 ()
如果 (键盘路径列表 = "") 则
信息框 ("无法获取键盘设备信息！", 0, "错误")
返回 假
结束
// 分割路径列表为数组
键盘路径数组 = 分割文本 (键盘路径列表, #换行符 )
键盘数量 = 取数组成员数 (键盘路径数组)
如果 (键盘数量 < 7) 则
信息框 ("检测到的键盘数量不足7个！", 0, "错误")
返回 假
结束
// 依次配置每个键盘对应的编辑框
i = 1
循环 (i <= 7)
选择结果 = 信息框 ("请按下第" + 到文本 (i) + "号键盘上的任意键...", 1, "配置键盘")
如果 (选择结果 = 1) 则
// 这里应该实现检测当前按下的是哪个键盘的逻辑
// 简化处理，假设用户按顺序按下键盘
映射关系[i] = 键盘路径数组[i - 1]
信息框 ("已将第" + 到文本 (i) + "号键盘映射到编辑框" + 到文本 (i), 0, "成功")
否则
返回 假
结束
i = i + 1
结束
// 保存映射关系到配置文件
保存配置文件 (映射关系)
返回 真
.子程序结束

.版本 2<br /> <br /> .子程序 获取键盘设备路径, 文本型, 公开, 返回所有键盘的设备路径列表<br /> .局部变量 设备信息集, 整数型<br /> .局部变量 设备信息, 字符串, 100<br /> .局部变量 设备路径, 文本型, , "用于存储键盘设备路径的数组"<br /> .局部变量 i, 整数型<br /> .局部变量 设备数量, 整数型<br /> .局部变量 设备路径列表, 文本型<br /> <br /> // 创建设备信息集<br /> 设备信息集 = CreateDeviceInfoList("{884B96C3-56EF-11D1-BC8C-00A0C91405DD}", 0)<br /> 如果 (设备信息集 = INVALID_HANDLE_VALUE) 则<br />     返回 ""<br /> 结束<br /> <br /> // 获取设备数量<br /> 设备数量 = 0<br /> i = 0<br /> 循环 (真)<br />     如果 (EnumDeviceInfo(设备信息集, i, 设备信息)) 则<br />         设备数量 = 设备数量 + 1<br />         i = i + 1<br />     否则<br />         跳出<br />     结束<br /> 结束<br /> <br /> // 重新初始化数组大小<br /> 重定义数组 设备路径[设备数量]<br /> <br /> // 获取每个键盘的设备路径<br /> i = 0<br /> 循环 (真)<br />     如果 (EnumDeviceInfo(设备信息集, i, 设备信息)) 则<br />         设备路径<i> = SetupDiGetDeviceInstanceId(设备信息集, 设备信息)<br />         设备路径列表 = 设备路径列表 + 设备路径<i> + #换行符<br />         i = i + 1<br />     否则<br />         跳出<br />     结束<br /> 结束<br /> <br /> // 清理资源<br /> SetupDiDestroyDeviceInfoList(设备信息集)<br /> <br /> 返回 设备路径列表<br /> .子程序结束<br /> <br /> .子程序 配置键盘映射, 逻辑型, 公开, 配置键盘与编辑框的映射关系<br /> .局部变量 键盘路径列表, 文本型<br /> .局部变量 选择结果, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 键盘数量, 整数型<br /> .局部变量 键盘路径数组, 文本型, , "存储键盘设备路径的数组"<br /> .局部变量 映射关系, 文本型, 7, "存储键盘与编辑框的映射关系"<br /> <br /> // 获取键盘设备路径列表<br /> 键盘路径列表 = 获取键盘设备路径()<br /> 如果 (键盘路径列表 = "") 则<br />     信息框 ("无法获取键盘设备信息！", 0, "错误")<br />     返回 假<br /> 结束<br /> <br /> // 分割路径列表为数组<br /> 键盘路径数组 = 分割文本 (键盘路径列表, #换行符)<br /> 键盘数量 = 取数组成员数 (键盘路径数组)<br /> <br /> 如果 (键盘数量 < 7) 则<br />     信息框 ("检测到的键盘数量不足7个！", 0, "错误")<br />     返回 假<br /> 结束<br /> <br /> // 依次配置每个键盘对应的编辑框<br /> i = 1<br /> 循环 (i <= 7)<br />     选择结果 = 信息框 ("请按下第" + 到文本 (i) + "号键盘上的任意键...", 1, "配置键盘")<br />     如果 (选择结果 = 1) 则<br />         // 这里应该实现检测当前按下的是哪个键盘的逻辑<br />         // 简化处理，假设用户按顺序按下键盘<br />         映射关系<i> = 键盘路径数组[i - 1]<br />         信息框 ("已将第" + 到文本 (i) + "号键盘映射到编辑框" + 到文本 (i), 0, "成功")<br />     否则<br />         返回 假<br />     结束<br />     i = i + 1<br /> 结束<br /> <br /> // 保存映射关系到配置文件<br /> 保存配置文件 (映射关系)<br /> <br /> 返回 真<br /> .子程序结束

[color=var(--md-box-samantha-normal-text-color) !important][color=var(--md-box-samantha-normal-text-color) !important]要实现无焦点输入，你需要在后台监听所有键盘输入，然后根据设备路径判断是哪个键盘被按下，并将输入发送到对应的编辑框。

[color=var(--md-box-samantha-normal-text-color) !important]以下是一个实现无焦点输入的 E 语言代码示例：

[color=var(--md-box-samantha-normal-text-color) !important]

  

子程序名	返回值类型	公开	备 注
开始监听键盘	逻辑型		开始监听所有键盘输入

变量名	类 型	静态	数组	备 注
映射关系	文本型		存储键盘与编辑框的映射关系
钩子句柄	整数型

// 从配置文件加载映射关系
如果 (加载配置文件 (映射关系) = 假) 则
信息框 ("无法加载键盘映射配置！", 0, "错误")
返回 假
结束
// 设置键盘钩子
钩子句柄 = SetWindowsHookEx (WH_KEYBOARD_LL, 键盘钩子回调, 取当前进程句柄 (), 0)
如果 (钩子句柄 = 0) 则
信息框 ("无法设置键盘钩子！", 0, "错误")
返回 假
结束
// 保存钩子句柄供后续使用
全局变量 键盘钩子句柄 = 钩子句柄
返回 真
.子程序结束

子程序名	返回值类型	公开	备 注
键盘钩子回调	整数型		键盘钩子回调函数
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
键盘信息	整数型		指向KBDLLHOOKSTRUCT结构的指针
虚拟键码	整数型
扫描码	整数型
设备路径	文本型
编辑框ID	整数型
i	整数型
映射关系	文本型		存储键盘与编辑框的映射关系

如果 (nCode >= 0) 则
如果 (wParam = WM_KEYDOWN 或 wParam = WM_SYSKEYDOWN) 则
// 获取键盘信息
键盘信息 = lParam
虚拟键码 = 取结构成员 (键盘信息, KBDLLHOOKSTRUCT.vkCode)
扫描码 = 取结构成员 (键盘信息, KBDLLHOOKSTRUCT.scanCode)

// 获取当前按下键盘的设备路径
// 这里需要实现根据扫描码获取设备路径的逻辑
设备路径 = 获取键盘设备路径From扫描码 (扫描码)

// 从配置文件加载映射关系
加载配置文件 (映射关系)

// 查找对应的编辑框
i = 1
编辑框ID = 0
循环 (i <= 7)
如果 (映射关系[i] = 设备路径) 则
编辑框ID = i
跳出
结束
i = i + 1
结束

// 如果找到对应的编辑框，将输入发送到该编辑框
如果 (编辑框ID > 0) 则
// 获取编辑框句柄
编辑框句柄 = 取窗口句柄 ("编辑框" + 到文本 (编辑框ID), 取窗口句柄 ())

// 发送字符到编辑框
如果 (编辑框句柄 > 0) 则
发送消息 (编辑框句柄, WM_CHAR, 虚拟键码, 0)
// 阻止默认处理
返回 1
结束
结束
结束
结束
// 继续默认处理
返回 CallNextHookEx (全局变量 键盘钩子句柄, nCode, wParam, lParam)
.子程序结束

子程序名	返回值类型	公开	备 注
停止监听键盘	逻辑型		停止监听键盘输入

如果 (全局变量 键盘钩子句柄 > 0) 则
UnhookWindowsHookEx (全局变量 键盘钩子句柄)
全局变量 键盘钩子句柄 = 0
返回 真
否则
返回 假
结束
.子程序结束

.版本 2<br /> <br /> .子程序 开始监听键盘, 逻辑型, 公开, 开始监听所有键盘输入<br /> .局部变量 映射关系, 文本型, 7, "存储键盘与编辑框的映射关系"<br /> .局部变量 钩子句柄, 整数型<br /> <br /> // 从配置文件加载映射关系<br /> 如果 (加载配置文件 (映射关系) = 假) 则<br />     信息框 ("无法加载键盘映射配置！", 0, "错误")<br />     返回 假<br /> 结束<br /> <br /> // 设置键盘钩子<br /> 钩子句柄 = SetWindowsHookEx(WH_KEYBOARD_LL, 键盘钩子回调, 取当前进程句柄 (), 0)<br /> 如果 (钩子句柄 = 0) 则<br />     信息框 ("无法设置键盘钩子！", 0, "错误")<br />     返回 假<br /> 结束<br /> <br /> // 保存钩子句柄供后续使用<br /> 全局变量 键盘钩子句柄 = 钩子句柄<br /> <br /> 返回 真<br /> .子程序结束<br /> <br /> .子程序 键盘钩子回调, 整数型, 公开, 键盘钩子回调函数<br /> .参数 nCode, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 键盘信息, 整数型, , "指向KBDLLHOOKSTRUCT结构的指针"<br /> .局部变量 虚拟键码, 整数型<br /> .局部变量 扫描码, 整数型<br /> .局部变量 设备路径, 文本型<br /> .局部变量 编辑框ID, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 映射关系, 文本型, 7, "存储键盘与编辑框的映射关系"<br /> <br /> 如果 (nCode >= 0) 则<br />     如果 (wParam = WM_KEYDOWN 或 wParam = WM_SYSKEYDOWN) 则<br />         // 获取键盘信息<br />         键盘信息 = lParam<br />         虚拟键码 = 取结构成员 (键盘信息, KBDLLHOOKSTRUCT.vkCode)<br />         扫描码 = 取结构成员 (键盘信息, KBDLLHOOKSTRUCT.scanCode)<br />         <br />         // 获取当前按下键盘的设备路径<br />         // 这里需要实现根据扫描码获取设备路径的逻辑<br />         设备路径 = 获取键盘设备路径From扫描码 (扫描码)<br />         <br />         // 从配置文件加载映射关系<br />         加载配置文件 (映射关系)<br />         <br />         // 查找对应的编辑框<br />         i = 1<br />         编辑框ID = 0<br />         循环 (i <= 7)<br />             如果 (映射关系<i> = 设备路径) 则<br />                 编辑框ID = i<br />                 跳出<br />             结束<br />             i = i + 1<br />         结束<br />         <br />         // 如果找到对应的编辑框，将输入发送到该编辑框<br />         如果 (编辑框ID > 0) 则<br />             // 获取编辑框句柄<br />             编辑框句柄 = 取窗口句柄 ("编辑框" + 到文本 (编辑框ID), 取窗口句柄 ())<br />             <br />             // 发送字符到编辑框<br />             如果 (编辑框句柄 > 0) 则<br />                 发送消息 (编辑框句柄, WM_CHAR, 虚拟键码, 0)<br />                 // 阻止默认处理<br />                 返回 1<br />             结束<br />         结束<br />     结束<br /> 结束<br /> <br /> // 继续默认处理<br /> 返回 CallNextHookEx(全局变量 键盘钩子句柄, nCode, wParam, lParam)<br /> .子程序结束<br /> <br /> .子程序 停止监听键盘, 逻辑型, 公开, 停止监听键盘输入<br /> 如果 (全局变量 键盘钩子句柄 > 0) 则<br />     UnhookWindowsHookEx(全局变量 键盘钩子句柄)<br />     全局变量 键盘钩子句柄 = 0<br />     返回 真<br /> 否则<br />     返回 假<br /> 结束<br /> .子程序结束

你的猫

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
键盘设备数组	整数型	7"  '存储7个键盘的设备
当前活动键盘	整数型	7"  '记录每个键盘的最后活动
钩子句柄	整数型

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

' 初始化7个编辑框
编辑框1.内容 ＝ ""
编辑框2.内容 ＝ ""
编辑框3.内容 ＝ ""
编辑框4.内容 ＝ ""
编辑框5.内容 ＝ ""
编辑框6.内容 ＝ ""
编辑框7.内容 ＝ ""

' 枚举所有键盘设备
枚举键盘设备 ()

' 安装低级键盘钩子
钩子句柄 ＝ 安装键盘钩子 (&键盘钩子回调)

子程序名	返回值类型	公开	备 注
枚举键盘设备

.局部变量 设备数量, 整数型
.局部变量 设备信息, 文本型
.局部变量 i, 整数型

设备数量 ＝ 取输入设备数量 ()
如果真 (设备数量 ＜ 7)
信息框 ("检测到的键盘设备不足7个！", 0, , )
返回

计次循环首 (7, i)
设备信息 ＝ 取输入设备信息 (i)
' 这里可以根据设备信息筛选真正的键盘设备
键盘设备数组[i] ＝ 打开输入设备 (i)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
键盘钩子回调	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
按键代码	整数型
扫描码	整数型
按键状态	整数型
设备ID	整数型

.局部变量 目标编辑框, 编辑框
.局部变量 键盘索引, 整数型

' 确定是哪个键盘触发的
键盘索引 ＝ 取键盘索引 (设备ID)
如果 (键盘索引 ＝ 0)
返回 (1)  ' 不是我们监控的键盘，交给系统处理
' 阻止默认处理
置键盘状态 (按键代码, 0)

' 根据键盘索引选择目标编辑框
目标编辑框 ＝ 取编辑框对象 (键盘索引)

' 处理按键输入
如果 (按键状态 ＝ 1)  ' 按键按下
判断 (按键代码 ≥ 48 且 按键代码 ≤ 57)  ' 数字0-9
目标编辑框.内容 ＝ 目标编辑框.内容 ＋ 字符 (按键代码)
判断 (按键代码 ＝ 8)  ' 退格键
如果 (取文本长度 (目标编辑框.内容) ＞ 0)
目标编辑框.内容 ＝ 取文本左边 (目标编辑框.内容, 取文本长度 (目标编辑框.内容) - 1)
' 其他按键不做处理


返回 (1)

子程序名	返回值类型	公开	备 注
取键盘索引	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
设备ID	整数型

.局部变量 i, 整数型

计次循环首 (7, i)
如果 (设备ID ＝ 键盘设备数组[i])
返回 (i)

计次循环尾 ()

返回 (0)

子程序名	返回值类型	公开	备 注
取编辑框对象	编辑框

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
索引	整数型

判断 (索引 ＝ 1)
返回 (编辑框1)
判断 (索引 ＝ 2)
返回 (编辑框2)
判断 (索引 ＝ 3)
返回 (编辑框3)
判断 (索引 ＝ 4)
返回 (编辑框4)
判断 (索引 ＝ 5)
返回 (编辑框5)
判断 (索引 ＝ 6)
返回 (编辑框6)
判断 (索引 ＝ 7)
返回 (编辑框7)
返回 (编辑框1)

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

' 卸载键盘钩子
卸载键盘钩子 (钩子句柄

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 键盘设备数组, 整数型, , "7"  '存储7个键盘的设备句柄<br /> .程序集变量 当前活动键盘, 整数型, , "7"  '记录每个键盘的最后活动时间<br /> .程序集变量 钩子句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 初始化7个编辑框<br />     编辑框1.内容 ＝ ""<br />     编辑框2.内容 ＝ ""<br />     编辑框3.内容 ＝ ""<br />     编辑框4.内容 ＝ ""<br />     编辑框5.内容 ＝ ""<br />     编辑框6.内容 ＝ ""<br />     编辑框7.内容 ＝ ""<br />     <br />     ' 枚举所有键盘设备<br />     枚举键盘设备()<br />     <br />     ' 安装低级键盘钩子<br />     钩子句柄 ＝ 安装键盘钩子(&键盘钩子回调)<br /> <br /> .子程序 枚举键盘设备<br />     .局部变量 设备数量, 整数型<br />     .局部变量 设备信息, 文本型<br />     .局部变量 i, 整数型<br />     <br />     设备数量 ＝ 取输入设备数量()<br />     .如果真 (设备数量 ＜ 7)<br />         信息框("检测到的键盘设备不足7个！", 0, , )<br />         返回<br />     .如果真结束<br />     <br />     .计次循环首 (7, i)<br />         设备信息 ＝ 取输入设备信息(i)<br />         ' 这里可以根据设备信息筛选真正的键盘设备<br />         键盘设备数组<i> ＝ 打开输入设备(i)<br />     .计次循环尾 ()<br /> <br /> .子程序 键盘钩子回调, 整数型<br />     .参数 按键代码, 整数型<br />     .参数 扫描码, 整数型<br />     .参数 按键状态, 整数型<br />     .参数 设备ID, 整数型<br />     <br />     .局部变量 目标编辑框, 编辑框<br />     .局部变量 键盘索引, 整数型<br />     <br />     ' 确定是哪个键盘触发的<br />     键盘索引 ＝ 取键盘索引(设备ID)<br />     .如果 (键盘索引 ＝ 0)<br />         返回 (1)  ' 不是我们监控的键盘，交给系统处理<br />     .否则<br />         ' 阻止默认处理<br />         置键盘状态(按键代码, 0)<br />     .如果结束<br />     <br />     ' 根据键盘索引选择目标编辑框<br />     目标编辑框 ＝ 取编辑框对象(键盘索引)<br />     <br />     ' 处理按键输入<br />     .如果 (按键状态 ＝ 1)  ' 按键按下<br />         .判断开始 (按键代码 ≥ 48 且 按键代码 ≤ 57)  ' 数字0-9<br />             目标编辑框.内容 ＝ 目标编辑框.内容 ＋ 字符(按键代码)<br />         .判断 (按键代码 ＝ 8)  ' 退格键<br />             .如果 (取文本长度(目标编辑框.内容) ＞ 0)<br />                 目标编辑框.内容 ＝ 取文本左边(目标编辑框.内容, 取文本长度(目标编辑框.内容) - 1)<br />             .如果结束<br />         .默认<br />             ' 其他按键不做处理<br />         .判断结束<br />     .如果结束<br />     <br />     返回 (1)<br /> <br /> .子程序 取键盘索引, 整数型<br />     .参数 设备ID, 整数型<br />     <br />     .局部变量 i, 整数型<br />     <br />     .计次循环首 (7, i)<br />         .如果 (设备ID ＝ 键盘设备数组<i>)<br />             返回 (i)<br />         .如果结束<br />     .计次循环尾 ()<br />     <br />     返回 (0)<br /> <br /> .子程序 取编辑框对象, 编辑框<br />     .参数 索引, 整数型<br />     <br />     .判断开始 (索引 ＝ 1)<br />         返回 (编辑框1)<br />     .判断 (索引 ＝ 2)<br />         返回 (编辑框2)<br />     .判断 (索引 ＝ 3)<br />         返回 (编辑框3)<br />     .判断 (索引 ＝ 4)<br />         返回 (编辑框4)<br />     .判断 (索引 ＝ 5)<br />         返回 (编辑框5)<br />     .判断 (索引 ＝ 6)<br />         返回 (编辑框6)<br />     .判断 (索引 ＝ 7)<br />         返回 (编辑框7)<br />     .默认<br />         返回 (编辑框1)<br />     .判断结束<br /> <br /> .子程序 __启动窗口_将被销毁<br />     ' 卸载键盘钩子<br />     卸载键盘钩子(钩子句柄

huayuanderen

创建N个线程， 监控N个键盘， 每个键盘输入到指定编辑框  ，具体实现，可以自行百du或者百du