[Perl] Funcion writeword()

BigBear · 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


#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


loadword("Hola a todos");

[Perl] Funcion writeword()

BigBear

Julio 03, 2011, 09:45:38 PM Ultima modificación: Marzo 14, 2015, 10:02:56 AM por Expermicid