Analyser la réponse HTTP avant de se connecter au site

Salut,
J'aimerais analyser la réponse HTTP à la requête GET avant de lancer la page.

L'url sera lancée avec InternetExplorer juste dans le cas ou le statut de l'url est égal à 200 (càd: "La requête a été accomplie correctement").

J'ai utilisé le script ci-dessous avec l'url "www.developpez.net" et j'ai obtenu "statut = 400" (càd: La syntaxe de la requête est mal formulée ou est impossible à satisfaire).

Code:

---

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

url=" http://www.developpez.net " status = GetUrlStatus(url) wscript.echo url & status   Function GetUrlStatus(argUrl) with createobject("msxml2.xmlhttp") .open "GET", argUrl, false on error resume next .send if err then GetUrlStatus = 9999 'to indicate server not found... else GetUrlStatus = .status end if end with End Function

---

J'obtiens cette erreur quelque-soi la valeur de la variable "url". Est-ce la syntaxe qui est fausse, ou autre?

j'ai bien 200 comme retour le seul problème que j'ai eu avec ton code c'est 2 espaces en trop ici :

Code:

---

url=" http://www.developpez.net "

---

Code:

---

url=" http://www.developpez.net "

---

Réponse: 400 (espaces au début et à la fin)

Code:

---

url=" http://www.developpez.net"

---

Réponse: 9000 (espace au début)

Code:

---

url="http://www.developpez.net "

---

Réponse: 400 (espace à la fin)

Code:

---

url="http://www.developpez.net"

---

Réponse: 9999 (sans espaces)

salut

Citation:

---

Envoyé par bbil

j'ai bien 200 comme retour le seul problème que j'ai eu avec ton code c'est 2 espaces en trop ici :

Code:

---

url=" http://www.developpez.net "

---

---

+1

J'ai enlevé les espaces

Code:

---

url="http://www.developpez.net"

---

puis j'ai enlevé l'exception

Code:

---

on error resume next

---

Et j'ai relancé mon script, j'ai obtenu le message d'erreur ci-joint.

pour information, ligne 9:

Code:

---

.send

---