Autoit.ES

Sres.,
Soy nuevo ocupando esta maravollosa herramienta y de ehcho lo primero que me encomendaron es algo sencillo, generar la revision de paginas web de forma permanente....
Asi:
; --- google ---
$oIE = _IECreate ("http://www.google.com/")
Sleep(5000)
send("!{F4}")
; --- emol ---
$oIE = _IECreate ("http://www.emol.com/")
Sleep(5000)
send("!{F4}")
........ y asi varias mas


Pero lo que necesito realmente es poder generar algun tipo de registro con el historial de conexiones y si en algun momento en alguna de ellas no fue posible conectarse......
Espero me puedan apoyar o dar algun tips para resolver este desafio...muchas gracias.

Hola,
solo tienes que hacer un if sobre el error de _IEcreate()
Aquí los códigos de error de este:
En una sola linea el código sería: pero si quieres determinar el error: Lo puedes añadir al log.
Luego hay una función que te sirve para crear el log desde un string que le envies y un nombre de archivo destino es _FileWriteLog()
Salu22:)

Estimado, muchas gracias por tu respuesta....segui los pasos de acuerdo a tus instrucciones pero la verdad es que no me es posible generar notificaciones sobre el proceso de revision de urls.......l codigo quedo asi, quizas no este correcto.....por favor tus comentarios y gracias nuevamente....

#include <Servicios Pruebas.au3>
;$sum = 0
While 1 ;use infinite loop since ExitLoop will get called
; --- google ---
$oIE = _IECreate ("http://www.google.com/")
Sleep(5000)
send("!{F4}")
; --- sii ---
$oIE = _IECreate ("http://www.sii.cl/")
Sleep(5000)
send("!{F4}")
; --- Notificación ---
; Error=0($_IEStatus_Success) = No Error
; Error=9($_IEStatus_ClientDisconnected) = Client Disconnected
If not
@Error=0 _FileWriteLog ("D:\Aplic\Autoit\logit.txt")
@Error=9 _FileWriteLog ("D:\Aplic\Autoit\logit.txt")

WEnd

clopezp escribió:-

yo crearía un función ya que el @Error tienes que probarlo despues de cada intento de apertura de página y no al final.
Puedes mirar la sintaxis de If then Endif en la ayuda: La función puede ser algo en un Alfa borrador planteada como:

Dim $numpaginas
$numdepaginas=StringSplit("www.quepaginacompruebo.com,otra.com,mas.com")
For $i=1 to $numdepaginas[0]
AbrirPáginayComprobar($numdepaginas[$i])
sleep(60000) ; cada 60 segundos
Next
; funciones
Func AbrirPáginayComprobar($quepaginacompruebo)
$oIE = _IECreate ($quepaginacompruebo)
Sleep(5000)
send("!{F4}")
If not @Error=0 then _FileWriteLog ("D:\Aplic\Autoit\logit.txt") ; Comprueba la sintaxis de _FileWriteLog() ya que los parámetros no son correctos, en la ayuda, le envias $quepaginacompruebo
EndFunc

Si no quieres usar el For Next, puedes usar simplemente una lista de
AbrirPáginayComprobar("cadapagina.com")
AbrirPáginayComprobar("cadapagina.com")
AbrirPáginayComprobar("cadapagina.com")
Salu22:)
Editado General.

Genere una funcion de acuerdo a tus indicaciones, pero tengo una duda con respecto a "AbrirPáginayComprobar" lo cual lo genere con un "_ArrayToString" pero al parecer no es la funcion correcta....
Estoy probando solo para abrir dos paginas, mira:

#include <Servicios Pruebas.au3>
Dim $numpaginas = 2
$numpaginas = StringSplit("http://www.google.com,http://www.sii.cl")
For $i=1 To $numpaginas [2]
_ArrayToString($2[$i])
Sleep(5000)

Next
; funciones
Func _ArrayToString($"http://www.google.com")
$oIE = _IECreate ("http://www.google.com")
Sleep(5000)
send("!{F4}")
if Not @Error=0 then _FileWriteLog (@ScriptDir & "D:\Aplic\Autoit\logit.Log", "pagina ok")
$"http://www.google.com"
EndFunc

; la otra pagina

For $i=1 To $paginas [2]
_ArrayToString($"http://www.sii.cl"[$i])
Sleep(5000)
;send("!{F4}")
Next
; funciones
Func _ArrayToString($"http://www.sii.cl")
$oIE = _IECreate ("http://www.sii.cl")
Sleep(5000)
send("!{F4}")
if Not @Error=0 then _FileWriteLog (@ScriptDir & "D:\Aplic\Autoit\logit.Log", "pagina ok")
$"http://www.sii.cl"
EndFunc

Quedo atento a tus comentarios ... muchas gracias.

Creo que debes repasar
el concepto de función,
el de nomenclatura de variables y tipos de variables,
el de uso de variables locales y globales y/o en funciones, está en la ayuda en español, y en unos minutos lo entenderás facilmente.

Lo del For Next lo puedes usar si son muchas páginas y para que se quede el código más limpio guardando todas las páginas en una variable inicial al principio. Sin usar For Next que es igual que usandolo al final:
Salu22:)