生成u盘uuid的vb代码

以下是使用VB.NET生成U盘UUID的示例代码：

Imports System.Management

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim uuid As String = GetUUID()
        MessageBox.Show(uuid)
    End Sub

    Private Function GetUUID() As String
        Dim uuid As String = ""
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE InterfaceType='USB'")
        For Each drive As ManagementObject In query.Get()
            Dim serialNumber As String = drive("SerialNumber").ToString().Trim()
            Dim model As String = drive("Model").ToString().Trim()
            uuid = model & "-" & serialNumber
        Next
        Return uuid
    End Function
End Class

上述代码使用 `System.Management` 命名空间中的 `ManagementObjectSearcher` 类来获取 U 盘的信息，然后从中提取序列号和型号来生成 UUID。请注意，这种方法仅适用于 U 盘，因为它使用了 `InterfaceType='USB'` 过滤器。如果您需要生成其他设备的 UUID，您需要根据设备的特点更改查询条件。