Discussion :

[M E H D I]

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 :

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
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?

[SfJ5Rpw8]

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 :

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

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

[M E H D I]

Code :

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

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

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

Code :

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

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

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

Code :

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

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

Réponse: 400 (espace à la fin)

Code :

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

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

Réponse: 9999 (sans espaces)

[I'm_HERE]

salut

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 :

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

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

+1

[M E H D I]

J'ai enlevé les espaces

Code :

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

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

puis j'ai enlevé l'exception

Code :

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

on error resume next

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

pour information, ligne 9:

Code :

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

.send