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