Hermano mayor, ¡usé la misma dirección de conexión! ¡Obtener el código fuente en el navegador es correcto! Utilice la función para obtener el código fuente (url) Utilice vB para obtener el código fuente de la página web

Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312") 'Nota, si para obtener la página web UTF-8, cámbiela a "UTF-8"

Dim ObjXML

En caso de error, reanudar siguiente

Set ObjXML = CreateObject("Microsoft .XMLHTTP" )

Usando ObjXML

.Abrir "Get", URL, False, "" , ""

.setRequestHeader "If-Modified-Since ", " 0"

.Enviar

GetBody = .responseBody

Terminar con

GetBody = BytesToBstr (GetBody, Codificación)

Establecer ObjXML = Nada

Función final

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

Dim ObjStream

Establezca ObjStream = CreateObject("Adodb.Stream")

con ObjStream

.Type = 1

.Mode = 3

. Abrir

.Escribir strBody

.Position = 0

.Type = 2

.Charset = CodeBase

BytesToBstr = .ReadText

.Close

Finalizar con

Establecer ObjStream = Nada

Finalizar función

Uso.Paint = 1

: Variable = GetBody("/" )