Underc0de - Hacking y seguridad informática

Programación Scripting => Perl => Mensaje iniciado por: BigBear en Julio 03, 2011, 09:40:04 pm

Título: [Perl] Funcion cambiar_fondo()
Publicado por: BigBear en Julio 03, 2011, 09:40:04 pm
Hola a todos

Acabo de hacer un funcion usando las API de Windows para poder
cambiar el fondo de escritorio con solo poner la ruta de la
imagen

Código: Perl
  1.  
  2. #By Doddy H
  3.  
  4. use Win32::API;
  5.  
  6. sub cambiar_fondo {
  7.  
  8. my $a = new Win32::API("user32","SystemParametersInfo", [L,L,P,L],L);
  9. $a->Call(20,0,$_[0],0);
  10.  
  11. }
  12.  

Ejemplo de uso

Código: Perl
  1. cambiar_fondo("c:/Perl/img.bmp");
  2.