获取U盘系列号

QiaoCheng

根据VB源码改成
VB如下
'根据U盘盘符获取序列号
Private Function GetUSBVID(usbPath As String) As String
    Dim objWMIService As Object
    Dim USBDevices As Object, USBDevice As Object, USBDiskPartitions As Object, USBDiskPartition As Object, LogicalUSBDisks As Object, LogicalUSBDisk As

Object
    Dim strID() As String
    Dim Finded As Boolean
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType='USB'")
    For Each USBDevice In USBDevices

        If Finded Then Exit For
        Set USBDiskPartitions = objWMIService.execquery("Associators of {Win32_DiskDrive.DeviceID='" & USBDevice.DeviceId & "'} where AssocClass =

Win32_DiskDriveToDiskPartition")
        For Each USBDiskPartition In USBDiskPartitions
            Set LogicalUSBDisks = objWMIService.execquery("Associators of {Win32_DiskPartition.DeviceID='" & USBDiskPartition.DeviceId & "'} where AssocClass

= Win32_LogicalDiskToPartition")
            For Each LogicalUSBDisk In LogicalUSBDisks
                If LogicalUSBDisk.DeviceId = UCase(usbPath) Then
                    strID = Split(USBDevice.PNPDeviceID, "\")
                    strID = Split(strID(UBound(strID)), "&")
                    GetUSBVID = strID(0)
                    Finded = True
                End If
            Next
        Next
        DoEvents
    Next
    Set USBDevices = Nothing
    Set USBDevice = Nothing
    Set USBDiskPartitions = Nothing
    Set USBDiskPartition = Nothing
    Set LogicalUSBDisks = Nothing
    Set LogicalUSBDisk = Nothing
End Function


每次都是拿豆豆买，这次卖出去，价廉物美，大伙快买

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:获取U盘系列号.rar 
下载次数:23  文件大小:553 Bytes  售价:10D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]

GTJ116600

好东东，先收藏了，以后研究

QiaoCheng

下载次数 0
您都没买{:soso_e103:}{:soso_e113:}

sicky111

QiaoCheng 发表于 2013-6-5 10:44
下载次数 0
您都没买

那位兄弟是回帖赚D豆的，呵呵。我先支持一下楼主，貌似可以用U盘实现加密狗的功能咯。

GTJ116600

QiaoCheng 发表于 2013-6-5 10:44
下载次数 0
您都没买

呵呵，上次忘了，现在补上{:soso_e113:}
多谢提醒

xvjiex

感谢楼主分享 获取U盘系列号！