Przejdź do zawartości

AutoIt/Zrzut ekranu

Z Wikibooks, biblioteki wolnych podręczników.

Zrzut ekranu

[edytuj]

Za Wiki:

Zrzut ekranu (z ang. screenshot, screen dump, screen capture) czyli zapis aktualnego obrazu wyświetlanego na monitorze, najczęściej do pliku graficznego.

Zrzuty ekranu stosuje się np. w celu demonstracji oprogramowania lub problemu użytkownika, umieszczenia ich w instrukcji lub w dowolnym innym przypadku, gdy z pewnego powodu zachodzi potrzeba pokazania zarchiwizowanej zawartości ekranu innym.

Bywa również czasem używany, w celu wydrukowania zawartości któregoś z okien, gdy programista nie przewidział możliwości użycia drukarki (a więc np. w celu ominięcia ograniczenia wydruku).

AutoIt posiada zestaw 7 funkcji umożliwiających zrzut całego ekranu, jego fragmentów lub poszczególnych okien. Funkcje te zawarte są w pliku "ScreenCapture.au3", do ich prawidłowego działania niezbędna jest także obecność bibliotek "GDIPlus.au3" i "WinAPI.au3".


_ScreenCapture_Capture

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_Capture([$sFileName = "" [, $iLeft = 0 [, $iTop = 0 [, $iRight = -1 [, $iBottom = -1 [, $fCursor = True]]]]]])

Funkcja zapisuje na dysku (lub w pamięci) plik graficzny ze zrzutem ekranu. Jeżeli nie podamy nazwy pliku to funkcja zwraca uchwyt do utworzonej w pamięci bitmapy (HBITMAP), w przeciwnym razie nie zwraca nic.

Wszystkie parametry są opcjonalne.

$sFileName - nazwa pliku obrazu z pełną ścieżką i rozszerzeniem

$iLeft i $iTop - współrzędna lewego górnego rogu prostokąta zrzucanego obszaru

$iRight i $iBottom - współrzędne prawego dolnego rogu prostokąta zrzucanego obszaru, -1 oznacza max. wymiar bieżącego ekranu

$fCursor - TRUE - obraz łącznie z kursorem, FALSE - obraz bez kursora

UWAGA: Funkcja ustala format zapisu obrazu na podstawie rozszerzenie nazwy pliku. Dostępne są rozszerzenia: BMP, GIF, JPEG, PNG i TIF.

Niestety funkcja nie działa prawidłowo gdy system używa do rysowania okien procesora graficznego (np. Windows 7).

Przykład:

 
#include <ScreenCapture.au3>

;zrzut całego ekranu
_ScreenCapture_Capture("zrzut_1.jpg")

;zrzut fragmentu ekranu
_ScreenCapture_Capture("zrzut_2.jpg", 0, 0, 796, 596)


_ScreenCapture_CaptureWnd

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_CaptureWnd($sFileName, $hWnd [, $iLeft = 0 [, $iTop = 0 [, $iRight = -1 [, $iBottom = -1 [, $fCursor = True]]]]])

Funkcja zapisuje na dysku (lub w pamięci) plik graficzny ze zrzutem okna. Jeżeli podamy nazwy pliku jako "", to funkcja zwraca uchwyt do utworzonej w pamięci bitmapy (HBITMAP), w przeciwnym razie nie zwraca nic.

$sFileName - nazwa pliku obrazu z pełną ścieżką i rozszerzeniem

$hWnd - uchwyt do okna

Pozostałe parametry opcjonalne.

$iLeft i $iTop - współrzędna lewego górnego rogu prostokąta zrzucanego obszaru

$iRight i $iBottom - współrzędne prawego dolnego rogu prostokąta zrzucanego obszaru, -1 oznacza max. wymiar bieżącego ekranu

$fCursor - TRUE - obraz łącznie z kursorem, FALSE - obraz bez kursora

UWAGA:

1. Wszystkie współrzędne względem wybranego okna.

