AutoHotkey Community

; move active window 100 pixels right
#right::
   wingetpos x, y,,, A   ; get coordinates of the active window
   x += 100           ; add 100 to the x coordinate
   winmove, A,,%x%, %y%  ; make the active window use the new coordinates
   return              ; finish

; move active window 100 pixels left
#left::
   wingetpos x, y,,, A
   x -= 100
   winmove, A,,%x%, %y%
   return

; move active window 100 pixels up
#Up::
   wingetpos x, y,,, A
   y -= 100
   winmove, A,,%x%, %y%
   return

; move active window 100 pixels down
#Down::
   wingetpos x, y,,, A
   y += 100
   winmove, A,,%x%, %y%
   return

keyboardMoveWindowIncrement=80

#Right::
   WinGetPos x, y, w, h, A   ; get coordinates of the active window
   x += %keyboardMoveWindowIncrement%
   SysGet screensize, MonitorWorkArea
   screensizeRight -= %w%
   If x > %screensizeRight%
      x= %screensizeRight%
   WinMove, A,,%x%, %y%  ; make the active window use the new coordinates
   return

#Left::
   WinGetPos x, y,,, A
   x -= %keyboardMoveWindowIncrement%
   If x < 0
      x=0
   WinMove, A,,%x%, %y%
   Return

; move active window 100 pixels up
#Up::
   WinGetPos x, y,,, A
   y -= %keyboardMoveWindowIncrement%
   If y < 0
      y=0
   WinMove, A,,%x%, %y%
   Return

; move active window 100 pixels down
#Down::
   WinGetPos x, y,w,h, A
   y += %keyboardMoveWindowIncrement%
   SysGet screensize, MonitorWorkArea
   screensizeBottom -= %h%
   if y > %screensizeBottom%
      y= %screensizeBottom%
   WinMove, A,,%x%, %y%
   Return

; for right
MouseMove, 100,0,,R

; for left
MouseMove, -100,0,,R

; for up
MouseMove, 0, -100, , R

; for down
MouseMove, 0, 100, , R

;2005-09-20 move active window around with Ctrl+Windows+left/right/up/down
;move active window xx pixels right
;replace # (Windows key) with ^# (Ctrl + Windows keys) if you like
#right::
   wingetpos x, y,,, A   ; get coordinates of the active window
   x += 25           ; add this distance to the x coordinate
   mousegetpos, mx, my
   winmove, A,,%x%, %y%  ; make the active window use the new coordinates
   mousemove, %mx%, %my%, 0
   return              ; finish

; move active window xx pixels left
#left::
   wingetpos x, y,,, A
   x -= 25
   mousegetpos, mx, my
   winmove, A,,%x%, %y%
   mousemove, %mx%, %my%, 0
   return

; move active window xx pixels up
#Up::
   wingetpos x, y,,, A
   y -= 25
   mousegetpos, mx, my
   winmove, A,,%x%, %y%
   mousemove, %mx%, %my%, 0
   return

; move active window xx pixels down
#Down::
   wingetpos x, y,,, A
   y += 25
   mousegetpos, mx, my
   winmove, A,,%x%, %y%
   mousemove, %mx%, %my%, 0
   return
;2005-09-20 move active window around with Ctrl+Windows+left/right/up/down