El código es confuso después de obtener el código fuente de la página web con vb.
Pruebe esto conmigo
Función pública GetBody(ByVal URL$, codificación ByVal opcional$ = "GB2312")
Dim ObjXML
En caso de error, reanudar a continuación
Establecer ObjXML = CreateObject("Microsoft.XMLHTTP")
Con ObjXML
.Abra "Obtener", URL, Fse.XMLHTTP")
Usando ObjXML
.Abrir "Get", URL, False, "", ""
.setRequestHeader " Si - Modificado-desde", "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
Establecer ObjStream = CreateObject("Adodb.
Usar 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
Tenga en cuenta que Coding$ = "GB2312" en la primera línea de código significa que el contenido de la página web está en formato de codificación GB2312. Si aparecen caracteres confusos, cambie a Coding$ = "utf-8"
El retorno. el valor es:
a = GetBody("")