[Perl] Funcion screensave()

BigBear · Julio 03, 2011, 09:45:05 PM

Hola a todos.

Con este funcion podran sacar una foto del sistema

Código: perl



#By Doddy H

use Win32::Clipboard;
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);

capture_window();

sub capture_window {

SendKeys("%{PRTSCR}"); 

my $a = Win32::Clipboard::GetBitmap();

open (FOTO,">foto.bmp");
binmode(FOTO);
print FOTO $a;
close FOTO;

}

Ejemplo de uso

Código: perl


capture_window()

Y tendran la foto con el nombre de foto.bmp

[Perl] Funcion screensave()

BigBear

Julio 03, 2011, 09:45:05 PM Ultima modificación: Marzo 14, 2015, 10:02:05 AM por Expermicid