_WinAPI_MarkScreenRegionAndCapture v0.90 build 2016-09-23
By
UEZ
Here a small function to mark a region on the desktop and capture that region to a bitmap handle or to the clipboard:
#include-once
#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>
#Region Example
;save the captured bitmap to a file
Global $hHBitmap = _WinAPI_MarkScreenRegionAndCapture()
_WinAPI_SaveHBITMAPToFile(@ScriptDir & "\Captured.bmp", $hHBitmap)
_WinAPI_DeleteObject($hHBitmap)
ShellExecute(@ScriptDir & "\Captured.bmp")
;copy captured bitmap to clipboard
Switch _WinAPI_MarkScreenRegionAndCapture(1, True)
Case 1
MsgBox($MB_ICONINFORMATION, "Information", "Marked region was properly captured to clipboard!", 30)
Case 0
MsgBox($MB_ICONERROR, "ERROR", "An error has occured!", 30)
EndSwitch
#EndRegion
; #FUNCTION# ====================================================================================================================
; Name ..........: _WinAPI_MarkScreenRegionAndCapture
; Description ...: Selected area on desktop will be captured and save to clipbord or GDI bitmap handle will be returned.
; Syntax ........: _WinAPI_MarkScreenRegionAndCapture([$iFillMode = 0[, $bClipboard = True]])
; Parameters ....: $iFillMode - [optional] an integer value. Default is 0.
; 0: marked area filled with solid color
; 1: marked area filled with hatch pattern ($HS_DIAGCROSS)
; 2: marked area without any fill pattern / color - only red border
; $bClipboard - [optional] a boolean value. Default is False. If True then no GDI bitmap handle will be returned.
; If false then GDI bitmap handle will be returned.
; Return values .: 0 / 1 / -1 / GDI bitmap handle
; Author ........: UEZ
; Version .......: 0.90 build 2016-09-23
; Modified ......:
; Remarks .......: Do not forget to dispose returned GDI bitmap handle for non clipboard mode using _WinAPI_DeleteObject!
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _WinAPI_MarkScreenRegionAndCapture($iFillMode = 0, $bClipboard = False)
Local $iOld = AutoItSetOption("MouseCoordMode", 1)
Local Const $aFullScreen = WinGetPos(WinGetHandle("[TITLE:Program Manager;CLASS:Progman]")) ;should work also on multi screens
Local Const $iW = $aFullScreen[2], $iH = $aFullScreen[3]
Local Const $hGUI_Screencapture = GUICreate("", $iW, $iH, $aFullScreen[0], $aFullScreen[1], $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_LAYERED))
GUISetState(@SW_SHOW, $hGUI_Screencapture)
Local Const $hDC = _WinAPI_GetDC($hGUI_Screencapture)
Local Const $hGfxDC = _WinAPI_CreateCompatibleDC($hDC)
Local Const $hBitmapGDI = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
Local $hObjOld = _WinAPI_SelectObject($hGfxDC, $hBitmapGDI)
Local $tSize = DllStructCreate($tagSIZE)
$tSize.x = $iW
$tSize.y = $iH
Local $tSource = DllStructCreate($tagPOINT)
Local $tBlend = DllStructCreate($tagBLENDFUNCTION)
$tBlend.Alpha = 0xFF
$tBlend.Format = 1
Local $tDest = DllStructCreate($tagPOINT), $pPoint = DllStructGetPtr($tDest)
$tDest.x = $aFullScreen[0]
$tDest.y = $aFullScreen[1]
Local Const $hPen = _WinAPI_CreatePen($PS_SOLID, 1, 0x0000FF)
Local Const $hPen_Orig = _WinAPI_SelectObject($hGfxDC, $hPen)
Local $hBrush, $iAlpha2, $iFlag
$iFillMode = $iFillMode > 2 ? 2 : $iFillMode < 0 ? 0 : $iFillMode
Switch $iFillMode
Case 0
$hBrush = _WinAPI_CreateBrushIndirect($BS_SOLID, 0x808080)
$iAlpha2 = 0xA0
$iFlag = $ULW_ALPHA
Case 1
$hBrush = _WinAPI_CreateBrushIndirect($BS_HATCHED, 0x808000, $HS_DIAGCROSS)
$iAlpha2 = 0x30
$iFlag = $ULW_ALPHA
Case 2
$hBrush = _WinAPI_CreateBrushIndirect($BS_HOLLOW, 0x000000)
$iAlpha2 = 0xFF ;not needed
$iFlag = $ULW_COLORKEY
EndSwitch
Local $hBrush_Orig = _WinAPI_SelectObject($hGfxDC, $hBrush)
Local $aMPos, $aMPos_old[4], $tRECT = _WinAPI_CreateRect(0, 0, 0, 0)
Do
GUISetCursor(16, 1, $hGUI_Screencapture)
$aMPos = GUIGetCursorInfo($hGUI_Screencapture)
$aMPos_old[0] = $aMPos[0]
$aMPos_old[1] = $aMPos[1]
$aMPos_old[2] = MouseGetPos(0)
$aMPos_old[3] = MouseGetPos(1)
Switch $aMPos[2]
Case 0 ;display crosshair
_WinAPI_BitBlt($hGfxDC, 0, 0, $iW, $iH, $hGfxDC, 0, 0, $CAPTUREBLT)
_WinAPI_DrawLine($hGfxDC, $tDest.x, $aMPos[1], $iW, $aMPos[1])
_WinAPI_DrawLine($hGfxDC, $aMPos[0], $tDest.y, $aMPos[0], $iH)
_WinAPI_UpdateLayeredWindow($hGUI_Screencapture, $hDC, $tDest, $tSize, $hGfxDC, $tSource, 0, $tBlend, $ULW_COLORKEY)
Case 1 ;capture selected region
$tBlend.Alpha = $iAlpha2
While $aMPos[2] ;mark region
GUISetCursor(14, 1, $hGUI_Screencapture) ;WinGetHandle(AutoItWinGetTitle()))
$aMPos = GUIGetCursorInfo($hGUI_Screencapture)
_WinAPI_BitBlt($hGfxDC, 0, 0, $iW, $iH, $hGfxDC, 0, 0, $CAPTUREBLT) ;clear bitmap
;draw rectangle
$tRECT.Left = $aMPos_old[0]
$tRECT.Top = $aMPos_old[1]
$tRECT.Right = $aMPos[0]
$tRECT.Bottom = $aMPos[1]
_WinAPI_Rectangle($hGfxDC, $tRECT)
If $iFillMode <> 2 Then _WinAPI_InvertRect($hGfxDC, $tRECT)
_WinAPI_UpdateLayeredWindow($hGUI_Screencapture, $hDC, $tDest, $tSize, $hGfxDC, $tSource, 0, $tBlend, $iFlag)
Sleep(10)
WEnd
_WinAPI_SelectObject($hGfxDC, $hObjOld)
_WinAPI_ReleaseDC($hGUI_Screencapture, $hDC)
_WinAPI_DeleteDC($hGfxDC)
_WinAPI_DeleteObject($hBitmapGDI)
_WinAPI_SelectObject($hGfxDC, $hPen_Orig)
_WinAPI_DeleteObject($hPen)
_WinAPI_SelectObject($hGfxDC, $hBrush_Orig)
_WinAPI_DeleteObject($hBrush)
GUIDelete($hGUI_Screencapture)
;capture region
$aMPos[0] = MouseGetPos(0)
$aMPos[1] = MouseGetPos(1)
Local Const $hDC_Region = _WinAPI_GetDC(0)
Local Const $hMemDC = _WinAPI_CreateCompatibleDC($hDC_Region)
Local Const $iW_Region = Abs($aMPos[0] - $aMPos_old[2]), $iH_Region = Abs($aMPos[1] - $aMPos_old[3])
Local $hHBitmap_Captured = _WinAPI_CreateCompatibleBitmap($hDC_Region, $iW_Region, $iH_Region)
$hObjOld = _WinAPI_SelectObject($hMemDC, $hHBitmap_Captured)
_WinAPI_BitBlt($hMemDC, 0, 0, $iW_Region, $iH_Region, $hDC_Region, _
$aMPos[0] > $aMPos_old[2] ? $aMPos_old[2] : $aMPos[0], _
$aMPos[1] > $aMPos_old[3] ? $aMPos_old[3] : $aMPos[1], $SRCCOPY)
Local $hHBitmap_Clipboard = _WinAPI_CopyImage($hHBitmap_Captured, 0, 0, 0, BitOR($LR_COPYDELETEORG, $LR_COPYRETURNORG))
_WinAPI_SelectObject($hHBitmap_Captured, $hObjOld)
_WinAPI_DeleteDC($hHBitmap_Captured)
_WinAPI_ReleaseDC(0, $hDC_Region)
AutoItSetOption("MouseCoordMode", $iOld)
If $bClipboard Then
;put captured region to clipboard
If Not _ClipBoard_Open(0) Then
_WinAPI_DeleteObject($hHBitmap_Clipboard)
Return SetError(1, 0, 0)
EndIf
If Not _ClipBoard_Empty() Then
_WinAPI_DeleteObject($hHBitmap_Clipboard)
Return SetError(2, 0, 0)
EndIf
Local Const $hCP = _ClipBoard_SetDataEx($hHBitmap_Clipboard, $CF_BITMAP)
If Not $hCP Or @error Then
_WinAPI_DeleteObject($hHBitmap_Clipboard)
Return SetError(3, 0, 0)
EndIf
_ClipBoard_Close()
_WinAPI_DeleteObject($hHBitmap_Clipboard)
Return 1
Else
Return $hHBitmap_Clipboard
EndIf
EndSwitch
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_WinAPI_SelectObject($hGfxDC, $hObjOld)
_WinAPI_ReleaseDC($hGUI_Screencapture, $hDC)
_WinAPI_DeleteDC($hGfxDC)
_WinAPI_DeleteObject($hBitmapGDI)
_WinAPI_SelectObject($hGfxDC, $hPen_Orig)
_WinAPI_DeleteObject($hPen)
GUIDelete($hGUI_Screencapture)
AutoItSetOption("MouseCoordMode", $iOld)
Return -1
EndSwitch
Until False
EndFunc ;==>_WinAPI_MarkScreenRegionAndCapture
Might be useful...
Download: _WinAPI_MarkScreenRegionAndCapture.au3 (same as above in the code box)
Tested only on Win10 x64 but should work also on other Window versions. If not please reply.
