Cómo obtener el hipervínculo del texto de la página web en el cuadro del navegador de hipertexto en el cuadro de edición de Easy Language

Agregue el cuadro de edición de componentes 1, el botón 1 y el cuadro de exploración de hipertexto 1 en Easy Language y luego copie el siguiente código en el área de edición de código.

.¿Versión? Soporte de biblioteca HtmlView

La biblioteca compatible es: internet

. Ensamblaje de Windows

.¿Subrutina? __Iniciar ventana_Creada

Cuadro del navegador de hipertexto 1.dirección?""

La subrutina obtiene el contenido especificado, tipo de texto

. Tipo de texto

. ¿parámetro? Texto a la izquierda, tipo de texto

. ¿parámetro? Texto derecho, tipo de texto

. ¿Variables locales? ¿Ubicación temporal? Entero

.¿Variable local? Longitud del contenido, número entero

. ¿Variable local? Contenido a recuperar, tipo de texto

Longitud del contenido=?¿Obtener longitud del texto? (Contenido completo)

¿Ubicación temporal? ¿Buscas texto? (contenido completo, texto izquierdo, falso)

¿Ubicación temporal? +?¿Obtener longitud del texto? (Texto a la izquierda)

¿Quitar el contenido? ¿Obtener el centro del texto? (contenido completo, ubicación temporal, duración del contenido)

¿Duración del contenido? ¿Obtener la longitud del texto? (Eliminar contenido)

¿Ubicación temporal? ¿Texto encontrado? (Sacar contenido, texto correcto, falso)

¿Ubicación temporal? -? 1

¿Eliminar contenido? ¿Tomar el centro del texto? (Recuperar contenido, 1, posición temporal)

¿Volver? (Recuperar contenido)

Subrutina _Button1_clicked

. ¿Variable local? Tipo de texto

Texto =?(¿Archivo de lectura HTTP?(Cuadro 1 del navegador de hipertexto. Dirección))? Leer HTML de Baidu

.If (¿Buscar texto?(texto, ? "Salir",? ,? Falso)?≠?-1)?'?Si ha iniciado sesión en Baidu, "Cerrar sesión" enlace

Texto=? (texto, "cerrar sesión", "noticias")? La dirección de Baidu News está entre "Salir" y "Noticias"

¿Texto? ¿Obtener contenido específico? (texto, ? "")?' ?El enlace está precedido por "", y en el medio está el enlace de noticias

. De lo contrario

¿Texto? =?¿Obtener el contenido especificado? (Texto, "Haga clic aquí para ingresar a Baidu Space", "Nuevo")' ? Si no ha iniciado sesión en Baidu, "Noticias" estará precedido por "Haga clic aquí para ingresar a ?Baidu Space"

Texto=?Obtener contenido especificado?(texto,? "href="? +? #quotes,? #quotes? + ? ">")? ?Hay más comillas aquí que las comillas anteriores y siguientes

. Si finaliza

Cuadro de edición 1.content = ?Text?' Introduzca la dirección obtenida en el cuadro de edición.