Está hecho para controlar una página web en php-mysql que se basa una simple tabla resumen (cada fila es una incidencia), y en el momento en que aumentan, hay una fila más.
Esta incidencia implica que hay revisarla, y posiblemente ejecutar algún programa, en este caso el
de control remoto como el vnc.
Código: Seleccionar todo
;Basicos
#include <INet.au3>
#include <IE.au3>
$PaginaAControlar = "http://aquivamiruta/tablaarevisarsiAumenta.php"
Local $nSize = StringLen(_INetGetSource($PaginaAControlar))
While 1
If $nSize <> StringLen(_INetGetSource($PaginaAControlar)) Then
TrayTip("Cambio en Incidencias", ($nSize - StringLen(_INetGetSource($PaginaAControlar))), 15)
$zSize = $nSize
$nSize = StringLen(_INetGetSource($PaginaAControlar))
If $zSize < StringLen(_INetGetSource($PaginaAControlar)) Then
$oIE = _IECreate($PaginaAControlar, 0, 0)
$sText = _IEBodyReadText($oIE)
$Ip = StringMid($sText, StringInStr($sText, "DondeEmpiezaLaIp"), 12) ; sale el nombre de red de la máquina en la tabla se guarda en una variab
;;aqui se va limpiando de basura restos de la tabla
$sText = StringReplace($sText, "textoa Quitar de las filas", "")
$sText = StringReplace($sText, "texto a sustituir en las filas", "-" & "HPC")
_IEQuit($oIE)
ClipPut($sText)
;string(@year) se puede usar el año, las filas empiezan como texto marcador de comienzo de fila con 2010-
$UltIncidencias=StringMid($sText, StringInStr($sText, "2010-"), StringInStr($sText, "2010-", 0, 5))
$UltIncidencias="¿Aceptar para abrirla con el Internet Explorer? " & @CR & @CR & StringLeft($UltIncidencias,12) & " " & StringMid($UltIncidencias,15)
If MsgBox(1, "Hay nueva incidencia", StringReplace($UltIncidencias,@YEAR & "-","")) = 1 Then $oIE = _IECreate($PaginaAControlar, 0, 1)
$IPnombre=$IP
$Ip= InputBox("Hay nueva incidencia", "¿Usar el Vnc con "&$Ip & " y su IP "& TCPNameToIP($IP)& @CR & StringMid($sText, StringInStr($sText, "2010-"), StringInStr($sText, "2010-", 0, 1)),TCPNameToIP($IP) )
If $Ip<> "" Then ShellExecute("C:\Archivos de programa\RealVNC\VNC4\vncviewer.exe", $IP)
If WinWaitActive("VNC Viewer : Authen","",5) <> 0 Then
Send("aqui va la contraseña del vnc y se puede enviar INTRO")
Else
MsgBox(0,"Fallo del Vnc", $IPnombre & " y su IP introducida: "& TCPNameToIP($IP) & @CR )
EndIf
EndIf
EndIf
Sleep(4000)
WEnd
_IEQuit($oIE)
E incluso usarlo como ejecutor de programas locales, leyendo las variables de las tablas de html/php, digamos que podemos dejarlo como un piloto automático, cuando esperamos que en internet se añada algo.O también puedes crear una aplicación como el messenger que lea información que se va generando en la web!!
Salu22:)
P.D.:En esta linea habia otro programa para vigilar un tablón de anuncios: http://www.emesn.com/autoitforum/viewto ... 031&p=7671
