编程论坛 → VB6论坛

【原创】U盘ID获取器V2

约定的童话发布于 2022-07-19 16:27， 2482 次点击

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

只有本站会员才能查看附件，请登录

8 回复

yuma2022-07-19 17:15

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

只有本站会员才能查看附件，请登录

约定的童话2022-07-19 21:26

回复 2楼 yuma

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

yuma2022-07-19 22:18

程序代码：

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

约定的童话2022-07-21 10:50

回复 4楼 yuma

能实现软件效果吗？

yuma2022-07-21 14:49

回复 5楼约定的童话

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

只有本站会员才能查看附件，请登录

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

yuma2022-10-01 18:06

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

同一个U盘，看图：

只有本站会员才能查看附件，请登录

约定的童话2022-10-02 09:30

回复 7楼 yuma

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

yuma2022-10-02 18:18

回复 8楼约定的童话

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