VB encuentra el texto de la página web
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 p>
Salir de la función
Finalizar si
getHTTPPage = BytesToBstr( http.responseBody, "utf-8")
Establecer http = Nada p>
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