requete http en vb script

Bonjour à tous,

débutant en vbs j'aimerai récupérer le résultat d'une requête http. (voir ici : http://www.ctqui.com/pro/infoshttp.asp).
Je pense pas que cela soit très compliqué.
J'ai déjà fais ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set ie = CreateObject("InternetExplorer.Application") dim adresse adresse = "http://www.ctqui.com//pro/resultat.asp?................." ie.Navigate (adresse) Do While ie.Busy WScript.Sleep (100) Loop WScript.Sleep (1000) MsgBox ie.document.body.outerhtml ie.Quit Set ie=Nothing

---

J'obtiens la page mais avec les balises.....ce qui n'est pas très beau ....
Moi j'aimerai la récupérer sous la forme comme c'est montrer sur http://www.ctqui.com/pro/infoshttp.asp :
TROUVE;TOUR EIFFEL;CHAMP DE MARS;75007;PARIS;01 44 11 23 33;01 47 05 29 41;Vrai

Voila je vous remercie.

salut,
et ça ?

Code:

---

MsgBox ie.document.body.innerText

---

Merci sa marche

sinon, j'ai trouvé un autre moyen plus rapide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP") urlCert = "http://www.om.net" xmlHttp.Open "GET", urlCert, False xmlHttp.Send "" getHTML = xmlHttp.responseText status = xmlHttp.status xmlHttp.Abort Set xmlHttp = Nothing If status = 200 Then If Len(getHTML) > 0 Then msgbox(getHTML) End If End If

---

C'est beaucoups plus rapide en effet.
.responseText te rend toutefois le code source en html.

Le décortiquer pour en sortir les infos utile est tout un art.
Je démarre toujours comme ça:

Code:

---

1 2	MyHtml = Replace(Replace(MyHtml, VbCrlf, ""), ">", ">" & VbCrlf) l=Split(MyHtlm, VbCrlf)

---

De telle sorte qu'il n'y a qu'une balise par ligne. Le text intéressant se trouvant forcément devant la balise.