[Perl] Funcion movewin()

BigBear · Julio 03, 2011, 09:44:23 PM

Bueno , con esta funcion podran volver loca a una ventana para
que se mueva de formas maleficas

Código: perl


#By Doddy H
use Win32::API;

sub movewin {
for my $n(1..20) {
Win32::API->new("user32","SetWindowPos",[qw(N N N N N NN)],'N')->Call($_[0],$n,$n,$n,$n,$n,$n);
}
}

Ejemplo de uso

Código: perl


movewin(id ventana);

[Perl] Funcion movewin()

BigBear

Julio 03, 2011, 09:44:23 PM Ultima modificación: Marzo 14, 2015, 10:01:27 AM por Expermicid