Actualizado y listo para bajar:
http://www.alvarezeninternet.com/temp/utilidad-de-teclado.zip
Con este codigo se comprueba si esta el bloqueo de mayusculas activado o si la tecla de mayusculas esta pulsada. En cualquiera de esos casos saldran los caracteres en mayuscula. Si se dan ambas circunstancias a la vez (caplocks activado y mayusculas pulsadas), saldran en minusculas. Evidentemente, si no tienes el caplocks activado y no pulsas la mayuscula, saldran tambien en minusculas.
Asi, para escribir á, tienes que pulsar appskey + a
Para escribir Á, pulsa mayuscula + appskey + a ( o bien activa capslock y pulsa appskey + a)
#SingleInstance force
#persistent
#notrayicon
AppsKey & !::
send ¡
return
AppsKey & ?::
send ¿
return
AppsKey & a::
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 0 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 1 )
send á
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 1 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 0 )
send Á
return
AppsKey & e::
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 0 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 1 )
send é
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 1 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 0 )
send É
return
AppsKey & i::
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 0 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 1 )
send í
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 1 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 0 )
send Í
return
AppsKey & o::
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 0 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 1 )
send ó
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 1 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 0 )
send Ó
return
AppsKey & u::
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 0 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 1 )
send ú
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 1 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 0 )
send Ú
return
AppsKey & n::
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 0 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 1 )
send ñ
If ( GetKeyState("CapsLock", "T") = 0 ) && ( GetKeyState("Shift", "P") = 1 ) || ( GetKeyState("CapsLock", "T") = 1 ) && ( GetKeyState("Shift", "P") = 0 )
send Ñ
return