Red de conocimiento informático - Problemas con los teléfonos móviles - El código es confuso después de obtener el código fuente de la página web con vb.

El código es confuso después de obtener el código fuente de la página web con vb.

Problema de codificación utf-8

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("")