Win32::Capture - Capture screen and manipulate it with Win32::GUI::DIBitmap instance.

NAME

Win32::Capture - Capture screen and manipulate it with Win32::GUI::DIBitmap instance.

SYNOPSIS

  use Win32::Capture;
  $image = CaptureScreen(); # Capture whole screen.
  $image->SaveToFile('screenshot.png');
  # or
  $image = CaptureRect($x, $y, $width, $height); # Capture a portion of window.
  $image->SaveToFile('screenshot.png');
  # or
  @hwnds = FindWindowLike('CPAN');  # Invoke helper function to get HWND array.
  if ($#hwnds<0) {
       print "Not found";
  } else {
        foreach (@hwnds) {
            my $image = CaptureWindowRect($_, 2, 0, 0, 400, 300);
            $image->SaveToFile("$_.jpg", JPEG_QUALITYSUPERB);
        }
  }

DESCRIPTION

The purposes of package are similar to Win32::Screenshot. But you can manipulate screen shot image with Win32::GUI::DIBitmap instance.

Screen capture functions

All of these functions are returning a new Win32::GUI::DIBitmap instance on success or undef (a.k.a undefined variables) on failure. All functions are exported by default.

CaptureRect($x, $y, $width, $height)
Capture a portion of the screen. The [0, 0] coordinate is on the upper-left corner of the screen. The [$x, $y] defines the the upper-left corner of the rectangle to be captured.

CaptureScreen()
Capture whole screen include taskbar.

CaptureWindow($hWND, $dur, $flag)
Capture whole window include title bar and window border, or client window region only.

Set $dur to wait for a while before capturing.

TIPS: Invoke FindWindowLike($text) helper function to find $hWND value.

  $flag = 0 : Entire window will be captured (with border)
  $flag = 1 : Only client window region will be captured.

CaptureWindowRect($hWND, $dur, $x, $y, $width, $height)
Capture a portion of the window.

TIPS: Invoke FindWindowLike($text) helper function to find $hWND value.

Capturing helper function

FindWindowLike($text)
  @hwnds = FindWindowLike('CPAN');
  if ($#hwnds<0) {
       print "Not found";
  } else {
        foreach (@hwnds) {
            my $image = CaptureWindowRect($_, 2, 0, 0, 400, 300);
            $image->SaveToFile("$_.jpg", JPEG_QUALITYSUPERB);
        }
  }

The $text argument stands for a part of window title. FindWindowLike will return an array holds HWND elements.

SEE ALSO

Win32::Screenshot
Some documentation refer from here.

Win32::GUI::DIBitmap
The raw data from the screen will be loaded into Win32::GUI::DIBitmap instance.

See Win32::GUI::DIBitmap for more details.

MSDN
http://msdn.microsoft.com/library

AUTHOR

Lilo Huang

COPYRIGHT AND LICENSE

Copyright 2014 by Lilo Huang All Rights Reserved.

You can use this module under the same terms as Perl itself.

 Win32::Capture - Capture screen and manipulate it with Win32::GUI::DIBitmap instance.