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

Public Class keyboard
        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_keyboard")
        Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
        Dim queryCollection As ManagementObjectCollection = moss.Get
        Public Function KetBName()
            For Each getnow As ManagementObject In queryCollection
                KetBName = getnow("name")
            Next
        End Function
        Public Function KetBstatus()
            For Each getnow As ManagementObject In queryCollection
                KetBstatus = getnow("status")
            Next
        End Function
        Public Function KetBDeviceID()
            For Each getnow As ManagementObject In queryCollection
                KetBDeviceID = getnow("DeviceID")
            Next
        End Function
        Public Function Description()
            For Each getnow As ManagementObject In queryCollection
                Description = getnow("Description")
            Next
        End Function
    End Class

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