El otro día me tope con un proyecto bastante interesante. SAMIE (Simple Automation Module for Internet Explorer) es un módulo que le da la capacidad a perl de manipular el Internet Explorer.
Por ejemplo, por medio de éste módulo podemos abrir el Internet Explorer entrar a Google.com y realizar una búsqueda de manera automática y sin tener que mover un dedo.
Aparte éste módulo te da la capacidad de recibir respuestas del Internet Explorer, así puedes saber cuando una página se esta descargando, cuando acabo de descargar, si abrió algún popup, etc, etc.
¿Cómo funciona SAMIE?
SAMIE trabaja junto con el módulo Win32::OLE.
El módulo Win32::OLE brinda varias funciones tipo Visual Basic que te permite comunicarte por medio del Sistema de Automatización OLE de Windows con varias aplicaciones de Windows, como el Excel, PowerPoint, Word, etc.
Dentro de estas aplicaciones por supuesto está el Internet Explorer. Aquí es donde entra SAMIE. SAMIE te facilita el trabajo y brinda funciones ya listas haciendo realmente sencilla la comunicación con el Explorer.
Haciendo nuestro robot navegador
En este tutorial les voy a mostrar a usar el SAMIE para crear nuestro propio robot que navega hecho totalmente en perl.
Lo primero que debemos de hacer es descargar e instalar SAMIE.
http://prdownloads.sourceforge.net/samie/samie2.0.zip?download
Lo segundo es que debes de tener el módulo Win32::OLE. Ya lo debes de tener pues viene en la distribución de ActivePerl.
Nuestro pequeño Frankenstein
Iniciemos con la parte divertida. Lo primero que debemos de poner como en cualquier otro script es la ruta de nuestro perl:
#!c:/perl/bin
Recuerda cambiar la ruta de acuerdo a tu perl.
Ahora vamos a cargar los dos módulos que necesitamos:
use Win32::OLE;
use Win32::SAM;
La siguiente línea quizá sea nueva para muchos de ustedes.
$| = 1;
Cuando ésta variable especial tiene un valor diferente a cero perl hace un flush de inmediato cada vez que se hace una escritura a cualquier salida seleccionada.
Usuarios que han visto este tema también han visto...
- Módulos en Perl
- Expresiones Regulares en Perl
- Upload de Archivos con Perl
- Creando thumbnails con Perl
- Algunos trucos para programar en PERL
- Versión imprimible de este documento
- Enviar por e-mail este documentoInformación legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.