VB6: Récupération des meta d'une page HTML avec HTMLDocument

**Matounet** · 23/09/2005, 18h25

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 :

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

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.

**DarkVader** · 23/09/2005, 20h06

Essaies avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim HeadDoc As Object, metaList As Object, mElem As HTMLMetaElement
    Set HeadDoc = objDocument.all.tags("head")(0)
    Set metaList = HeadDoc.getElementsByTagName("meta")
    If metaList.Length > 0 Then
        For x = 0 To metaList.Length - 1
            Set mElem = metaList(x)
            Debug.Print x, mElem.content, mElem.httpEquiv
        Next
    End If

**Matounet** · 24/09/2005, 13h03

Merci d'avoir répondu aussi rapidement. J'ai fait des tests et j'arrive bien à récupérer descriptions et mots-clés en faisant un test sur mElem.name.

Maintenant je vais tester l'attribut lang de la meta name="description" (et pareil pour keywords) histoire de récupérer les metas françaises.

Merci beaucoup !

**megamario** · 19/09/2011, 13h30

Bonjour, ce post est un peut ancien mais je pense que mon souci est un peut le même.

Je doit récupérer des information contenu dans une page html.

Actuellement j'ai fait mes essaies avec WebBrowser, sachant que la page web sera cachée, mon but est uniquement de récupérer les données et les afficher.
En tombant sur ce post je me qu'il y a peut être moyen de faire quand même plus propre qu'une découpe de chaîne à la recherche de mes données.

Voici ma page Html:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
<html>
<head>
    <meta http-equiv="content-type" content="text/html; charset=utf-8">
    <link rel="stylesheet" href="/style.css" type="text/css" />
</head>
<body>
<div class="content" id="overviewPage">
<h4 class="noUnderline">012402G291      </h4>
<br>
<table>
    <tbody>
    <tr>
        <th class="parName">État de l'onduleur:&nbsp;</th>
        <td class="parValue"><img src="/images/yellow_button.gif" width="20" height="20"></td>
    </tr>
    <tr>
        <th class="parName">Production actuelle:&nbsp;</th>
        <td class="parValue">0 W </td>
        <td  colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <th class="parName">Production du jour:&nbsp;</th>
        <td class="parValue">0 Wh </td>
        <td  colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <td colspan="4">&nbsp;</td>
    </tr>
    <tr>
        <th class="parName">Revenu total:&nbsp;</th>
        <td class="parValue">
            -
        </td>
        <td  colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <th class="parName">Economies totales de CO2:&nbsp;</th>
        <td class="parValue">0.0 kg</td>
        <td  colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <th class="parName">Rapport de performance:&nbsp;</th>
        <td class="parValue">
        -
        </td>
        <td  colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <th class="parName">Production totale:&nbsp;</th>
        <td class="parValue">0.0 Wh</td>
        <td  colspan="2">&nbsp;</td>
    </tr> 
    <tr>
        <th class="parName">&nbsp;</th>
        <td class="parValue"></td>
        <td colspan="2">&nbsp;</td>
    </tr>
    <tr>
    	<th class="parName">Réglage du niveau de puissance:&nbsp;</th>
		<td class="parValue">100.0 %</td>
	</tr>
</tbody></table>
</div>
</body></html>

Il faut par exemple que je récupère "Production actuelle" et donc la valeur associée est ici de "0 W"
Idem pour "Production du jour" qui est de "0 Wh" dans l'exemple et pour "Economies totales de CO2" C'est mes 3 valeurs que j'ai besoin.

Pour le code émis plus haut j'ai ajouté winhttp dans VB6 mais il doit me manquer autre chose car il ne reconnait pas les fonctions.

Actuellement pour accéder à ma page web qui contient les info, je me logue par:
h t t p ://MonIp/cgi-bin/handle_login.tcl?user=admin&pw=admin

J'arrive sur une page m'affichant ce que j'ai besoin mais contenu dans un cadre.
Pour accéder au cadre je doit récupérer le numéro de connexion sid contenue dans l'adresse de la page ouverte.
Puis je navigue vers
h t t p://MonIp/cgi-bin/overview.tcl?sid=monnumerosid

ce qui me donne la page html ci dessus.

merci de votre aide

**DarkVader** · 19/09/2011, 19h30

Bonjour,
Aucun tag (ou presque) ne dispose d'ID pour être identifié donc
soit tu utilises HTMLTable(0) avec les références à la cellule concernée
soit tu la parcoures pour identifier le TH correspondant
mais dans tous les cas, si la source est modifiée ...

**megamario** · 21/09/2011, 07h28

Merci,

Par contre est t'il possible d'appeler les pages sans passer par un WebBrowser, car je n'est pas besoin de visualisation. Je veux juste les variables.

**DarkVader** · 21/09/2011, 09h41

Oui, bien sur, c'est même beaucoup plus rapide.
1/ tu télécharges le fichier avec les apis (ça ne manque pas)
2/ tu affectes le contenu dans DOM
set htmldocument.innerhtml=....

**megamario** · 21/09/2011, 13h32

Et-il possible de me guider un peut, si c'est possible.

**DarkVader** · 21/09/2011, 19h03

Pour télécharger le fichier voir
AllApi>Internet : y a le choix
sinon avec winhttp

Invité · 22/09/2011, 05h46

Bonjour

Je te conseille la lecture de ce tuto :

VBA et développement Web - tour d'horizon du développement Web en VBA, par Arkham46

Bien qu'il soit fait pour du VBA tu devrais y trouver des choses à adapter.

Philippe

**megamario** · 22/09/2011, 07h55

Merci, c'est sympa.

Bonne continuation

VB6: Récupération des meta d'une page HTML avec HTMLDocument

VB 6 et antérieur

Discussions similaires

Partager

Partager