2. Funkcja ustala format zapisu obrazu na podstawie rozszerzenie nazwy pliku. Dostępne są rozszerzenia: BMP, GIF, JPEG, PNG i TIF.

Niestety funkcja nie działa prawidłowo gdy system używa do rysowania okien procesora graficznego (np. Windows 7).


_ScreenCapture_SaveImage

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_SaveImage($sFileName, $hBitmap [, $fFreeBmp = True])

Funkcja zapisuje bitmapę z pamięci na dysk. Zwraca TRUE gdy sukces, lub FALSE gdy wystąpił błąd.

$sFileName - nazwa pliku obrazu z pełną ścieżką i rozszerzeniem

$hBitmap - uchwyt HBITMAP do bitmapy

$fFreeBmp - jeżeli TRUE, to uchwyt zostanie zwolniony po udanym zapisie na dysk

UWAGA: Funkcja ustala format zapisu obrazu na podstawie rozszerzenie nazwy pliku. Dostępne są rozszerzenia: BMP, GIF, JPEG, PNG i TIF.

Przykład:

 
#include <ScreenCapture.au3>

;zrzut ekranu do pamięci
$hBmp = _ScreenCapture_Capture("")

;zapis obrazu na dusku
_ScreenCapture_SaveImage("zrzut_1.jpg", $hBmp)


_ScreenCapture_SetBMPFormat

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_SetBMPFormat($iFormat)

Funkcja ustala format bitmapy dla zrzucanego ekranu. Nie zwraca żadnej wartości.

$iFormat - kod formatu

Bitów na piksel obrazu (bpp):
0 = 16 bpp; 5 bitów dla każdej składowej RGB
1 = 16 bpp, 5 bitów dla czerwonego, 6 bitów dla zielonego i 5 bitów dla niebieskiego
2 = 24 bpp, 8 bitów dla każdej składowej RGB
3 = 32 bpp, 8 bitów dla każdej składowej RGB, bez stopnia przezroczystości 
4 = 32 bpp, 8 bitów dla każdej składowej RGB, ze stopniem przezroczystości (kanał alfa)

Przykład:

 
#include <ScreenCapture.au3>

;ustalenie formatu obrazu 
_ScreenCapture_SetBMPFormat(0)

;zrzut ekranu w ustalonym formacie
_ScreenCapture_Capture("zrzut_1.bmp")


_ScreenCapture_SetJPGQuality

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_SetJPGQuality($iQuality)

Funkcja ustala poziom jakości obrazu dla zrzutów w formacie JPG. Nie zwraca żadnej wartości.

$iQuality - poziom jakości obrazu, 100 - najwyższy (plik największy), 0 - najniższy (plik najmniejszy)

UWAGA: Jeżeli nie użyjemy tej funkcji, to domyślnym poziomem jest 100.

Przykład:

 
#include <ScreenCapture.au3>

;ustalenie poziomu jakości
_ScreenCapture_SetJPGQuality(50)

;zrzut całego ekranu
_ScreenCapture_Capture("zrzut_50.jpg")

_ScreenCapture_SetTIFColorDepth

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_SetTIFColorDepth($iDepth)

Funkcja ustala głębię kolorów dla zrzutów w formacie TIFF. Nie zwraca żadnej wartości.

$iDepth - głębia kolorów, 0 - domyślna enkodera, 24 - 24 bitowa, 32 - 32 bitowa

UWAGA: Jeżeli nie użyjemy tej funkcji, to domyślną głębią będzie 24.


_ScreenCapture_SetTIFCompression

[edytuj]
#include <ScreenCapture.au3>
_ScreenCapture_SetTIFCompression($iCompress)

Funkcja ustala sposób kompresji obrazu dla zrzutów w formacie TIFF. Nie zwraca żadnej wartości.

$iCompress - sposób kompresji, 0 - domyślna enkodera, 1 - bez kompresji, 2 - kompresja LZW

UWAGA: Jeżeli nie użyjemy tej funkcji, to domyślną kompresją jest LZW.

Przykład:

 
#include <ScreenCapture.au3>

