我开始使用密码键盘工作。
我需要我的程序找到密码键盘连接的端口，而无需用户交互。
我尝试过：
Dim searcher As New ManagementObjectSearcher("root\cimv2","SELECT * FROM Win32_SerialPort")
For Each queryObj As ManagementObject In searcher.Get()
MsgBox(queryObj("Name"))
Next
但这只给我“COM1”和“COM2”作为答案（我的设备连接到COM4）
and with
Dim searcher As New ManagementObjectSearcher("root\cimv2", "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode = 0")
For Each queryObj As ManagementObject In searcher.Get()
MsgBox(queryObj("Name"))
Next
有了这个，我可以看到我的设备友好名称，但我不知道如何获取端口（我收到诸如“HP 打印机”之类的名称）
知道如何获得我需要的端口吗？
提前致谢
根据评论，听起来您的设备是一个 USB 设备，它有一个驱动程序，导致它看起来（模拟）一个串行端口连接设备。在这种情况下我会使用：
My.Computer.Ports.SerialPortNames
枚举并循环所有串行端口。然后，一次尝试打开每个设备并向您知道它会响应的设备发送命令。大多数设备都会响应某种心跳或保持活动消息。您在哪个端口上收到响应就是您需要使用的端口。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
