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

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

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

Ejemplo de uso

crazymouse("666");


Es perl y si mueve el mouse

Lo vuelve loco al estilo mosca , el 666 es el tiempo que se mantiene activa la funcion.

Saludos