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

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