[Perl] Funcion movewin

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

1 2 3 4 5 6 7 8

#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

1	movewin(id ventana);