lilo > Win32-Capture-1.6 > Win32::Capture

Download:
Win32-Capture-1.6.zip

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 1.6   Source  

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.

syntax highlighting: