كلاس فيجوال بيسك دوت نت عن كارت الفيديو - كارت الشاشة - VideoCard

Public Class VideoCard
        Dim con As ConnectionOptions = New ConnectionOptions
        Dim machineName As String = System.Environment.MachineName
        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
        Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_VideoController")
        Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
        Dim queryCollection As ManagementObjectCollection = moss.Get
        Public Function GetName() As String
            For Each getnow As ManagementObject In queryCollection
                GetName = getnow("name").ToString
                Return GetName
            Next
        End Function
        Public Function VideoModeDescription() As String
            For Each getnow As ManagementObject In queryCollection
                VideoModeDescription = getnow("VideoModeDescription").ToString
            Next
        End Function
        Public Function VideoProcessor() As String
            For Each getnow As ManagementObject In queryCollection
                VideoProcessor = getnow("VideoProcessor").ToString
            Next
        End Function
        Public Function AdapterRAM() As String
            For Each getnow As ManagementObject In queryCollection
                AdapterRAM = getnow("AdapterRAM")
            Next
        End Function
        Public Function status() As String
            For Each getnow As ManagementObject In queryCollection
                status = getnow("status").ToString
            Next
        End Function
        Public Function AdapterCompatibility() As String
            For Each getnow As ManagementObject In queryCollection
                AdapterCompatibility = getnow("AdapterCompatibility").ToString
            Next
        End Function
        Public Function AdapterDACType() As String
            For Each getnow As ManagementObject In queryCollection
                AdapterDACType = getnow("AdapterDACType").ToString
            Next
        End Function
        Public Function DriverVersion() As String
            For Each getnow As ManagementObject In queryCollection
                DriverVersion = getnow("DriverVersion").ToString
            Next
        End Function
        Public Function InfFilename() As String
            For Each getnow As ManagementObject In queryCollection
                InfFilename = getnow("InfFilename").ToString
            Next
        End Function
        Public Function Monochrome() As String
            For Each getnow As ManagementObject In queryCollection
                Monochrome = getnow("Monochrome").ToString
            Next
        End Function
    End Class

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