Red de conocimiento informático - Problemas con los teléfonos móviles - VB encuentra el texto de la página web

VB encuentra el texto de la página web

sub diaoyong

url1 = ""

wstr1 = getHTTPPage(url1)

'wstr1 es el código fuente devuelto, y luego puedes usar instr, mid, etc. para encontrarlo Código fuente requerido

end sub

Función getHTTPPage(URL) 'Leer archivos en la red

Dim Dim Dim Dim Dim Dim Dim Dim Dim Atenuar desde Leer archivos de la red

Atenuar http

En caso de error Reanudar siguiente

Establecer http = CreateObject("MSXML2.XMLHTTP")

http. Abra "GET ", URL, False

http.Send

Si Err.Number = -2146697211 Entonces

MsgBox "La red no está disponible, inténtelo de nuevo después de conectarse!"

Salir

Salir de la función

Finalizar si

Si http.readyState lt;gt; 4 Entonces

Salir de la función

Finalizar si

getHTTPPage = BytesToBstr( http.responseBody, "utf-8")

Establecer http = Nada

If Err.Number lt;gt; 0 Then Err.

Función final

Función BytesToBstr(body, Cset)

'Leer archivos desde la red, el parámetro cset debe cambiar según la página web, como GB2312

Dim objstream

Set objstream = CreateObject("adodb.

Set objstream = CreateObject("adodb. stream")

Establecer objstream = CreateObject("adodb.stream").

objstream.Type = 1

objstream. Modo = 3

objstream.Open

objstream.Write body

objstream.Position = 0

Tipo = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

Establecer objstream = Nothing

Función final