;ustalenie głębi kolorów (32 bity)
_ScreenCapture_SetTIFColorDepth(32)

;ustalenie sposobu kompresji (bez kompresji)
_ScreenCapture_SetTIFCompression(1)

;zrzut całego ekranu
_ScreenCapture_Capture("zrzut_50.tif")


Uzupełnienie

[edytuj]

Ponieważ funkcje _ScreenCapture_Capture i _ScreenCapture_CaptureWnd nie działają prawidłowo gdy system używa do rysowania okien procesora graficznego, nie pozostaje nic innego jak użyć innej, zmodyfikowanej funkcji pozbawionej tych wad.

Poniżej przedstawiam zmodyfikowaną przeze mnie funkcję _ScreenCapturePlus, która łączy działanie obu powyższych (plus dodatkowa możliwość zrzucenie tylko przestrzeni roboczej okna).


_ScreenCapturePlus

[edytuj]
#include <GDIPlus.au3>
_ScreenCapturePlus( [$file = "" [, $hWnd = -1 [, $left = -1 [, $top = -1 [, $w = -1 [, $h = -1 [, $Cursor = True [, $frame = 4]]]]]]]])

Funkcja zapisuje na dysku lub zwraca uchwyt do zrzutu ekranu. Można zrzucić cały ekran lub jego fragment, okno, jego fragment lub tylko przestrzeń roboczą. Funkcja do działania wymaga biblioteki GDIPlus.au3.

$file - nazwa pliku do zapisania obrazu, jeżeli podamy "" (wartość domyślna) funkcja zwróci uchwyt do obrazu.

$hWnd - uchwyt do okna, jeżeli podamy -1 to zrzut dotyczy całego ekranu, podanie "" oznacza okno aktywne.

$left i $top - współrzędne lewego górnego narożnika zrzucanego obrazu, dla ekranu są to współrzędne absolutne, dla okna współrzędne względne okna, podanie -1 (wartość domyślna oznacza tyle co 0. Jeżeli dla $left podamy wartość -2, będzie to oznaczało zrzut przestrzeni roboczej okna, dalsze parametry nie mają wtedy znaczenia.

$w i $h - długość i szerokość zrzucanego obszaru, podanie -1 oznacza obszar do końca zrzucanego obiektu (ekranu lub okna)

$Cursor - oznacza czy ma być zrzucony także kursor, domyślna wartość True oznacza, że kursor będzie zrzucony, dla zrzutu przestrzeni roboczej okna kursor nigdy nie jest zrzucany.

$frame - szerokość ramki przy zrzucie okna, domyślna wartość 4 jest odpowiednia przy W7, dla XP ramka wokół okna jest węższa więc lepiej użyć wartości 0.

Przykład użycia i implementacja funkcji:

 
#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

#region tworzenie testowego obrazka
$hGUI = GUICreate("GDI+", 400, 300)
GUISetState()

_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)

;rysowanie elipsy domyślnym pędzlem
_GDIPlus_GraphicsfillEllipse($hGraphic, 160, 100, 150, 100)

$hBrush = _GDIPlus_BrushCreateSolid(0xB0FF0000) ;tworzenie pędzla
_GDIPlus_GraphicsFillEllipse($hGraphic, 210, 30, 120, 250, $hBrush)
Sleep(300) ;chwila na zakończenie tworzenia obrazka

;zwolnienie zasobów
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
#endregion tworzenie testowego obrazka

_ScreenCapturePlus("cały ekran.jpg", -1)
_ScreenCapturePlus("frament ekranu.jpg", -1, 500, 200, 400, -1)
_ScreenCapturePlus("całe okno.jpg", $hGUI)
_ScreenCapturePlus("frament okna.jpg", $hGUI, 50, 50, -1, -1)
_ScreenCapturePlus("obszar roboczy okna.jpg", "", -2)

MsgBox(0,"_ScreenCapturePlus", "Zrzut wykonany", 2)




