AutoHotkey Community

CaptureScreen(0, 1)

; hotkey CTRL+PRINT
^PrintScreen::
   ; aRect >> captures screen/active_win/client_area_of_active_win if 0/1/2
   aRect := 0
   ; bCursor >> captures cursor if True or not if False
   bCursor := True
   ; sFile >> sends image to clipboard if 0, to file if "" or to specified file if a name file is given
   sFile := "C:\Users\Cyrus\Desktop\AHK_Screen.jpg"
   ; nQuality >> sets the JPG (only) quality in a range between 0(min) - 100(max)
   nQuality := 95
   ; starts capture process
   SC_ChecksFile(sFile)
   SC_CaptureScreen(aRect, bCursor, sFile, nQuality)
   ; shows success and return
   TrayTip, ScreenCapture, Screenshot taken as`n%sFile%, 10, 17
   Return

CaptureScreen(aRect = 0, bCursor = False, sFile = "", nQuality = "", znW = 0, znH = 0)

   If   znW && znH
      hBM := Zoomer(hBM, nW, nH, znW, znH)

 Else If znW
  hBM := Zoomer(hBM, nW, nH, znW, znW/nW*nH)
 Else If znH
  hBM := Zoomer(hBM, nW, nH, znH/nH*nW, znH)

CaptureScreen(2,"","test.jpg",90,640,480)

CaptureScreen(2,"","test.jpg",90,640)
or
CaptureScreen(2,"","test.jpg",90,0,480)

CaptureScreen(aRect = 0, bCursor = False, sFile = "", nQuality = "", znW = 0, znH = 0)
{
   If   !aRect
   {
      SysGet, nL, 76
      SysGet, nT, 77
      SysGet, nW, 78
      SysGet, nH, 79
   }
   Else If   aRect = 1
      WinGetPos, nL, nT, nW, nH, A
   Else If   aRect = 2
   {
      WinGet, hWnd, ID, A
      VarSetCapacity(rt, 16, 0)
      DllCall("GetClientRect" , "Uint", hWnd, "Uint", &rt)
      DllCall("ClientToScreen", "Uint", hWnd, "Uint", &rt)
      nL := NumGet(rt, 0, "int")
      nT := NumGet(rt, 4, "int")
      nW := NumGet(rt, 8)
      nH := NumGet(rt,12)
   }
   Else If   aRect = 3
   {
      VarSetCapacity(mi, 40, 0)
      DllCall("GetCursorPos", "int64P", pt)
      DllCall("GetMonitorInfo", "Uint", DllCall("MonitorFromPoint", "int64", pt, "Uint", 2), "Uint", NumPut(40,mi)-4)
      nL := NumGet(mi, 4, "int")
      nT := NumGet(mi, 8, "int")
      nW := NumGet(mi,12, "int") - nL
      nH := NumGet(mi,16, "int") - nT
   }
   Else
   {
      StringSplit, rt, aRect, `,, %A_Space%%A_Tab%
      nL := rt1
      nT := rt2
      nW := rt3 - rt1
      nH := rt4 - rt2
      znW := rt5
      znH := rt6
   }

   mDC := DllCall("CreateCompatibleDC", "Uint", 0)
   hBM := CreateDIBSection(mDC, nW, nH)
   oBM := DllCall("SelectObject", "Uint", mDC, "Uint", hBM)
   hDC := DllCall("GetDC", "Uint", 0)
   DllCall("BitBlt", "Uint", mDC, "int", 0, "int", 0, "int", nW, "int", nH, "Uint", hDC, "int", nL, "int", nT, "Uint", 0x40000000 | 0x00CC0020)
   DllCall("ReleaseDC", "Uint", 0, "Uint", hDC)
   DllCall("SelectObject", "Uint", mDC, "Uint", oBM)
   DllCall("DeleteDC", "Uint", mDC)
   If   znW && znH
      hBM := Zoomer(hBM, nW, nH, znW, znH)
   Else If   znW
      hBM := Zoomer(hBM, nW, nH, znW, znW/nW*nH)
   Else If   znH
      hBM := Zoomer(hBM, nW, nH, znH/nH*nW, znH)
   If   sFile = 0
      SetClipboardData(hBM)
   Else   Convert(hBM, sFile, nQuality), DllCall("DeleteObject", "Uint", hBM)
}

CaptureScreen(x1 "," y1 "," x2 "," y2, false, "myfile.bmp")

...
If   znW && znH
 hBM := Zoomer(hBM, nW, nH, znW, znH)
Else If   (znW)
 hBM := Zoomer(hBM, nW, nH, znW, znW/nW*nH)
Else If   (znH)
 hBM := Zoomer(hBM, nW, nH, znH/nH*nW, znH)
...

If   mW && pBitmap
{
   If Not   mH
      DllCall("gdiplus\GdipGetImageWidth", "Uint", pBitmap, "UintP", nW)
   ,   DllCall("gdiplus\GdipGetImageHeight", "Uint", pBitmap, "UintP", nH)
   ,   mH:=Round(mW*(nW>nH ? nH/nW:1)), mW:=Round(mW*(nW>nH ? 1:nW/nH))
   DllCall("gdiplus\GdipGetImageThumbnail", "Uint", pBitmap, "int", mW, "int", mH, "UintP", pThumb, "Uint", 0, "Uint", 0), DllCall("gdiplus\GdipDisposeImage", "Uint", pBitmap), pBitmap:=pThumb
}

#Include ScreenCapture.ahk

hotkey, LButton, DrawRectangle, Off
hotkey, LButton, On

Done_Drawing:=false
Loop,
{   If Done_Drawing
   Break
Sleep, 250
}

CaptureScreen(aRect,False,0,100) ; Captures the selected zone and place on clipboard

ExitApp

DrawRectangle:

Done_Drawing:=false
CoordMode, Mouse ,Screen
  MouseGetPos, MX, MY
  Gui, 1:Color, C0C0C1  ; Creates a grey colored drag zone
  Gui, 1:+Lastfound
  WinSet, TransColor, C0C0C0 100
  Gui, 1:-Caption +Border
  ;Gui, 1:+Resize
  Loop
    {
      If GetKeyState("LButton", "P")
        {
          MouseGetPos, MXend, MYend
          w := abs(MX - MXend)
          h := abs(MY - MYend)
          If ( MX < MXend )
              X := MX
          Else
              X := MXend
          If ( MY < MYend )
              Y := MY
          Else
              Y := MYend
          Gui, 1:Show, x%X% y%Y% w%w% h%h%
        }       
      Else
          Break
    }
  MouseGetPos, MXend, MYend
  Gui, 1:Destroy
  aRect = %MX%, %MY%, %MXend%, %MYend%
  hotkey, LButton, Off
  Done_Drawing:=true

Return