[Perl] Funcion screensave

Hola a todos.

Con este funcion podran sacar una foto del sistema

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#By pr0xXx0r 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

1	capture_window()