我开始使用pinpad了. 我需要我的程序找到pinpad连接的端口,无需用户交互. 我尝试过: Dim searcher As New ManagementObjectSearcher("root\cimv2","SELECT * FROM Win32_SerialPort") For Each queryObj As ManagementObject
我需要我的程序找到pinpad连接的端口,无需用户交互.
我尝试过:
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)
与
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
有了这个,我可以看到我的设备友好的名称,但我不知道如何获得端口(我收到像’惠普打印机’这样的名字)
知道如何获得我需要的端口?
提前致谢
根据评论,听起来您的设备是USB设备,其驱动程序使其看起来像是(模拟)串行端口连接设备.在那种情况下,我会使用:My.Computer.Ports.SerialPortNames
枚举和循环所有串口.然后,一次一个尝试打开每个并向您知道它响应的设备发送命令.大多数设备都有某种心跳或保持活跃的信息,他们会响应.无论您获得响应的端口是您需要使用的端口.