AHK: Переназначить движение мыши на клавиши

CoordMode, Mouse, Screen
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
default_X := A_ScreenWidth/2
default_Y := A_ScreenHeight/2

SetTimer, Reset, 50
Pause

Pause::Pause

Reset:
MouseGetPos, X, Y
dX := Abs(X - default_X)
dY := Abs(Y - default_Y)
If (dX > dY)
    {
    If (X < default_X)
    Send, {Left}
    If (X > default_X)
    Send, {Right}
    }
If (dX < dY)
    {
    If (Y < default_Y)
    Send, {Up}
    If (Y > default_Y)
    Send, {Down}
    }
MouseMove, default_X, default_Y
Return
F8::MouseGetPos, default_X, default_Y

loop
{GetKeyState, state, RButton
while state = D
{send,{tab down}
loop ; ШИМ мышь-клавиши
<основной скрипт>
}
return
}
return
}
return

while GetKeyState("RButton")
{
send,{tab down}
<основной скрипт>
}

~RButton::
 while GetKeyState("RButton")
 {
 send,{tab down}
 <основной скрипт>
 }
return

Send{Left Down}
Sleep, 50
Send,{Left Up}

SetKeyDelay,0

#NoEnv
#SingleInstance,Force
SetTitleMatchMode,2
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,ToolTip
SetKeyDelay,0
SendMode,Input

timer:=0
coeffx=0.5   ; коэффициенты для мыши
coeffy=0.4

;class=Notepad     ; класс окна.
;#ifwinactive,ahk_class Notepad   ; тут тоже.


loop ; ШИМ мышь-клавиши
if getkeystate("RButton")
{
  if pressright>-1
  {
    pressright--
    if pressright=0
    {
      send,{right up}
      dooncex=
    }
  }
  if pressleft>-1
  {
    pressleft--
    if pressleft=0
    {
      send,{left up}
      dooncex=
    }
  }
  if pressdown>-1
  {
    pressdown--
    if pressdown=0
    {
      send,{down up}
      dooncey=
    }
  }
  if pressup>-1
  {
    pressup--
    if pressup=0
    {
      send,{up up}
      dooncey=
    }
  }

  if (timer:=timer>30 ? 0 : timer+1)
  {
;    ifwinactive,ahk_class %class%
    {
      mousemove,a_screenwidth/2,a_screenheight/2,0
      mousegetpos,x1,y1
;      DllCall("Sleep",UInt,7)
      sleep,10
      mousegetpos,x2,y2
      x:=x1-x2
      y:=y1-y2
      if (x<-1 and dooncex="") ;право
      {
        dooncex=1
        pressleft=-1
        pressright:=-x*coeffx
        send,{right down}
        send,{left up}
      }
      if (x>1 and dooncex="") ;лево
      {
        dooncex=1
        pressright=-1
        pressleft:=x*coeffx
        send,{right up}
        send,{left down}
      }
      if (y<-1 and dooncey="") ;вниз
      {
        dooncey=1
        pressup=-1
        pressdown:=-y*coeffy
        send,{up up}
        send,{down down}
      }
      if (y>1 and dooncey="") ;вверх
      {
        dooncey=1
        pressdown=-1
        pressup:=y*coeffy
        send,{up down}
        send,{down up}
      }

      if (x=0 and dooncex=1)
      {
        pressright:=pressleft:=-1
        dooncex=
        send,{left up}
        send,{right up}
      }
      if (y=0 and dooncey=1)
      {
        pressup:=pressdown:=-1
        dooncey=
        send,{up up}
        send,{down up}
      }
    }
;    else
;x      DllCall("Sleep",UInt,7)
  }
  else
    DllCall("Sleep",UInt,7)
}
else
  sleep,100
return

;lbutton::
;send,{vk58 down}     ; X
;return
;lbutton up::
;send,{vk58 up}
;return
;
;rbutton::
;send,{vk59 down}     ; Y
;return
;rbutton up::
;send,{vk59 up}
;return
;
;mbutton::
;send,{vk5a down}     ; Z
;return
;mbutton up::
;send,{vk5a up}
;return

^esc::  ; выход
exitapp

#NoEnv
#SingleInstance,Force
SetTitleMatchMode,2
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,ToolTip
SetKeyDelay,0
SendMode,Input

timer:=0
coeffx=0.5   ; коэффициенты для мыши
coeffy=0.4

;class=Notepad     ; класс окна.
;#ifwinactive,ahk_class Notepad   ; тут тоже.

