elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Funcion screensave()		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Funcion screensave()  (Leído 1,243 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Funcion screensave()
« en: 11 Octubre 2011, 18:11 pm »
Hola a todos.

Con este funcion podran sacar una foto del sistema

Código
  1. #By Doddy H
  2.  
  3. use Win32::Clipboard;
  4. use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
  5.  
  6. capture_window();
  7.  
  8. sub capture_window {
  9.  
  10. SendKeys("%{PRTSCR}"); 
  11.  
  12. my $a = Win32::Clipboard::GetBitmap();
  13.  
  14. open (FOTO,">foto.bmp");
  15. binmode(FOTO);
  16. print FOTO $a;
  17. close FOTO;
  18.  
  19. }

Ejemplo de uso

Código:
capture_window()

Y tendran la foto con el nombre de foto.bmp
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Perl] Funcion writeword()
Scripting 		BigBear 0 1,433 Último mensaje 10 Octubre 2011, 16:52 pm
por BigBear
[Perl] Funcion movewin()
Scripting 		BigBear 0 1,390 Último mensaje 11 Octubre 2011, 18:08 pm
por BigBear
[Perl] Funcion killprocess()
Scripting 		BigBear 0 1,464 Último mensaje 11 Octubre 2011, 18:09 pm
por BigBear
[Perl] Funcion printear()
Scripting 		BigBear 0 1,705 Último mensaje 11 Octubre 2011, 18:10 pm
por BigBear
[Perl] Funcion savefile()
Scripting 		BigBear 0 1,566 Último mensaje 11 Octubre 2011, 18:10 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines