Felix Abundiz Charles escribió:
>
> Saludos a todos.
>
> Alguien conoce alguna API con la cual activar las MAYUSCULAS (Caps Look)
>
> Gracias
>

Private Declare Function GetKeyState Lib "user32" _
   (ByVal nVirtKey As Long) As Integer
Const Mayusculas = 20


If GetKeyState(Mayusculas) Mod 2 Then
   Print "MAYS"
   'CapsLock activado
else
   'CapsLock desactivado
   SendKeys "{CAPSLOCK}" 'Esto debería funcionar
End If


Por alguna razón, el SendKeys no me funciona, pero el resto sí. También existe la función
SetKeyboardState, pero es un poco más complicada de usar (yo no lo he hecho), que cambia
el teclado entero, y no me he puesto con ella.

Espero haberte sido de ayuda.