كلاس للتحكم فى المعالج - فيجوال بيسك دوت نت

Public Class CPU
        Dim con As ConnectionOptions = New ConnectionOptions
        Dim machineName As String = System.Environment.MachineName
        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
        Dim oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_processor")
        Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)
        Dim queryCollection As ManagementObjectCollection = mos.Get
        Public Function GetName()
            For Each getnow As ManagementObject In queryCollection
                GetName = getnow("name").ToString
            Next
        End Function
        Public Function GetCaption() As String
            For Each getnow As ManagementObject In queryCollection
                GetCaption = getnow("Caption").ToString
            Next
        End Function
        Public Function GetManufacturer() As String

            For Each getnow As ManagementObject In queryCollection
                GetManufacturer = getnow("Manufacturer").ToString
            Next
        End Function
        Public Function GetSpeed() As String
            For Each getnow As ManagementObject In queryCollection
                GetSpeed = getnow("MaxClockSpeed").ToString
            Next
        End Function
        Public Function GetL2CacheSize() As String
            For Each getnow As ManagementObject In queryCollection
                GetL2CacheSize = getnow("L2CacheSize").ToString
            Next
        End Function
        Public Function SocketDesignation() As String
            For Each getnow As ManagementObject In queryCollection
                SocketDesignation = getnow("SocketDesignation").ToString
            Next
        End Function
        Public Function ProcessorId() As String
            For Each getnow As ManagementObject In queryCollection
                ProcessorId = getnow("ProcessorId").ToString
            Next
        End Function
        Public Function ExtClock() As String
            For Each getnow As ManagementObject In queryCollection
                ExtClock = getnow("ExtClock").ToString
            Next
        End Function
        Public Function CurrentVoltage() As String
            For Each getnow As ManagementObject In queryCollection
                CurrentVoltage = getnow("CurrentVoltage").ToString
            Next
        End Function
        Public Function Stepping() As String
            For Each getnow As ManagementObject In queryCollection
                Stepping = getnow("Stepping").ToString
            Next
        End Function
        Public Function Level() As String
            For Each getnow As ManagementObject In queryCollection
                Level = getnow("Level").ToString
            Next
        End Function
        Public Function Revision() As String
            For Each getnow As ManagementObject In queryCollection
                Revision = getnow("Revision").ToString
            Next
        End Function
        Public Function Version() As String
            For Each getnow As ManagementObject In queryCollection
                Version = getnow("Version").ToString
            Next
        End Function
    End Class

Please SUBSCRIBE to get new articles directly into your Email inbox!