PuTTY

Tile PuTTY windows
^1::
   WinGetPos,,, desk_width, desk_height, Program Manager
   numberOfScreens := 2
   desk_width := desk_width / numberOfScreens
   desk_height := desk_height-30
   maxPuttyWinsX := 3
   maxPuttyWinsY := 3
   puttyWidth := desk_width/maxPuttyWinsX
   puttyHeight := desk_height/maxPuttyWinsY

   SetTitleMatchMode, 2
   IfWinExist, ahk_class PuTTY
   {
       yPos := 0
       xPos := 0
       yCount := 0
       Winget windows, list
       loop, %windows%
       {
           id := windows%A_Index%
           WinGetClass, winclass, ahk_id %id%
           if (InStr(winclass, "PuTTY"))
           {
               Wiinvite, ahk_id %id%
               WM_ENTIZEMOVE=0x0231
               WM_EXITSIZEMOVE=0x0232
               SendMesage, WM_ENTMOVE , 0, 0,, ahk_id %id%
               WinMove, ahk_id %id% , , xPos, yPos, puttyWidth, puttyHeight
               SendMessage, WM_EXITSIZMOVE
               yCount++
               yPos := yPos + puttyHeight
               if (yCount >= maxPuttyWinsY)
               {
                   xPos := xPos + puttyWidth