vb6 utiliza el método xmlhttp para obtener el código fuente del sitio web -2147024891 (80070005) error

Este no es perfecto, agregaré uno perfecto y también tendré una configuración de tiempo de espera, para que los datos puedan aparecer atenuados y esperar sin un tiempo de espera demasiado rápido. SetTimeouts 10000, 10000, 10000, 30000

XmlHttp.send

Atenuar waitTimeOut, secondNumber

waitTimeOut = 0

segundoNumber = 30 ' Cuántos segundos faltan para el tiempo de espera

Do

DoEvents

esperar 10

waitTimeOut = waitTimeOut + 1

Bucle hasta ( XmlHttp.ReadyState = 4 O waitTimeOut >= 100 * secondNumber)

Si XmlHttp.ReadyState = 4 Entonces

getHtmlStr = XmlHttp.Responsebody

Bucle hasta (XmlHttp.Responsebody

lianjie = True

Establecer XmlHttp = Nada

Función de salida

Finalizar si

ErrorHandler:

lianjie = False

Establecer XmlHttp = Nada

Finalizar función

Lo anterior es la función Texto = "Error de captura. "

Finalizar si

' Función pública BytesToBstr(strBody, CodeBase)

' En caso de error Reanudar siguiente

' Dim ObjStream

' Set ObjStream = CreateObject("Adodb.Stream")

' With ObjStream

' .Type = 1

' .Mode = 3

' .open

' .Write strBody

' .Position = 0

' .Type = 2

' .charset = CodeBase

' BytesToBstr = .ReadText

' .Close

' Terminar con

' Establecer ObjStream = Nada

'Función final'