*w::
GetKeyState, CapslockState, CapsLock, T
If CapslockState = D
Send {Up}
Else Send, w
Return

*a::
GetKeyState, CapslockState, CapsLock, T
If CapslockState = D
Send {Left}
Else Send, a
Return

*s::
GetKeyState, CapslockState, CapsLock, T
If CapslockState = D
Send {Down}
Else Send, s
Return

*d::
GetKeyState, CapslockState, CapsLock, T
If CapslockState = D
Send {Right}
Else Send, d
Return

Добавлено:
Упустил один нюанс. Чтобы модификаторы оставались рабочими, следует использовать контекстно-чувствительные горячие клавиши:

#If CapsLockState() = "D"
w::Up
a::Left
s::Down
d::Right
#If


CapsLockState()
{
GetKeyState, CapsLock_st, CapsLock, T
Return CapsLock_st
}

CapsLock & A::
If GetKeyState("Ctrl","p")
 If GetKeyState("Shift","p")
  Send ^+{left}
 Else
  Send ^{left}
Else
 Send, {left}
Return

CapsLock & S::
If GetKeyState("Ctrl","p")
 If GetKeyState("Shift","p")
  Send ^+{Down}
 Else
  Send ^{Down}
Else
 Send, {Down}
Return

CapsLock & D::
If GetKeyState("Ctrl","p")
 If GetKeyState("Shift","p")
  Send ^+{right}
 Else
  Send ^{right}
Else
 Send, {right}
Return

CapsLock & W::
If GetKeyState("Ctrl","p")
 If GetKeyState("Shift","p")
  Send ^+{up}
 Else
  Send ^{up}
Else
 Send, {up}
Return

CapsLock & Q::
If GetKeyState("Ctrl","p")
 If GetKeyState("Shift","p")
  Send ^+{home}
 Else
  Send ^{home}
Else
 Send, {home}
Return

CapsLock & E::
If GetKeyState("Ctrl","p")
 If GetKeyState("Shift","p")
  Send ^+{end}
 Else
  Send ^{end}
Else
 Send, {end}
Return

CapsLock & 2::!F4

^CapsLock::
{
    If GetKeyState("CapsLock","T")
        SetCapsLockState, Off
    Else
        SetCapsLockState, On
    Return
}

Я реализовал задуманное лишь отчасти - в комбинациях с ctrl, shift, caps lock и буквами работала лишь комбинаций (в разном написании по-разному), заставить их все работать я не смог.