Cómo buscar texto en un navegador de hipertexto usando un lenguaje sencillo

¿Cuadro de navegación de hipertexto? Demasiado simple, esto es difícil de implementar, se recomienda usar webbrowser2.

Por favor, deja tu email y podrás enviar una demostración.

Se ha publicado el siguiente código:

¿Versión? 2

. ¿Biblioteca de soporte? Navegador Web2

. ¿Asamblea? Ensamblaje de Windows 1

.¿Subrutina? _Window1_Created

InternetBrowser1.Browse? ("/",? ,? ,?)

.¿Subrutina?Cambiar _Window1_size

InternetBrowser1.move ?(0 ,? 0,?¿Obtener el ancho del área de usuario? (),?¿Obtener la altura del área de usuario? ())?' La subrutina ?_Navegador de Internet 1_ está lista

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

. Variable local DOM, objeto

. Variables locales: cuerpo, objeto

Variables locales HTML, tipo de texto

Navegador de Internet 1. Obtenga el objeto de documento web (DOM)

. (DOM)

cuerpo?("getElementsByTagName",? "cuerpo"). ¿Método de tipo de objeto? ("item",?0)

HTML?=?body.readTextAttribute?("innerHTML",?)

.¿Si es cierto? (Buscar texto (HTML,? "Hay nueva información",? ,? Falso)?≠?-1)

Cuadro de mensaje ("Nuevo mensaje encontrado", #Icono de mensaje,?)

.Si es cierto, finalice

¿Puedes elegir una respuesta satisfactoria? por favor. .