Página 1 de 1

[Perl] Funcion movewin()

Publicado: 03 Oct 2015, 00:39
por Doddy
Bueno , con esta funcion podran volver loca a una ventana para que se mueva de formas maleficas.

El codigo :
#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
movewin(id ventana);