I have a script that remaps part of my keyboard:
#Include <Misc.au3>
HotKeySet("E", "EKey")
Func EKey()
Send("{BACKSPACE}")
Send("=")
Send("-")
Send("7")
Send("-")
EndFunc
$dll = DllOpen("user32.dll")
While 1
Sleep (10)
If _IsPressed("57", $dll) Then
Send("{, down}")
Send("{. down}")
While _IsPressed("57", $dll)
Sleep(10)
WEnd
Send("{, up}")
Send("{. up}")
EndIf
WEnd
It