Bienvenido a Tecnohackers

Tecnohackers » Programacion » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript.
 » 

[Perl] Funcion writeword()



Autor Tema: [Perl] Funcion writeword()  (Leído 694 veces)

Desconectado Doddy

  • Veterano
  • ***
  • Mensajes: 249
  • Slow Mind
[Perl] Funcion writeword()
« en: Mayo 28, 2011, 03:46:49 am »

Funcion para cargar word y escribir en el

Código: You are not allowed to view links. Register or Login
#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: You are not allowed to view links. Register or Login
loadword("Hola a todos");
You are not allowed to view links. Register or Login

Tags:
Tags:

 


SMF 2.0.19 | SMF © 2016, Simple Machines
Paginas Afiliadas
Twitter - FaceBook - Daraxblog
Designed by Smf Personal