ama çalıştıgını söyliyemem
al ben sana çalışan veririm
direk yapıstır kullan sadece bir tane label ekle
Imports System.Net
Imports System.Management
Public Class Form1
Function GetHWID()
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances
For Each mo As ManagementObject In moc
If GetHWID = "" Then
GetHWID = mo.Properties("processorID").Value.ToString
Exit For
End If
Next
Return GetHWID
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
Label1.Text = GetHWID()
End Sub
End Class