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

rejerk 2007-04-04 11:45:00
如题,USB磁盘设备我都会检测,可是其他比如人体输入设备我用VB检测不出来,请高手帮帮忙!
...全文
424 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
清晨曦月 2007-04-17
  • 打赏
  • 举报
回复
恩恩,WMI枚举USB设备即可
zsj1101 2007-04-13
  • 打赏
  • 举报
回复
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

WM_JAWIN 2007-04-04
  • 打赏
  • 举报
回复
可以的.DDK里有专门的函数,不记得是什么了,你去查查应该可以找到的

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