¿Cuál es la forma más rápida de leer el código fuente de una página web?
Versión 2
. Subrutina lee página web, conjunto de bytes
Parámetros Dirección, texto
. Variable local Objeto, objeto
. Código de variable local, conjunto de bytes
Dirección = seleccionar (llevar el texto a la izquierda (dirección, 7) = "http://", dirección, "http ://"dirección)
objeto. Crear("MSXML2.XMLHTTP",)
Objeto. métodos("open", "get", dirección, false)
Objeto. método("enviar")
código = objeto. ReadProperties("Cuerpo de respuesta",). FetchByteSet ()
Retorno (código)
Código = propiedad Object.Read("ResponseBody",).