Red de conocimiento informático - Problemas con los teléfonos móviles - VB obtiene el código fuente de la página web

VB obtiene el código fuente de la página web

Solución sin componentes

'============================

'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.