Cómo leer el código fuente de páginas web en vb para desarrollar contenidos de posicionamiento

Sub privado Form_Load()

URL1 = "/question/151539391.html?push=category"

wstr1 = getHTTPPage(URL1, "GB2312") 'UTF-8 Presta atención a la codificación de la página web

a = InStr(1, wstr1, "El monto de tu compra es: ")

b = InStr(a + 8 , wstr1, " yuanes")

Text1.Text = Trim(Mid(wstr1, a + 8, b - a - 7))

End Sub

Función getHTTPPage( URL, Cset) 'Leer un archivo de la web

Dim http

En caso de error Reanudar siguiente

Establecer http = CreateObject("MSXML2. XMLHTTP")

http.open "GET ", URL, False

http.send

Si Err.Number = -2146697211 Entonces

Si zidong = 1 O zidong = 2 O zidong = 3 Entonces

De lo contrario

MsgBox "La red no funciona, ¡¡¡inténtelo nuevamente después de conectarse !!!"

Finalizar si

Finalizar si

Salir de la función

Finalizar si

Si http.readyState <> 4 Entonces

Salir de la función

Finalizar si

getHTTPPage = BytesToBstr(http.responseBody, Cset)

Establecer http = Nada

Si Err.Number <> 0 Entonces Err.Clear

Función final

Función BytesToBstr(body, Cset) 'Leer archivos de la red

Dim objstream

Set objstream = CreateObject("adodb.Type = 2

Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

Establecer objstream = Nada

Función final