Si, dovrebbe essere possibile... tagliuzzando qua e là l'output della pagina...
Innanzitutto devi sapere come prelevare dell'output da una pagina remota con l'oggetto XMLHTTP:
http://www.aspitalia.com/liste/usag/script.aspx?ID=309fatto quello, avrai nella variabile content, tutto l'html della pagina.
Tu sai che i metatag devono trovarsi tra i tag head, per cui eliminiamo tutto il resto:
'queste sono le posizioni dei tag head all'interno del contenuto
pos1 = Instr(content, "<head>")
pos2 = Instr(content, "</head>")
if pos1 > 0 and pos2 > 0 then
content = Mid(content, pos1+6, pos2-1)
end if
Bene a questo punto, content dovrebbe contenere esattamente quello che si trova tra i tag head. Ora dobbiamo rilvare la presenza dei metatag. Come si fa? boh!
no scherzo... ^__^ ogni metatag inizia con questa sintassi:
<meta
per cui metteremo in un arrai tutte le occorrenze di <meta.
Dim metatags()
contatore = 0
while Instr(content, "<meta") > 0
pos1 = Instr(content, "<meta")
pos2 = Instr(content, ">")
Redim Preserve metatags(contatore)
metatags(contatore) = Mid(content, pos1, pos2)
content = Left(content, pos2+1)
wend
Adesso dovresti aver ottenuto un array di tanti elementi quanti sono i metatag nella pagina. Ogni elemento dell'array conterrà una cosa del genere:
metatags(0) = <meta http-equiv="Content-Language" content="it">
metatags(1) = <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
Adesso dovresti splittare ogni elemento dell'array sullo spazio, in modo che il secondo, terzo elemento contengano cose del tipo:
http-equiv="Content-Language"
Rieffettui un'altro split sull'uguale, elimini le virgolette e finalmente sei arrivato:
riesci a sapere che http-equip = Content-Language
Purtroppo non so esistono altri metodi per andare a "curiosare" sulle pagine di altri siti.
Puoi provare a cercare il metodo che usano i motori di ricerca veri, non so che dire...
