Underc0de

Programación Scripting => Perl => Mensaje iniciado por: BigBear en Julio 03, 2011, 09:45:38 PM

Título: [Perl] Funcion writeword()
Publicado por: BigBear en Julio 03, 2011, 09:45:38 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

Código (perl) [Seleccionar]

loadword("Hola a todos");