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

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