Private Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long
Public Sub cGetKeyboardType()
Dim t As String
Dim k As Long
k = GetKeyboardType(0)
if k = 1 Then t = "PC or compatible 83-key keyboard"
if k = 2 Then t = "Olivetti 102-key keyboard"
if k = 3 Then t = "AT or compatible 84-key keyboard"
if k = 4 Then t = "Enhanced(IBM) 101-102-key keyboard"
if k = 5 Then t = "Nokia 1050 keyboard"
if k = 6 Then t = "Nokia 9140 keyboard"
if k = 7 Then t = "Japanese keyboard"
MsgBox "Тип вашей клавиатуры :" & t
End Sub |
|