VB obtiene el código fuente de la página web
'============================
'Función XmlHttp
'Uso: GetBody(URL,código)
'El código predeterminado es GB2312 Al consultar la página web de BIG5, puede pasar explícitamente big5
. '== ==========================
Función pública GetBody(ByVal URL$, codificación ByVal opcional$ = " GB2312")
Atenuar ObjXML
En caso de error Reanudar siguiente
Establecer ObjXML = CreateObject("Microsoft.XMLHTTP")
Atenuar ObjXML
En Error Reanudar a continuación
Establecer ObjXML = CreateObject("Microsoft.XMLHTTP")
Dim ObjXML
En Error Reanudar a continuación
Establecer ObjXML = CreateObject( "Microsoft.XMLHTTP")SetRequestHeader "If-Modified-Since", "0"
.SEnd
GetBody = .
Finalizar con
GetBody = BytesToBstr(GetBody, Coding)
Establecer ObjXML = Nada
Función final
Función pública BytesToBstr(strBody, CodeBase)
Atenuar ObjStream
Establecer ObjStream = CreateObject("Adodb.
Con ObjStream
.Type = 1
.Modo = 3
.Abrir
.Escribir strBody
.Posición = 0
.Modo = 3
.Abrir
.Escribir strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
Finalizar con
Establecer ObjStream = Nada
Finalizar función
Alternativamente, es común encontrar la URL del sitio web para iniciar sesión o PUBLICAR los datos de inicio de sesión para realizar esta función de inicio de sesión automático.