AutoHotkey Community

#SingleInstance, Force
#NoEnv
SetBatchLines, -1

SetTitleMatchMode, 2
;#include gdip.ahk   ;http://www.autohotkey.com/forum/topic32238.html

wintitle=IrfanView

x=50
y=50
w=300
h=300

If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}

WinGet, hwnd,ID,%wintitle%

pBitmap:=Gdip_BitmapFromHWND(hwnd)
pBitmap_area:=Gdip_CloneBitmapArea(pBitmap, x, y, w, h)

Gdip_SetBitmapToClipboard(pBitmap_area)          ;set image to clipboard
Gdip_SaveBitmapToFile(pBitmap_area, "area.png")  ;saves image to file
 
Gdip_DisposeImage(pBitmap_area)
Gdip_DisposeImage(pBitmap)
Gdip_Shutdown(pToken)
ExitApp

GetNotepad(win)
{
   Global
   SetTitleMatchMode, 2

   x=5
   y=22
   w=20
   h=20

   WinGetTitle, hwndB, ahk_id %win%

   If !pToken := Gdip_Startup()
   {
      MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
      ExitApp
   }

   pBitmap:=Gdip_BitmapFromHWND(hwndB)
   pBitmap_area:=Gdip_CloneBitmapArea(pBitmap, x, y, w, h)

   Gdip_SetBitmapToClipboard(pBitmap_area)          ;set image to clipboard
   Gdip_SaveBitmapToFile(pBitmap_area, "c:\area.png")  ;saves image to file
 
   Gdip_DisposeImage(pBitmap_area)
   Gdip_DisposeImage(pBitmap)
   Gdip_Shutdown(pToken)
}

WinGetTitle, hwndB, ahk_id %win%

#s::SStoClip() ; Executes the Screenshot to clip function



ToolTipOff:
ToolTip
return

; Defines area then takes screenshot and stores it on the clipboard
SStoClip(){
Global OverlayFlag
DefineBox(TLX, TLY, BLX, BLY, BW, BH)
If (OverlayFlag = "Error")
{
   ToolTip, Error: Screencap exited
   SetTimer, ToolTipOff, -3000
   return
}
ScreenPass := TLX "|" TLY "|" BW "|" BH
if (!pToken:=Gdip_Startup()) {
      msgbox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
      ExitApp
   }
MypBitmap := Gdip_BitmapFromScreen(ScreenPass)
Gdip_SetBitmapToClipboard(MypBitmap)
DeleteObject(MypBitmap)
ToolTip, Screenshot stored on clipboard.
SetTimer, ToolTipOff, -3000
return
}

; User defined box and the dimensions
DefineBox(ByRef TopLeftX, ByRef TopLeftY, ByRef BottomRightX, ByRef BottomRightY, ByRef BoxWidth, ByRef BoxHeight) ;This function needs to return the coords of the top left corner x/y  of the square and bottom right corner x/y of the square
{
CoordMode, ToolTip, Screen
CoordMode, Pixel, Screen
CoordMode, Mouse, Screen
WS_EX_LAYERED:=0x00080000 ;positioned here for ease of GDI+ use
WS_EX_NOACTIVATE:=0x08000000
{
    ;generate GUI to cover the active window so you don't play with things in it while you select your box.
   Gui, 2: +LastFound -Caption +AlwaysOnTop
   Gui, 2: Color, White
   Gui, 2: Show, Hide
   WinSet, Transparent, 100
   Gui, 2: Show, NA x0 y0 w%A_ScreenWidth% h%A_ScreenHeight%
   Global OverlayFlag
   OverlayFlag := 1
   
   
   ;Wait for the left mouse button to start the GDI+
   KeyWait, LButton, D
   if (!pToken:=Gdip_Startup()) {
      msgbox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
      ExitApp
   }
;Generate the GDI+
Gui, 3: +LastFound -Caption +AlwaysOnTop +E%WS_EX_LAYERED% +E%WS_EX_NOACTIVATE%
Gui, 3: Show, NA
Width:=A_ScreenWidth
Height:=A_ScreenHeight
   MouseGetPos, MX, MY
   MX := MX-1
   MY := MY-1

Loop {
   MouseGetPos, NewMX, NewMY
   NewMX := NewMX-1
   NewMY := NewMY-1
   XWidth := (NewMX-MX)
   YHeight := (NewMY-MY)

hwnd1 := WinExist()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pPen := Gdip_CreatePen(0x990000ff, 2)
Gdip_DrawRectangle(G, pPen, MX, MY, XWidth, YHeight)
Gdip_DeletePen(pPen)
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
if (GetKeyState("LButton", "P") = 0)
   {
      Break
   }
}
   Gui, 2:Destroy
   Gui, 3:Destroy
   
   If (OverlayFlag != "Error")
   OverlayFlag := 0
   
   TopLeftX:=MX
   TopLeftY:=MY
   BottomRightX:=NewMX
   BottomRightY:=NewMY
   BoxWidth := NewMX-MX
   BoxHeight := NewMY-MY
}
CoordMode, ToolTip, Relative
CoordMode, Pixel, Relative
CoordMode, Mouse, Relative
return
}