48235203 Libro Autoit

c

6

Aprende a programar con ejemplos prácticos.

uesarrollo de automatismos Carlos Hernández Gómez

2

x AutoIt es un sistema de programación gratuito. Además de automatizar tareas usando combinaciones de teclas simuladas, clic de ratón, comandos de Windows y ficheros Script cuenta con ActiveX, dlls y plugins, como cualquier lenguaje dinámico al estilo PHP. ½ 6 Autoit nos ofrece, de manera muy rápida, un control absoluto de un ordenador, mediante cortas líneas de código podemos automatizar una tarea que nos llevaría horas/días hacerla. Los automatismos son el punto fuerte de Autoit, pero no solo de automatismos vive este lenguaje, con Autoit podremos crear una aplicación que nos grabe un Cu a las 00:00 cada día o una aplicación que nos ingrese dinero en nuestra cuenta de las islas caimán, además podremos crear un sistema de gestión tipo CRM con interface o un videojuego. ue manera muy rápida podríamos nombrar estas características: º u [ u !" è !#$ % & # ' ! ( ) %( )* # % ë ] + & ë (,u

ë ë ë ë ë ë ë ë ë ë

m n resumidas cuentas, Autoit Script es un lenguaje de script creado en C++ por Jonathan Bennett ©1999-2009. ste lenguaje de script nos ayudará a crear aplicaciones que con otros lenguajes nos llevaría mucho tiempo y tendríamos que escribir más líneas de código.


3

{ Lo primero y básico, es descargar Autoit: http://www.autoitscript.com/autoit3/downloads.shtml Autoit lo podremos instalar en las siguientes plataformas de Windows: Windows 2000, XP, 2003, Windows Vista Autoit no depende de librerías externas, una vez terminada la instalación de Autoit podrémos empezar a crear nuestras aplicaciones. l editor de texto predeterminado en Autoit es Scite, será el que usemos en este libro, puesto que nos ofrece una manera rápida de compilación y resaltado detexto en color (Highlight).

½

] Para empezar a crear nuestro primer programa, vamos al escritorio y pulsamos |

Sobre el fichero creado nuevamente | !

(si hiciéramos doble clic en él se ejecutaría la aplicación) después de esto se abrirá el editor Scite.


4

"

Autoit nos genera automáticamente el contenido que vemos en la imagen de arriba cuando creamos un script desde el escritorio. Una manera rápida de personalizar este contenido sería escribiéndolo así:

n la imagen de arriba podemos observar cómo escribir 2 tipos diferentes de comentarios, ya sean de varias líneas o de una única línea.


5

Vamos a dejarnos de rollos y empecemos a programar un poco. n Autoit podemos hacer un ͞hola mundo͟ de varias maneras. scribe en una línea de Scite este código: MsgBox (0,"Hoooray!","Hola mundo " & @CRLF & "Adiós mundo!")

Y pulsa la tecla F5, el resultado tendría que ser algo así:

Para guardar el script que hemos creado pulsa Alt + S. l nombre de este fichero es 1.0.au3 (en la carpeta de ejemplos). Si todo ha ido bien y nuestro PC no ha explotado, ya tendremos creado nuestro primer Script. Con el ejemplo anterior, hemos visto como mostrar un mensaje al usuario final. Pero tenemos que entender cómo lo hemos realizado. La primera parte del código llama a la función MsgBox(): MsgBox (Argumento, "Titulo", "Texto" [, timeout [, hwnd]] ) ; ntre [] parámetros opcionales.

sta función que está descrita mas detalladamente en el documento de funciones de Autoit nos permite devolver un mensaje al usuario, y que opcionalmente este mensaje desaparezca en unos segundos, tiene 3 argumento estáticos y 2 opciones. Si especificáramos el argumento TimeOut tendríamos que hacerlo en milisegundos. ! Cómo ya hemos comentado antes, los tipos de variables no tienen que declararse, una variable puede contener un número de coma flotante o una cadena de texto, sin necesidad de declarar que contendrá esta variable como ocurre con algunos lenguajes (C++ por ejemplo).


6

Un ejemplo de declaración de variables podría ser este: ConsoleWrite(@CRLF) $MiVariable = 0 ConsoleWrite($MiVariable & @CRLF) $MiVariable = "H0o0o0la!" ConsoleWrite($MiVariable & @CRLF) $MiVariable = StringUpper("texto en mayusculas") ConsoleWrite($MiVariable & @CRLF)

Cómo podrás observar, las variables pueden contener números o cadenas, además podemos llamar a funciones dentro de estas variables. Si ejecutáramos el script anterior obtendríamos algo así:

è " # $ % Hemos usado la función Consolewrite para mostrar en la ͞consola de Scite͟ la información. sta función nos será muy útil cuando estemos desarrollando una aplicación y queramos probar cosas en testo o modo debug. ] Llegó la hora de la acción, vamos a realizar una aplicación que haga las siguientes acciones: 1. jecutará el bloc de notas 2. nviará un texto al bloc de notas 3. La aplicación moverá la ventana del bloc de notas aleatoriamente por la pantalla durante 5 iteraciones de un bucle.


7

Código (Fichero: 3.0.au3): ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Partes opcionales ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #NoTrayIcon Opt("WinTitleMatchMode",2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;uefinicion de variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Texto = "ste libro másmola" $TituloBloc = "Bloc de notas" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Inicio de script ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Run("notepad.exe") WinWaitActive($TituloBloc) Send($Texto) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Iteraciones del bucle ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; For $i = 0 to 5 Step + 1 Sleep(1000) $x = Random(0,500) $y = Random(0,500) WinMove($TituloBloc,"",$x,$y) next

Quizás antes de que trabajes con este ejemplo sería interesante que lo ejecutaras para ver cuál es el resultado. xplicación del código: Cuando ponemos esta línea en una aplicación lo que conseguimos es que nuestra aplicación no tenga icono en la bandeja de Windows (La zona del reloj) #NoTrayIcon

La función Opt() También llamada AutoItSetOption cambia la manera de actuar de algunas funciones internas de Autoit, en este caso lo que conseguimos es que la función WinWaitActive() nos busque cualquiera ventana llamada ͞bloc de notas͟, y asi poder trabajar con esa ventana puesto que de no establecer el argumento ͞2͟ en la llamada aOpt() tendríamos que buscar el nombre exacto de la ventana, que en este caso sería ͞Sin Título ʹ Bloc de notas͟ Opt("WinTitleMatchMode",2)


8

n esta parte hemos definido las variables que usaremos en el programa. Por un lado la variable $Texto contiene el texto que enviaremos al Bloc de notas, y la variable $TituloBloc contiene el titulo de la ventana del bloc de notas, en este caso no es el título entero, y es solo una parte. $Texto = "ste libro másmola" $TituloBloc = "Bloc de notas"

La base del automatismo del programa es esta, la función Run() ejecutará una aplicación externa, para aplicaciones de Windows que ya están referenciadas no hace falta indicar una ruta por que al escribir ͞notepad.exe͟ es lo mismo que C:\Windows\Notepad.exe , aunque si quisiéramos si que podríamos usar rutas absolutas. Run("notepad.exe") WinWaitActive($TituloBloc) Send($Texto) La sintaxis de una iteración de un bucle es exactamente igual a la de otros lenguajes de programación, como podría ser PHP. ueclaramos la variable $i con valor 0 y las iteraciones del bucle serán un total de 5, y además la variable $i se incrementará en 1 por cada iteración (Véase el Step +1). Sleep() es una función que nos permitirá pausar la ejecución de un programa tantos milisegundos como queramos o creamos oportuno, en este caso 1 segundo. Las variables $X e $Y contienen la función Random() , esta función generará un número aleatorio en un rango especificado, cómo nuestra intención es que el script mueva la ventana del bloc de notas por la pantalla estableciendo un máximo de 500 sabemos que no nos pasaremos de 500 pixeles, ya que si el numero generado fuera por ejemplo mayor a 2000 no veríamos la ventana puesto que se colocaría en una posición fuera de rango de visión. Finalmente utilizamos la función WinMove() para mover la ventana con el titulo $TituloBloc a las coordenadas $x e $y For $i = 0 to 5 Step + 1 Sleep(1000) $x = Random(0,500) $y = Random(0,500) WinMove($TituloBloc,"",$x,$y) next

Para terminar la estructura del bloque For usaremos la palabra clave Next. Con esto hemos terminado nuestro primer automatismo (Biennn!!!!), ahora sigamos aprendiendo cosas sobre este fantástico lenguaje.


9

6 "# n Autoit y al igual que en otros lenguajes, tenemos la posibilidad de crear/editar/borrar ficheros. l apartado de gestión de ficheros es muy grande, así que vamos a realizar un pequeño script que gestione un fichero. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;includes de script ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #include ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;ueclaracion de variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Archivos_de_programa = _FileListToArray(@ProgramFilesuir) $Fichero_de_salida = FileOpen(@Scriptuir & "\resultados\Test.csv",2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Inicio de script ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; if not $Fichero_de_salida Then MsgBox("","","rror! ._ .") FileWriteLine($Fichero_de_salida,"Programas instalados") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;iteraciones ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; For $x = 1 to $Archivos_de_programa[0] Step + 1 FileWriteLine($Fichero_de_salida,$Archivos_de_programa[$x]) Next FileClose($Fichero_de_salida) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;abrimos el fichero generado ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Shellxecute(@Scriptuir & "\resultados\Test.csv")

Vamos a explicar el código por líneas, empezamos por los includes. #include File.au3 es una librería estándar de Autoit, contiene funciones relativas al control de ficheros, en este caso la única función que usaremos de esta librería será _FileListToArray(). $Archivos_de_programa = _FileListToArray(@ProgramFilesuir) $Fichero_de_salida = FileOpen(@Scriptuir & "\resultados\Test.csv",2) ueclaramos la variable $Archivos_de_programa que contiene la función FileListToArray(), esta función nos guardará en un Array los ficheros/directorios de una ruta indicada.


10

$Fichero_de_salida = FileOpen(@Scriptuir & "\resultados\Test.csv",2)

Creamos la variable $Fichero_de_salida que contiene un recurso que hace referencia a un fichero, la llamada a la función FileOpen nos permite crear este recurso, lo abrimos en con el parámetro ͞2͟ que representa escritura. l macro @Scriptuir devuelve el directorio del Script. if not $Fichero_de_salida Then MsgBox("","","rror! ._ .") FileWriteLine($Fichero_de_salida,"Programas instalados")

s la primera vez que vemos un condicional, (IF condicion Then). Con Autoit si ponemos If Not indicaremos que si no se declara la condición se cumpla una sentencia. Sencillamente hemos hecho que si no se pudiera crear el fichero se mostraría un mensaje en una ventana emergente con el texto ͞rror! ._ .͟ FileWriteLine() escribirá una línea en un fichero (o recurso) con el texto indicado. For $x = 1 to $Archivos_de_programa[0] Step + 1 FileWriteLine($Fichero_de_salida,$Archivos_de_programa[$x]) Next FileClose($Fichero_de_salida)

Para las iteraciones del bucle creamos la variable $x y se repetirá tantas veces cómo $Archivos_de_programa[0] indique. Si leemos la documentación de la función _FileListToArray() veremos que la primera clave de el array contiene el total de elementos del array, por eso usaremos en el bucle For la variable $Archivos_de_programa[0], porque [0] contiene el total de elementos. Finalmente usamos la palabra clave Next para indicar dónde termina el bucle For. Terminamos de trabajar con el fichero cerrando el recurso con FileClose(). Finalmente usamos Shellxecute() para abrir el fichero que hemos creado, un ejemplo del resultado podría ser este:


11

^ ! l término ͞Palabra clave͟ me lo he inventado, realmente estas palabras son un conjunto de pequeñas variables estáticas que te ayudan a la hora de programar, la mejor forma de entenderlo es ver un ejemplo en el que utilizaremos la consola de Scite así que recuerda abrir el script en modo edición y no haciendo 2 clic sobre él (uependiendo de cómo lo tengas configurado $ ). ConsoleWrite(@CRLF) ConsoleWrite("Bienvenido "&@UserName&@CRLF) ConsoleWrite(@MuAY&" - "&@MON&" - "&@YAR&" | "&@HOUR&":"&@MIN&@CRLF) ConsoleWrite("Ruta a archivos de programa: "& @ProgramFilesuir&@CRLF) ConsoleWrite("Nombre de este fichero: "&@ScriptName&@CRLF) ConsoleWrite("IP de red: "&@IPAddress1&@CRLF)

stas palabras clave nos ayudaran mucho a la hora de desarrollar nuestras aplicaciones, tienes una lista completa de estos macros aquí: http://www.autoitscript.com/autoit3/docs/macros.htm x $

%

Puesto que Autoit es un lenguaje de Automatismos, tenemos que tener una idea o un pequeño proyecto en mente que nos permita automatizar una tarea para así poder darnos cuenta de hasta dónde llega el potencial de Autoit. Vamos a poner un ejemplo práctico de automatismo, he pensado en realizar peticiones HTTP a un sistema web y capturar parte de su contenido, sería como robar conseguir el contenido de su base de datos sin acceder a ella. Se me ocurren varios ejemplos de sistemas basados en web a los que poder atacar, y de estos mismos conseguir una buena base de datos de registros. Un ejemplo, una página web de descargas como Softonic.com o Malavida.com, estas webs almacenan registros en sus bases de datos de programas, descripciones, imágenes y cualquier registro necesario para un sistema así. Podríamos en pocas líneas de código crear una aplicación que capturara los siguientes datos: 1. 2. 3. 4.

Nombre del programa Última versión Página web del producto oficial URL de descarga del programa


12

sto en sí no representa un ͞robo͟ de datos, puesto que son datos públicos que fácilmente podríamos conseguir en Google o en buscadores de aplicaciones. Nos meteríamos en un problema si capturáramos la descripción del programa, puesto que esta misma ha sido redactada por una persona que ha generado ese contenido y ese contenido pertenece a la web en sí y no es accesible para ser guardada nosotros. l ejemplo práctico no lo vamos a ver con una web de descargas, vamos a verlo con una web de liricas, páginas que guardan títulos de álbum y descripciones de los artistas. Las tenemos en todos los idiomas y todas guardan el mismo contenido, pienso que hace 10 años a alguien le dio por escribir en un ordenador todas las liricas de los artistas de $ony y de ahí copiaron todas las webs existentes el contenido, lógicamente no hay un mono pasando cada canción y título de un álbum a un sistema MySQl, o quizás sí. Una última cosa a matizar antes de pasar al ejemplo práctico, puede ser que cuando pruebes este código la web haya cambiado de estructura así que voy a explicarlo todo bien claro para que no haya dudas. i Víctima: http://www.azlyrics.com/ i uescripción: Sitio web completo de álbums/liricas.

ues e s s

s e e e

13

s e c e s c e e EF e se e s e s s

e es e e e c es es c e e e e e s ve e es s c e s es s s ev s s y s s eces s c se e s e s e c c e s e c s se s e


14

Vamos al tema, lo primero es crear una conexión con la web, y obtener su HTML. $URL_Base = "http://www.azlyrics.com" $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") que nos permitirá realizar una peticion HTTP $oHTTP.Open("GT",$URL_Base) podríamos utilizar un POST $oHTTP.Send() $HTMLSource = $oHTTP.Responsetext

;URL para obtener la informacion ; Creamos una instancia de un objeto ; Peticion tipo GT, tambien ; Realizamos la peticion ; Obtenemos el HTML

ConsoleWrite($HTMLSource)

Bastante fácil este código, con el objeto Winhttp.Winhttprequest.5.1 ( http://msdn.microsoft.com/en-us/library/aa384106.aspx ) lanzamos una petición a la URL y obtenemos su HTML guardándolo en $HTMLSource, después usamos ConsoleWrite para mostrar la información, el resultado tendría que ser algo así:

Bien ya tenemos el HTML, ahora tenemos que parsearlo, para entender la estructura podemos ver el código fuente de la web, para mí lo más fácil es utilizar Firefox con Firebug y así podremos entender fácilmente como están estructuradas las secciones que es lo primero que queremos obtener. Con Firebug posicionándonos donde se encuentran las categorías señaladas en la imagen de arriba podemos ver esto:


15

A

B

C
͙͙

Si queremos extraer los titulos/direcciones de las secciones podemos coger todo el html que hay entre ͙ y así obtendremos un texto que tendremos que volver a parsear para quedarnos solamente con las direcciones y los títulos de las secciones, tal que así: #include #include $URL_Base = "http://www.azlyrics.com" $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") que nos permitirá realizar una peticion HTTP $oHTTP.Open("GT",$URL_Base) podríamos utilizar un POST $oHTTP.Send() $HTMLSource = $oHTTP.Responsetext

;URL para obtener la informacion ; Creamos una instancia de un objeto ; Peticion tipo GT, tambien ; Realizamos la peticion ; Obtenemos el HTML

$HTML_A_Parsear = _StringBetween($HTMLSource,'',"
") $uirecciones = _StringBetween($HTML_A_Parsear[0],'') _Arrayuisplay($uirecciones) $Secciones = _StringBetween($HTML_A_Parsear[0],'">','


16

n las dos imágenes de arriba vemos el resultado que genera el código. Hemos incluido dos librerías, String.au3 para hacer uso de la función _StringBetween(); y Array.au3 para llamar a la función _Arrayuisplay(); que es la función que genera estas dos imágenes. Sobre el código, creo que queda suficientemente claro el funcionamiento, de la variable $HTML_A_Parsear extraemos las direcciones y títulos de las secciones y lo guardamos en dos variables para más tarde utilizarlas a lo largo del script. Ahora tendremos que ͞navegar͟ a las direcciones que tenemos en los Arrays y crear nuevos Arrays con los nombres de los artistas. Primero un ejemplo sencillo con el código un poco limpio para que sea más claro de utilizar, he creado una función que realice las peticiones HTTP y así no ensuciamos tanto el código:


17

#include #include $URL_Base = "http://www.azlyrics.com"

;URL para obtener la informacion

$HTMLSource = _Http($URL_Base) $HTML_A_Parsear = _StringBetween($HTMLSource,'',"") $uirecciones = _StringBetween($HTML_A_Parsear[0],'') _Arrayuisplay($uirecciones) $Secciones = _StringBetween($HTML_A_Parsear[0],'">','

͙. Hemos creado un bucle contiene tantas iteraciones como sea de grande la dimensión del Array. Y _Http(); devuelve el el html que ahora vamos a parsear en cada iteración.


18

Tenemos que ͞investigar͟ el código HTML de la web para hacernos un buen partner y poder extraer únicamente los nombres de los artistas, hay algún título de artista que tiene un tag HTML de por medio para hacer por ejemplo el texto más grande, así que usaremos una expresión regular (que no es la mejor expresión que podríamos haber utilizado, pero no he sabido hacerla mejor) para eliminar tags innecesarios que solo van a ensuciar el resultado final del listado de artistas. l resultado final del script nos devolverá por cada iteración una ventana de información con los nombres de los artistas. jemplo:


19

l código sería el siguiente: #include #include $URL_Base = "http://www.azlyrics.com"

;URL para obtener la informacion

$HTMLSource = _Http($URL_Base) $HTML_A_Parsear = _StringBetween($HTMLSource,'',"") $uirecciones = _StringBetween($HTML_A_Parsear[0],'') $Secciones = _StringBetween($HTML_A_Parsear[0],'">','

For $x = 0 to UBound($uirecciones) -1 $HTMLSource = _Http($uirecciones[$x]) $Artistas = _StringBetween($HTMLSource,'
','<script type="text/javascript" src="http://images.azlyrics.com/bot_az.js">') $Artistas = _StringBetween($Artistas[0],'.html">','
') ;Limpiamos el Array de tags html que se puedan colar For $i = 0 to UBound($Artistas) -1 $Artistas[$i] = StringRegxpReplace($Artistas[$i], "[]", "") Next _Arrayuisplay($Artistas) Next ;========================================================== ;Funcion HTTP ;========================================================== func _Http($URL_Base) $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("GT",$URL_Base) $oHTTP.Send() ConsoleWrite("Httpeando "&$URL_Base&@CRLF) Return $oHTTP.Responsetext ndFunc ¡Y ya lo tenemos! La lógica del script es bastante sencilla, aunque se podría haber planteado de diferentes maneras esta es completamente funcional.


20

Voy a explicar en pocas líneas la lógica para que se entienda: 1. Incluimos librerías 2. ueclaramos variable de donde extraeremos las secciones 3. Realizamos una petición HTTP y parseamos el HTML de la web para quedarnos solo con las direcciones y títulos de las secciones 4. Hacemos un bucle que itera tantas veces como secciones existan 5. Buscamos los artistas, y limpiamos las cadenas para que solo queden los artistas. 6. ¡¡Have fun!! Ahora cada uno tendría que modificar el script a su gusto, por ejemplo insertar cada dato en una base de datos MySQL

48235203 Libro Autoit

Recommend Documents