Imprimir Página - [Perl] Funcion writeword()

Hola , con esta funcion podran ejecutar word y escribir el texto que quieran, muy util si quieren hacer un virus

Código

#By Doddy H
 
use Win32::Clipboard;
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
 
sub loadword {
 
system("start winword.exe");
 
sleep 4;
 
SendKeys($_[0]); 
 
}

Ejemplo de uso

Código:

loadword("Hola a todos");

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: BigBear en 10 Octubre 2011, 16:52 pm