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.
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance pour toute remarque ou aide.
Partager