Perl [Perl] Funcion crazymouse()

[Doddy]

Hola a todos

Si yo de nuevo , ahora 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.

>
#By Doddy H
use Win32::GuiTest qw(MouseMoveAbsPix SendMessage);

sub crazymouse {
for my $number(1..$_[0]) {
MouseMoveAbsPix($number,$number);
} 
}

Ejemplo de uso

>
crazymouse("666");