LShift::
KeyWait "LShift"
SendInput "{LShift Down}"
Loop
{
    Input "V T2 L1"
    If (ErrorLevel == "Timeout")
    {
        SendInput "{LShift Up}"
        Break
    }
}
Return

Pues, personalmente no le veo ningún sentido a esto. Si necesitas escribir una sola letra en mayúscula utilizar [c]Shift[/c] (manteniendo presionado) es lo más rápido, y si necesitas escribir varias letras en mayúsculas, para eso esta el [c]Bloq Mayús[/c]. No me imagino como un [i]Script[/i] puede ayudarte a escribir mayúsculas más rápido.
El [i]Script[/i] que te pasé, lo acabo de probar "así nomas", y pues parece funcionar. Si aún quieres el [i]Script[/i], voy a necesitar más información, bajo que circunstancias no te funciona, para poder yo reproducir el error.
Cabe destacar que lo he probado en [i]AHKv2[/i], pero imagino que es lo mismo. Este es el código que he probado (es exactamente el mismo que el de arriba nada más que este es para la versión 2):
[code=autohotkey file=Untitled.ahk]LShift::
KeyWait "LShift"
SendInput "{LShift Down}"
Loop
{
Input "V T2 L1"
If (ErrorLevel == "Timeout")
{
SendInput "{LShift Up}"
Break
}
}
Return[/code]

Gracias por tu respuesta Flipeador, pero la verdad no he logrado escribir las mayúsculas mas rápido. Parece ser que la forma mas rápida es presionar [c]Shift[/c]y un letra al misma tiempo. :problem:. El código que me enviaste no es el 100% efectivo, a veces no ingresa la letra que se presiono en mayúscula y otras veces ingresa 2 o mas letras presionadas en mayusculas mayúsculas.

LShift::
KeyWait LShift
SendInput {LShift Down}
SetTimer LShiftUp, -2000
Return

LShiftUp:
SendInput {LShift Up}
Return

LShift::
KeyWait LShift
SendInput {LShift Down}
Loop
{
    Input o, V T2 L1
    If (ErrorLevel = "Timeout")
    {
        SendInput {LShift Up}
        Break
    }
}
Return

Hola, te dejo un Script pero sin probar.
[code=autohotkey file=Untitled.ahk]LShift::
KeyWait LShift
SendInput {LShift Down}
SetTimer LShiftUp, -2000
Return

LShiftUp:
SendInput {LShift Up}
Return[/code]
[hr][/hr]
Edito: Acabo de darme cuenta de [c]Pero si no presiono ninguna letra dentro de 2 segundos: La 1ra acción (Shift) se desvanece.[/c], eso va a requerir una modificación, estaré editando esta respuesta, se me complica porque no estoy en casa.
[hr][/hr]
Edito 2: Prueba este otro.
[code=autohotkey file=Untitled.ahk]LShift::
KeyWait LShift
SendInput {LShift Down}
Loop
{
Input o, V T2 L1
If (ErrorLevel = "Timeout")
{
SendInput {LShift Up}
Break
}
}
Return[/code]
[hr][/hr]
Nota: Tal vez, y como recomendación, te sea mas eficiente que la tecla Shift se mantenga presionada cuando la presiones rápidamente dos veces, y luego se restaure al presionarla una vez.

Hola a todos, estaba pensado que un manera de escribir mas rápido las letras mayúsculas seria presionar [c]Shift[/c] y luego de eso, la siguiente "Letra" que presione se muestre en la pantalla en mayúscula, (para escribir una letra mayúscula lo normal es presionar[c]Shift[/c]y "Letra" al mismo tiempo).
Dicho de otra forma:
1ra accion: Presionar [c]Shift[/c].
--2da accion: Presionar un letra.
--Resultado: Se muestra dicha letra en mayuscula.
Pero si no presiono ninguna letra dentro de 2 segundos: La 1ra accion ([c]Shift)[/c]se desvanece.
Gracias de antemano.