[Perl] Funcion crazymouse()

Hola a todos

Si yo de nuevo con esta nueva funcion crazymouse()
, con esta funcion podran volver loco al mouse sin poder controlarlo
todo por un tiempo elegido por ustedes , muy util si estan por
hacer un virus

1 2 3 4 5 6 7 8

#By pr0xXx0r use Win32::GuiTest qw(MouseMoveAbsPix SendMessage); sub crazymouse { for my $number(1..$_[0]) { MouseMoveAbsPix($number,$number); } }

Ejemplo de uso

1	crazymouse("666");