开发背景：写了一个exe需要绑定U盘使用，找了一圈没几个好用的，索性自己编了一个！
开发环境：Win10工作站版+VB6.0
使用方法：打开即可使用，软件运行会自动侦测是否插入U盘，有的话自动获取盘符和ID，没有插入的话自动提示！

是用的Win32_USBHub类的DeviceID属性值吗？你那怎么全是数字？

对了一半，通过上面方法获取U盘盘符，然后根据盘符获取数字ID...

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
For Each objItem In colItems
a = objItem.DeviceID  'U盘识别为:USB\VID_09A6&PID_800\20040418154911-00，故用VID判别
If InStr(a, "VID") Then b = Split(a, "\"): MsgBox b(UBound(b))
Next

能实现软件效果吗？

U盘的硬件ID只能长下面这样，看图：

想要达到你一楼中纯数字的效果，要不我们只保留字符串中的数字试试看。

这个U盘ID获取器有点误人子弟。楼主不要相信，以cmd 显示为准。

同一个U盘，看图：

U盘快递寄过来我看下什么鬼

自己做的一个U盘PE维护盘而已。