Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: BigBear en 13 Octubre 2011, 17:13 PM

Título: [Perl] Funcion crazymouse()
Publicado por: BigBear en 13 Octubre 2011, 17:13 PM
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
Código (perl) [Seleccionar]


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

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


Ejemplo de uso

Código (perl) [Seleccionar]

crazymouse("666");