Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo utilizar el código VB para extraer todos los enlaces URL en el código fuente de una página web

Cómo utilizar el código VB para extraer todos los enlaces URL en el código fuente de una página web

VB6 Cree un nuevo proyecto y agregue el siguiente código fuente (sin ningún control)

Dim Label() como objeto

Dim clsT() como nueva clase1

Función getHTTPPage(Url)

Dim Http

Establecer Http = CreateObject("MSXML2.XMLHTTP")

Http.Open "GET", Url, False

a = Http.send()

Si Http.readstate <> 4 Entonces

Salir de la función

Finalizar si

getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")

Establecer Http = Nada

Si Err.> 0 Entonces Err.Clear

Fin Función

Función BytesToBstr(body, Cset)

Dim objstream

Establecer objstream = CreateObject(" adodb.stream")

objstream .Type = 1

objstream.Mode = 3

objstream.Open

objstream.Write body

objstream.Mode = 3

objstream.Abrir

objstream.Escribir cuerpo