Test Foro de elhacker.net SMF 2.1

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

Título: [Perl] Funcion writeword()
Publicado por: BigBear en 10 Octubre 2011, 16:52 PM
Hola , con esta funcion podran ejecutar word y escribir el texto que quieran, muy util si quieren hacer un virus

Código (perl) [Seleccionar]
#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


loadword("Hola a todos");