VB6: Récupération des meta d'une page HTML avec HTMLDocument
Bonjour !
Ceci est mon premier post alors je tiens à remercier ce site et ses animateurs qui en font une référence et une très bonne source d'infos. Je me sert très souvent de vos cours, tutoriels et faq pour en apprendre plus sur VB6.
Je me suis décidé à m'inscrire sur les forums pour participer à la vie de ce site et vous exposer mes problèmes, remarques et idées (même si je débute mon apprentissage du VB6)
En ce moment je suis en train de créer un soft dont le but est de tester si un site ou une page web est accessible (par l'objet winhttp) et dans le cas où elle l'est, je souhaite récupérer et afficher les informations de la page.
J'ai bien réussi à utiliser winhttp pour tester le statut de la page par contre je n'arrive pas à récupérer toutes les infos que je veux dans cette page par l'objet HTMLDocument.
J'ai fait quelques tests sur cet objet et j'arrive à récupérer le titre (pas dur), les liens de la page (pareil) et l'intégralité de la page. Par contre je n'arrive pas à récupérer les valeurs des attributs des metas de la page.
Par exemple, je souhaiterais récupérer la valeur de l'attribut "content" de la meta description.
Voici le code type du code qu'il faut que j'interprête :
<meta name="description" content="ce site est le plus beau de tous les sites">
Ceci est le début du code pour la partie utilisation de HTMLDocument.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Dim objLink As HTMLLinkElement
Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDocument As MSHTML.HTMLDocument
Set objDocument = objMSHTML.createDocumentFromUrl("http://www.google.fr", vbNullString)
While objDocument.readyState <> "complete"
DoEvents
Wend
Debug.Print objDocument.Title
Debug.Print objDocument.documentElement.outerHTML
Debug.Print objDocument.Title
For Each objLink In objDocument.links
Debug.Print objLink
DoEvents
Next |
Quelqu'un aurait une idée pour que je puisse récupérer la description d'un site ? Evidemment, je pourrais faire un découpage de chaîne mais cela ne sert à rien que je le fasse si HTMLDocument peut m'aider à le faire.
Merci d'avance pour toute remarque ou aide.
