Código fuente de Xinhua

Problemas de codificación Utf-8

Prueba esto conmigo.

Función pública GetBody(ByVal URL$, codificación ByVal opcional$ = "GB2312 ")

Dim ObjXML

Continúe con el siguiente paso si se produce un error

establecer obj XML = CreateObject("Microsoft.XMLHTTP")

Usar ObjXML

. Abra "obtener",url,falso,","

. setRequestHeader "Si-Modificado-Since", "0"

. Enviar

GetBody =. Cuerpo de la respuesta

Termina con...

GetBody = BytesToBstr(GetBody, Coding)

Establecer ObjXML = Nada

Finalizar función

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

Secuencia de destino difusa

set ObjStream = CreateObject("Adodb.Stream")

Usar secuencia de objetos

. Tipo = 1

. modo = 3

. Abrir

. Escribe strBody

. posición = 0

. tipo = 2

. Charset=base de código

BytesToBstr=. Leer el texto

. Cerrar

Terminar con...

Establecer ObjStream = Nada

Finalizar función

Tenga en cuenta que la primera línea de código codifica $ = "GB2312 "Indica que el contenido de la página web obtenido está en formato de codificación GB2312. Si hay caracteres confusos, cambie la codificación a $ = "utf-8".

El valor de retorno es:

a = GetBody(" ")