Perl [Perl] Funcion writeword()

[Doddy]

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

>
#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");