قراءة رقم البرويسسور

هذه الفنكشن بترجعلك اللى انت عاوزه

Public Function GetCPUId() As String
		Dim cpuInfo As String = String.Empty
		Dim temp As String = String.Empty
		Dim mc As ManagementClass = _
		New ManagementClass("Win32_Processor")
		Dim moc As ManagementObjectCollection = mc.GetInstances()

		For Each mo As ManagementObject In moc
			If cpuInfo = String.Empty Then
				cpuInfo = _
				mo.Properties("ProcessorId").Value.ToString()
			End If
		Next

		Return cpuInfo
	End Function

وهذه الفنكشن بترجعلك رقم الهارد بس خلي بالك رقم الهارد بيتغير لو سطبت نسخة ويندوز جديدة او فرمت الهارد

 Public Function GetHDSerial() As String
		Dim disk As New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
		Dim diskPropertyA As PropertyData = _
		disk.Properties("VolumeSerialNumber")
		Return diskPropertyA.Value


	End Function

وهذه الفنكشن بترجعلك رقم البويز

 Public Function GetCPUId() As String
		Dim cpuInfo As String = String.Empty
		Dim temp As String = String.Empty
		Dim mc As ManagementClass = _
		New ManagementClass("Win32_Processor")
		Dim moc As ManagementObjectCollection = mc.GetInstances()

		For Each mo As ManagementObject In moc
			If cpuInfo = String.Empty Then
				cpuInfo = _
				mo.Properties("ProcessorId").Value.ToString()
			End If
		Next

		Return cpuInfo
	End Function
	Function biosID()

		Dim strComputer As String = "."
		Dim objWMIService As Object = GetObject("winmgmts:" _
			& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		Dim colBIOS As Object = objWMIService.ExecQuery _
			("Select * from Win32_BIOS")
		Dim objBIOS As Object
		Dim msg As String
		Dim i As Integer

		For Each objBIOS In colBIOS
			msg = objBIOS.SerialNumber

		Next
		Return msg

	End Function

يلا ابسط ياعم

الكود كنت محتاجه وانا دورت عليه وعثرت عليه بس مش فاكر منين