Cómo buscar texto en un cuadro de navegador de hipertexto electrónico

El cuadro del navegador de hipertexto es demasiado simple. Esto es difícil de implementar. Se recomienda utilizar webbrowser2.

Deje su dirección de correo electrónico y se le enviará una versión de demostración.

El siguiente es el código publicado:

.Versión 2

.Biblioteca de soporte WebBrowser2

.Assembly Window Assembly 1

.Crear subrutina _Window1_

InternetBrowser1.Browse ("/", , )

.La subrutina _Window1_Size ha cambiado

InternetBrowser1 .Move(0, 0, Obtener ancho del área de usuario (), Obtener altura del área de usuario ()) 'Deje que el componente del navegador llene completamente la ventana

La subrutina _Navegador de Internet 1_ está lista

. Dirección del parámetro, texto, referencia

Variable local DOM, objeto

Cuerpo de la variable local, objeto

. p>Internet Explorer 1. Obtenga el objeto de documento de red (DOM)

body = DOM."). Método de tipo de objeto ("item", 0)

HTML = body.readText propiedad ("innerHTML", )

.Si es verdadero (buscar texto (HTML, "Hay un mensaje nuevo", , falso) ≠ -1)

infobox ("Mensaje nuevo" encontrado ", #icono de mensaje, )

. Si es verdadero, finalice