VB.NET 获取硬盘和CPU序列号 - 代码示例

要获取计算机硬盘和CPU序列号，可以使用ManagementObject类来获取相关信息。下面是一个示例代码：

Imports System.Management

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim hddSerial As String = GetHardDiskSerialNumber()
        Dim cpuSerial As String = GetCPUSerialNumber()

        MessageBox.Show("Hard Disk Serial Number: " & hddSerial & vbCrLf & "CPU Serial Number: " & cpuSerial)
    End Sub

    Private Function GetHardDiskSerialNumber() As String
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
        Dim hardDiskSerial As String = ""

        For Each wmiObject As ManagementObject In searcher.Get()
            hardDiskSerial = wmiObject("SerialNumber").ToString()
            Exit For
        Next

        Return hardDiskSerial
    End Function

    Private Function GetCPUSerialNumber() As String
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        Dim cpuSerial As String = ""

        For Each wmiObject As ManagementObject In searcher.Get()
            cpuSerial = wmiObject("ProcessorID").ToString()
            Exit For
        Next

        Return cpuSerial
    End Function
End Class

这个示例代码中的GetHardDiskSerialNumber函数使用Win32_PhysicalMedia类来获取硬盘序列号，GetCPUSerialNumber函数使用Win32_Processor类来获取CPU序列号。在按钮的点击事件处理程序中，调用这两个函数获取序列号，并使用MessageBox显示出来。