document.write('');
document.write('
');
document.write('
use strict;
');
document.write('
use Win32::
API;
');
document.write('
use Win32::
Clipboard;
');
document.write('
');
document.write('
my $output_file =
"ss1.bmp";
');
document.write('
');
document.write('
my $key =
new Win32::
API("user32",
"keybd_event",
\'IINP\',
\'V\');
');
document.write('
die "Can\'t import user32.dll: $!\n" if (!
$key);
');
document.write('
');
document.write('
my $clip = Win32::
Clipboard();
');
document.write('
');
document.write('
# Empty the Clipboard');
document.write('
$clip->
Empty();
');
document.write('
');
document.write('
# Press the Prntscrn key!!');
document.write('
$key->
Call(0x2C, 0x45, 0x01,
0);
# Press');
document.write('
$key->
Call(0x2C, 0x45, 0x03,
0);
# & Release');
document.write('
');
document.write('
# Wait for the Image to fill the clipboard');
document.write('
$clip->
WaitForChange();
');
document.write('
');
document.write('
my $image =
$clip->
GetBitmap();
');
document.write('
');
document.write('
open (BITMAP,
"> $output_file");
');
document.write('
binmode BITMAP;
');
document.write('
print BITMAP
$image;
');
document.write('
close(BITMAP
);
');
document.write('
');
document.write('
');