;implementacja
Func _ScreenCapturePlus($file="", $hWnd=-1, $left=-1, $top=-1, $w=-1, $h=-1, $Cursor=True, $frame=4)
   Local $hDC, $memBmp, $memDC, $hImage, $ar, $aCursor, $hIcon, $aIcon
   Local Const $SRCCOPY = 0x00CC0020

   If $hWnd = "" Then $hWnd = WinGetHandle("[ACTIVE]")
   If $left = -1 Then $left = 0
   If $top = -1 Then $top =0

   Select
      Case $hWnd=-1 And $left >= -1 ;dane do zrzutu całego ekranu
         If $w = -1 Then $w = @DesktopWidth - $left
         If $h = -1 Then $h = @DesktopHeight - $top
         $hWnd = WinGetHandle(Default)
      Case $hWnd <> -1 And $left >= -1 ;dane do zrzut okna
         $ar = WinGetPos($hWnd)
         If $w = -1 Then $w = $ar[2]+2*$frame-$left
         If $h = -1 Then $h = $ar[3]+2*$frame-$top
         $left = $left + $ar[0] - $frame
         $top = $top + $ar[1] - $frame
         $hWnd = WinGetHandle(Default)
      Case $left < -1 ;dane do zrzutu przestrzeni roboczej okne
         $ar = WinGetClientSize($hWnd)
         $w = $ar[0]
         $h = $ar[1]
         $left = 0
         $top = 0
         $cursor = False
   EndSelect
	 
   ;zrzut ekranu lub jego fragmentu
   $hDC = _WinAPI_GetDC($hWnd)
   $memDC = _WinAPI_CreateCompatibleDC($hDC)
   $memBmp = _WinAPI_CreateCompatibleBitmap($hDC, $w, $h)
   _WinAPI_SelectObject($memDC, $memBmp)
   _WinAPI_BitBlt($memDC, 0, 0, $w, $h, $hDC, $left, $top, $SRCCOPY)
   
   If $Cursor Then ;zrzut kursora
      $aCursor = _WinAPI_GetCursorInfo()
      If $aCursor[1] Then
         $aIcon = _WinAPI_GetIconInfo($aCursor[2])
		 ;domalowanie kursora
         _WinAPI_DrawIcon($memDC, $aCursor[3]-$aIcon[2]-$left, $aCursor[4]-$aIcon[3]-$top, $aCursor[2])
      EndIf
   EndIf
  
   _GDIPlus_Startup()
   $hImage = _GDIPlus_BitmapCreateFromHBITMAP($memBmp)
   If $file = "" Then Return $hImage
   _GDIPlus_ImageSaveToFile($hImage, $file)

   ;zwolnienie zasobów
   _GDIPlus_ImageDispose($hImage)
   _WinAPI_ReleaseDC($hWnd, $hDC)
   _WinAPI_DeleteDC($memDC)
   _WinAPI_DeleteObject($memBmp)
   _GDIPlus_Shutdown()
EndFunc


Można też użyć poniższej funkcji wykorzystującej klawisz PrintScreen i schowek systemowy:

_ScreenCapturePS

[edytuj]
#include <GDIPlus.au3>
_ScreenCapturePS($file="", $hWnd=-1, $left=-1, $top=-1, $w=-1, $h=-1, $Cursor=True, $frame=0)

Funkcja działa dokładnie tak jak funkcja _ScreenCapturePlus (opis działania i parametrów jest identyczny).

Przykład użycia i implementacja funkcji:

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

#region tworzenie testowego obrazka
$hGUI = GUICreate("GDI+", 400, 300)
GUISetState()

_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)

;rysowanie elipsy domyślnym pędzlem
_GDIPlus_GraphicsfillEllipse($hGraphic, 160, 100, 150, 100)

$hBrush = _GDIPlus_BrushCreateSolid(0xB0FF0000) ;tworzenie pędzla
_GDIPlus_GraphicsFillEllipse($hGraphic, 210, 30, 120, 250, $hBrush)
Sleep(200) ;chwila na zakończenie tworzenia obrazka

;zwolnienie zasobów
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
#endregion tworzenie testowego obrazka

_ScreenCapturePS("cały ekran.jpg", -1)
_ScreenCapturePS("frament ekranu.jpg", -1, 500, 200, 400, -1)
_ScreenCapturePS("całe okno.jpg", $hGUI)
_ScreenCapturePS("frament okna.jpg", $hGUI, 50, 50, -1, -1)
_ScreenCapturePS("obszar roboczy okna.jpg", "", -2)

MsgBox(0,"_ScreenCapturePS", "Zrzut wykonany", 2)


;implementacja
Func _ScreenCapturePS($file="", $hWnd=-1, $left=-1, $top=-1, $w=-1, $h=-1, $cursor=True, $frame=4)
   Local $hBitmap, $aCursor, $hDC, $mDC, $aIcon, $hBmp, $hImage, $ar, $arc

   If $hWnd = "" Then $hWnd = WinGetHandle("[ACTIVE]")
   If $left = -1 Then $left = 0
   If $top = -1 Then $top =0

   Select
      Case $hWnd=-1 And $left >= -1 ;dane do zrzutu całego ekranu
         If $w = -1 Then $w = @DesktopWidth - $left
         If $h = -1 Then $h = @DesktopHeight - $top
         $hWnd = WinGetHandle(Default)
      Case $hWnd <> -1 And $left >= -1 ;dane do zrzut okna
         $ar = WinGetPos($hWnd)
         If $w = -1 Then $w = $ar[2]+2*$frame-$left
         If $h = -1 Then $h = $ar[3]+2*$frame-$top
         $left = $left + $ar[0] - $frame
         $top = $top + $ar[1] - $frame
         $hWnd = WinGetHandle(Default)
      Case $left < -1 ;dane do zrzutu przestrzeni roboczej okne
         $ar = WinGetPos($hWnd)
         $arc = WinGetClientSize($hWnd)
         $left = $ar[0] + ($ar[2]-$arc[0])/2
         $top = $ar[1] + $ar[3] - $arc[1] - ($ar[2]-$arc[0])/2
         $w = $arc[0]
         $h = $arc[1]
         $cursor = False
   EndSelect

   Send("{PRINTSCREEN}") ;zrzut ekranu do schowka klawiszem PrintScreen
   ;pobranie bitmapy ze schowka
   DllCall("user32.dll", "bool", "OpenClipboard", "hwnd", 0)
   $ar = DllCall("user32.dll", "handle", "GetClipboardData", "uint", 2)
   $hBitmap = $ar[0]
   DllCall("user32.dll", "bool", "CloseClipboard")

   If $cursor Then ;zrzut kursora
      $aCursor = _WinAPI_GetCursorInfo()
      If $aCursor[1] Then ;jeżeli kursor jest widoczny
         $aIcon = _WinAPI_GetIconInfo($aCursor[2])
         $hDC = _WinAPI_GetWindowDC($hWnd)
         $mDC =  _WinAPI_CreateCompatibleDC($hDC)
         _WinAPI_SelectObject($mDC, $hBitmap)
         ;wrysowanie kursora w bitmapę
         _WinAPI_DrawIcon($mDC, $aCursor[3]-$aIcon[2], $aCursor[4]-$aIcon[3], $aCursor[2])
      EndIf
   EndIf

   _GDIPlus_Startup()
   ;tworzenie obiektu bitmap z bitmapy
   $hBmp =_GDIPlus_BitmapCreateFromHBITMAP($hBitmap)

   ;wycięcie obrazu z obiektu bitmap
   $hImage =_GDIPlus_BitmapCloneArea($hBmp, $left, $top, $w, $h)

   If $file="" Then Return $hImage 
   _GDIPlus_ImageSaveToFile($hImage, $file) ;zapis obrazu na dysku

   ;zwolnienie zasobów
   _GDIPlus_ImageDispose($hImage)
   _WinAPI_ReleaseDC($hWnd, $hDC)
   _WinAPI_DeleteDC($mDC)
   _WinAPI_DeleteObject($hBitmap)
   _GDIPlus_Shutdown()
EndFunc