如何检测到非U盘的USB设备啊?比如USB键盘..

Question

如题,USB磁盘设备我都会检测,可是其他比如人体输入设备我用VB检测不出来,请高手帮帮忙!

Answer 1

可以的.DDK里有专门的函数,不记得是什么了,你去查查应该可以找到的

Answer 2

Sub Command1_Click()
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colDevices = objWMIService.ExecQuery("Select * From Win32_USBControllerDevice")
    For Each objDevice In colDevices
        strDeviceName = objDevice.Dependent
       
        strQuotes = Chr(34)
        strDeviceName = Replace(strDeviceName, strQuotes, "")
        arrDeviceNames = Split(strDeviceName, "=")
        strDeviceName = arrDeviceNames(1)
        Set colUSBDevices = objWMIService.ExecQuery _
            ("Select * From Win32_PnPEntity Where DeviceID = '" & strDeviceName & "'")
        For Each objUSBDevice In colUSBDevices
            Debug.Print objUSBDevice.Description
        Next
    Next
End Sub