'*********************************************************
' GetKey
'
' Devuelve el estado de una tecla (True/False)
'
' Argumentos
'   tecla: la tecla de la que se quiere obtener esa
'   información
'
' Ejemplo de uso:
'
'  - para la tecla insert
'  Call GetKey(vbKeyInsert)
'  - para la tecla BloqNum
'  Call GetKey(vbKeyNumlock)
'  - para la tecla BloqMayús
'  Call GetKey(vbKeyCapital)
'
' SetKey
'
' Activa/desactiva una tecla
'
' Argumentos
'   tecla: la tecla que se ha de manipular
'   activar: true o false si se quiere activar o
'   desactivar
'
' Ejemplo de uso:
'
'  - para activar la tecla insert
'  Call SetKey(vbKeyInsert, True)
'  - para la desactivar la tecla BloqMayús
'  Call SetKey(vbKeyCapital, False)
'
' Fecha: Febrero 2003
' Autor: Juan M. Afán de Ribera
'
Private Type KeyboardBytes
   kbByte(0 To 255) As Byte
End Type

Private Declare Function GetKeyboardState _
                Lib "user32" _
                (kbArray As KeyboardBytes) As Long

Private Declare Function SetKeyboardState _
                Lib "user32" _
                (kbArray As KeyboardBytes) As Long

Function GetKey(tecla As Long) As Boolean
Dim kbArray As KeyboardBytes

   GetKeyboardState kbArray
   GetKey = IIf(kbArray.kbByte(tecla) = 1, True, False)

End Function

Sub SetKey(tecla As Long, activar As Boolean)
Dim kbArray As KeyboardBytes

   GetKeyboardState kbArray
   kbArray.kbByte(tecla) = IIf(activar = True, 1, 0)
   SetKeyboardState kbArray

End Sub
'*********************************************************