以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  能用FOXTABLE控制多个USB口的通断吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174916)

--  作者:keli0917
--  发布时间:2022/2/11 14:25:00
--  能用FOXTABLE控制多个USB口的通断吗
有二个USB口的税控U盘,分别接在同一台电脑的不同USB口,他们共用使用一个软件。
我原来是通过接入A盘,拿掉B盘,轮换使用。能否做一个小软件,让他们同时接在不同的USB口,用软件控制使用哪一个盘打开软件?

--  作者:keli0917
--  发布时间:2022/2/11 14:29:00
--  
Dim USBDevices, USBDevice As object
Dim objWMIService = GetObject("winmgmts:\\\\.\\root\\cimv2")
USBDevices = objWMIService.execquery("Sele ct * From Win32_DiskDrive where InterfaceType=\'USB\'")
For Each USBDevice In USBDevices
 

   \' msgbox(USBDevice.Caption)
   \' msgbox(USBDevice.PNPDeviceID)
   \' msgbox(USBDevice.Size)
Next

--  作者:有点蓝
--  发布时间:2022/2/11 14:47:00
--  
这玩意我不懂哦