Código fuente de ropa Xinhua
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 flujo 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(" ")