28/07/2004, 08:23
|
| | | Fecha de Ingreso: junio-2004
Mensajes: 92
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| Si, con la funcion que he puesto mas abajo lees el contenido de la pagina y lo dejas en una cadena.
Luego tendrias que analizar la cadena con (con instr) extrayendo (con mid) lo que esta entre <TITLE> y </TITLE> para el titulo, y lo que esta en la propiedad content de <META name="Description" content="...">
Function GetHTML(strURL) as string
Dim objXMLHTTP, strReturn, strHTML
Set objXMLHTTP = SErver.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send
strHTML = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
return strHTML
End Function |