Realizar operaciones VB basadas en el código fuente de la página web
Debe actualizar constantemente la página web para obtener el estado más reciente. Puede obtener un temporizador y actualizarlo de vez en cuando, por ejemplo 10 segundos (no demasiado corto). El tiempo que tarda WebBrowser en descargar la página web también. en cuenta la velocidad de la red, etc.), luego agregue un fragmento de código similar al siguiente al WebBrowser para lograr esto:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)<. /p>
En caso de error, reanudar siguiente
Dim strTdNums As Long, strText As String<
'Obtener el número de celdas de la página
' strTdNums = WebBrowser1.Document.getElementsByTyTag = WebBrowser1.Document .getElementsByTag = WebBrowser1.Document.getElementsByTag = WebBrowser1.Document.getElementsByTag
strText = WebBrowser1.Document.getElementsByTagName("td")( 2).TextoInterior
Seleccione Case strText p>
Caso "no disponible", "sin señal", "alarma"
'Llame a API para reproducir archivos de audio, cámbielo usted mismo.
sndPlaySound "C:\error.wav",1
Caso más
' /////////////// ////////
Finalizar selección
Finalizar sub