AutoHotkey Community

; Simply moves an window to edge of screen
;     ______________
;    |LU          RU|
;    |              |
;    |              |
;    |LB          RB|
;     `````(``)``````
;        /``````\


Edge(wTitle, Pos="LU")
{
   IfWinExist, %wTitle%
   {
      WinGetPos,,,w,h
      SysGet, WMax, 16
      SysGet, HMax, 17
      SysGet, HB, 31
   If pos = LU
   WinMove, %wTitle%,,0, 0
   Else If pos = LB
   {
      HH := HMax - h + HB
      WinMove, %wTitle%,,0, %HH%
   }
   Else If pos = RU
   {
      WW := WMax - w
      WinMove, %wTitle%,,%WW%, 0
   }
   Else If pos = RB
   {
      WW := WMax - w
      HH := HMax - h + HB
      WinMove, %wTitle%,,%WW%, %HH%
   }
   }
}



;Example:
F9::Edge("Untitled - Notepad")
F10::Edge("Untitled - Notepad", "RU")
F11::Edge("Untitled - Notepad", "LB")
F12::Edge("Untitled - Notepad", "RB")

SetTitleMatchMode, 2
MoveWindow(4, false, "Notepad") ; example

MoveWindow(Quadrant = 1, Center = false, WinTitle = "", WinText = "", ExcludeTitle = "", ExcludeText = "") {
   IfWinNotExist, %WinTitle%, %WinText%, %ExcludeTitle%, %ExcludeText%
      Return
   WinGetPos, , , w, h
   SysGet, m, MonitorWorkArea
   If Center = 1
      mRight := w + (mRight - mLeft) // 2, mBottom := h + (mBottom - mTop) // 2
   q := Quadrant
   If q not in 1,2,3,4
      q = 1
   If q in 2,3
      x = %mLeft%
   Else If q in 1,4
      x := mRight - w
   If q in 1,2
      y = %mTop%
   Else If q in 3,4
      y := mBottom - h
   WinMove, %x%, %y%
}

    #Numpad1::
        MoveWin("LB")
    return

    #Numpad2::
        MoveWin("MB")
    return

    #Numpad3::
        MoveWin("RB")
    return

    #Numpad4::
        MoveWin("LM")
    return

    #Numpad5::
        MoveWin("MM")
    return

    #Numpad6::
        MoveWin("RM")
    return

    #Numpad7::
        MoveWin("LT")
    return

    #Numpad8::
        MoveWin("MT")
    return

    #Numpad9::
        MoveWin("RT")
    return


MoveWin(MoveToPosition)
{
    WinGetActiveTitle, Title
    SysGet, m, MonitorWorkArea
    WinGetPos, , , w, h, A  ; "A" to get the active window's pos.

    if InStr(MoveToPosition, "LB") > 0
    {
        x := 0
        y := mBottom - h
    }

    if InStr(MoveToPosition, "MB") > 0
    {
        x := (mRight / 2) - (w / 2)
        y := mBottom - h
    }

    if InStr(MoveToPosition, "RB") > 0
    {
        x := mRight - w
        y := mBottom - h
    }

    if InStr(MoveToPosition, "LM") > 0
    {
        x := 0
        y := (mBottom / 2) - (h / 2)
    }

    if InStr(MoveToPosition, "MM") > 0
    {
        x := (mRight / 2) - (w / 2)
        y := (mBottom / 2) - (h / 2)
    }

    if InStr(MoveToPosition, "RM") > 0
    {
        x := mRight - w
        y := (mBottom / 2) - (h / 2)
    }

    if InStr(MoveToPosition, "LT") > 0
    {
        x := 0
        y := 0
    }

    if InStr(MoveToPosition, "MT") > 0
    {
        x := (mRight / 2) - (w / 2)
        y := 0
    }

    if InStr(MoveToPosition, "RT") > 0
    {
        x := mRight - w
        y := 0
    }

    WinMove, %Title%,, %x%, %y%
}