[Perl] Funcion writeword()
Publicado: 05 Oct 2015, 23:33
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]);
}loadword("Hola a todos");