loop ; ШИМ мышь-клавиши
if getkeystate("RButton")
{
  if dooncetab=
  {
    send,{tab down}
    dooncetab=1
  }
  if pressright>-1
  {
    pressright--
    if pressright=0
    {
      send,{vk66 up}
      dooncex=
    }
  }
  if pressleft>-1
  {
    pressleft--
    if pressleft=0
    {
      send,{vk64 up}
      dooncex=
    }
  }
  if pressdown>-1
  {
    pressdown--
    if pressdown=0
    {
      send,{vk62 up}
      dooncey=
    }
  }
  if pressup>-1
  {
    pressup--
    if pressup=0
    {
      send,{vk68 up}
      dooncey=
    }
  }

  if (timer:=timer>30 ? 0 : timer+1)
  {
;    ifwinactive,ahk_class %class%
    {
      mousemove,a_screenwidth/2,a_screenheight/2,0
      mousegetpos,x1,y1
      sleep,10
      mousegetpos,x2,y2
      x:=x1-x2
      y:=y1-y2
      if (x<0 and dooncex="") ;право
      {
        dooncex=1
        pressleft=-1
        pressright:=-x*coeffx
        send,{vk66 down}
        send,{vk64 up}
      }
      if (x>0 and dooncex="") ;лево
      {
        dooncex=1
        pressright=-1
        pressleft:=x*coeffx
        send,{vk66 up}
        send,{vk64 down}
      }
      if (y<0 and dooncey="") ;вниз
      {
        dooncey=1
        pressup=-1
        pressdown:=-y*coeffy
        send,{vk68 up}
        send,{vk62 down}
      }
      if (y>0 and dooncey="") ;вверх
      {
        dooncey=1
        pressdown=-1
        pressup:=y*coeffy
        send,{vk68 down}
        send,{vk62 up}
      }

      if (x=0 and dooncex=1)
      {
        pressright:=pressleft:=-1
        dooncex=
        send,{vk64 up}
        send,{vk66 up}
      }
      if (y=0 and dooncey=1)
      {
        pressup:=pressdown:=-1
        dooncey=
        send,{vk68 up}
        send,{vk62 up}
      }
    }
;    else
;      DllCall("Sleep",UInt,7)
  }
  else
    DllCall("Sleep",UInt,7)
}
else
{
  if dooncetab=1
  {
    send,{tab up}
    dooncetab=
    send,{vk62 up}
    send,{vk64 up}
    send,{vk66 up}
    send,{vk68 up}
  }
  sleep,100
}
return

#if dooncetab

WheelUp::
send,{Down down}{Down up}
return

Wheeldown::
send,{up down}{up up}
return

lbutton::
send,{vk58 down}     ; X
return
lbutton up::
send,{vk58 up}
return

;rbutton::
;send,{vk59 down}     ; Y
;return
;rbutton up::
;send,{vk59 up}
;return

mbutton::
send,{vk5a down}     ; Z
return
mbutton up::
send,{vk5a up}
return

#if

^esc::pause  ; пауза

#NoEnv
#SingleInstance,Force
SetTitleMatchMode,2
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,ToolTip
SetKeyDelay,0
SendMode,Input

timer:=0
coeffx=0.5   ; коэффициенты для мыши
coeffy=0.4

;class=Notepad     ; класс окна.
;#ifwinactive,ahk_class Notepad   ; тут тоже.

loop ; ШИМ мышь-клавиши
if getkeystate("RButton")
{
  if dooncetab=
  {
    send,{tab down}
    dooncetab=1
  }
  if pressright>-1
  {
    pressright--
    if pressright=0
    {
      send,{vk66 up}
      dooncex=
    }
  }
  if pressleft>-1
  {
    pressleft--
    if pressleft=0
    {
      send,{vk64 up}
      dooncex=
    }
  }
  if pressdown>-1
  {
    pressdown--
    if pressdown=0
    {
      send,{vk62 up}
      dooncey=
    }
  }
  if pressup>-1
  {
    pressup--
    if pressup=0
    {
      send,{vk68 up}
      dooncey=
    }
  }

  if (timer:=timer>30 ? 0 : timer+1)
  {
;    ifwinactive,ahk_class %class%
    {
      mousemove,a_screenwidth/2,a_screenheight/2,0
      mousegetpos,x1,y1
      sleep,10
      mousegetpos,x2,y2
      x:=x1-x2
      y:=y1-y2
      if (x<0 and dooncex="") ;право
      {
        dooncex=1
        pressleft=-1
        pressright:=-x*coeffx
        send,{vk66 down}
        send,{vk64 up}
      }
      if (x>0 and dooncex="") ;лево
      {
        dooncex=1
        pressright=-1
        pressleft:=x*coeffx
        send,{vk66 up}
        send,{vk64 down}
      }
      if (y<0 and dooncey="") ;вниз
      {
        dooncey=1
        pressup=-1
        pressdown:=-y*coeffy
        send,{vk68 up}
        send,{vk62 down}
      }
      if (y>0 and dooncey="") ;вверх
      {
        dooncey=1
        pressdown=-1
        pressup:=y*coeffy
        send,{vk68 down}
        send,{vk62 up}
      }

      if (x=0 and dooncex=1)
      {
        pressright:=pressleft:=-1
        dooncex=
        send,{vk64 up}
        send,{vk66 up}
      }
      if (y=0 and dooncey=1)
      {
        pressup:=pressdown:=-1
        dooncey=
        send,{vk68 up}
        send,{vk62 up}
      }
    }
;    else
;      DllCall("Sleep",UInt,7)
  }
  else
    DllCall("Sleep",UInt,7)
}
else
{
  if dooncetab=1
  {
    send,{tab up}
    dooncetab=
    send,{vk62 up}
    send,{vk64 up}
    send,{vk66 up}
    send,{vk68 up}
  }
  sleep,100
}
return

#if dooncetab

WheelUp::
send,{Down down}
sleep,50
send,{Down up}
return

Wheeldown::
send,{up down}
sleep,50
send,{up up}
return

lbutton::
send,{vk58 down}     ; X
return
lbutton up::
send,{vk58 up}
return

;rbutton::
;send,{vk59 down}     ; Y
;return
;rbutton up::
;send,{vk59 up}
;return

mbutton::
send,{vk5a down}     ; Z
return
mbutton up::
send,{vk5a up}
return

#if

^esc::pause  ; пауза