Red de conocimiento informático - Aprendizaje de código fuente - Navegador web Easy Language, haga clic en el enlace para descargar directamente cómo implementar

Navegador web Easy Language, haga clic en el enlace para descargar directamente cómo implementar

.Versión 2

.Soporte de biblioteca HtmlView

.Soporte de biblioteca de Internet

.Subroutine_HypertextViewBox1_ComingSkip, lógica

.Extensión de variable local, tipo de texto

Extensión = Convertir a minúsculas (tomar el lado derecho del texto (Explorador de Hipertexto1.Dirección, 4))

Si (extensión = ".rar" o extensión = ". zip "o extensión = ".apk")

Descargar (Navegador de hipertexto 1.Dirección)

Devolver (falso)

. De lo contrario

devuelve (verdadero)

. si final

. Descarga de subrutina

URL de parámetros, tipo de texto

. Conjunto de bytes de variable local, conjunto de bytes

. Nombre de archivo de variable local, tipo de texto

Nombre de archivo = obtener texto a la derecha (URL, obtener longitud del texto (URL) - buscar texto hacia atrás (URL, "/", , verdadero))

Texto de depuración de salida ("DOWN. " URL " -> " nombre de archivo)

Byteset = HTTP Leer archivo (URL)

Escribir archivo ("C:/" nombre de archivo, byteset)