Using perl Syntax Highlighting
- use Win32::Clipboard;
- use Win32::GuiTest qw(SendKeys);
- SendKeys("%{PRTSCR}");
- my $a = Win32::Clipboard::GetBitmap();
- open (FOTO,">".$numero.".bmp");
- binmode(FOTO);
- print FOTO $a;
- close FOTO;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El problema es que las imágenes devueltas salen de una 1Mb para arriba, necesito que sean más livianas, he probado cambiando la extensión bmp por otra y sigue el mismo problema también probé renombrando la imagen y aún así sigue siendo una imagen pesada.
¿ Alguien me puede ayudar ?