Function for GetUniquePCID .NET

Question

我需要一個函數返回一個字符串，使用硬件序列號並將它們混合在一起以獲得單個序列號。

我搜索嘗試這樣的功能，但我找不到任何類似的東西，這個功能需要識別具有授權系統的PC。

我只需要每臺計算機具有相同的值。

Answer 1

這可能不完全是你想要的，但如果我正確理解你的問題，玩下面的代碼（不要使用下面的代碼與嚴格）不是最好的想法，但它的作品...

Private Function SystemSerialNumber() As String 
    ' Get the Windows Management Instrumentation object. 
    Dim wmi As Object = GetObject("WinMgmts:") 

    ' Get the "base boards" (mother boards). 
    Dim serial_numbers As String = "" 
    Dim mother_boards As Object = _ 
     wmi.InstancesOf("Win32_BaseBoard") 
    For Each board As Object In mother_boards 
     serial_numbers &= ", " & board.SerialNumber 
    Next board 
    If serial_numbers.Length > 0 Then serial_numbers = _ 
     serial_numbers.Substring(2) 

    Return serial_numbers 
End Function 

Private Function CpuId() As String 
    Dim computer As String = "." 
    Dim wmi As Object = GetObject("winmgmts:" & _ 
     "{impersonationLevel=impersonate}!\\" & _ 
     computer & "\root\cimv2") 
    Dim processors As Object = wmi.ExecQuery("Select * from " & _ 
     "Win32_Processor") 

    Dim cpu_ids As String = "" 
    For Each cpu As Object In processors 
     cpu_ids = cpu_ids & ", " & cpu.ProcessorId 
    Next cpu 
    If cpu_ids.Length > 0 Then cpu_ids = _ 
     cpu_ids.Substring(2) 

    Return cpu_ids 
End Function 

來源： http://www.vb-helper.com/howto_net_get_cpu_serial_number_id.html