可以帮忙优化一下大小写屏幕显示的小脚本吗?关于大小写按键的状态显示

就是监控键盘上CapsLock的状态,并且在屏幕上显示.
这个脚本的问题是如果快速在大写和小写直接切换的话就不行了…
如果消失的时候可以渐变就更好了…感谢啦

“`
SetCapsLockState, Off
width := A_ScreenWidth/2
height := A_ScreenHeight – 300

~*CapsLock::

Sleep, 100
if GetKeyState(“CapsLock”, “T”)
{
Progress, B1 W200 H120 ZH0 FS80 WS700 x%width% y%height% CTFFFFFF CW5A5A5A, A
Sleep, 1000
Progress off
}
else
{
Progress, B1 W200 H120 ZH0 FS80 WS700 x%width% y%height% CTFFFFFF CW5A5A5A, a
Sleep, 1000
Progress off
}

return
“`