[Perl] Funcion writeword()

[BigBear]

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

Código (perl) [Seleccionar] Expandir

#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 [Seleccionar] Expandir


loadword("Hola a todos");