[0theghost0]

السلام عليكم

هذا الكود لايعمل عندي الرجاء مساعدتي في ترقيته الى vb.net 2013 او تعديله لي ليعمل عندي

وظيفة الكود اني اضع الايدي حق البروسيسور ويعمل فقط على اي بروسيسور بمثل الكود الذي تم وضعه او اذا لديكم كود اقوى وافضل منه الرجاء اعطائي .

كود :

Imports System
Imports System.Management
Namespace nsProcessorID
Public Class CPUId
'make a function which will get processor id from the system and return a string
Public Shared Function GetProcessorId() As String
Dim strProcessorId As String
Dim query As New SelectQuery("Win32_processor")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strProcessorId = info("processorId").ToString()
Next
Return strProcessorId
End Function
End Class
End Namespace