Discussion :

[Arasen]

Salut a tous!

Tout est presque dit dans le titre! Voila, je dois utiliser un module WinDev pour tester si un site internet existe.

En premier lieu, j'ai utilisé LanceAppli() pour lancer Internet Explorer.

J'ai fait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Test est un booléen
 
Test = LanceAppliAssociée("http://www.developpez.net")
 
SI PAS Test ALORS
	Avertissement("Site non ouvert!")
SINON
	Info("Site ouvert!")
FIN

Mais meme si j'utilise un site completement fictif, comme "http://www.forumdesdeveloppeurenwindevetautres.com", Test est evalué à Vrai!

Je deduis donc que LanceAppli() renvoie vrai si une application est lancé!

Moi, je dois savoir si un site existe ou pas, et s'il existe, mais est desactivé.

Quelqu'un(e) peut m'aider s'il vous plait?

Merci beaucoup!

[Arasen]

Pour la partie de l'existence, j'ai utilisé HTTPRequete(), et ça marche!

Mais pour la partie ou le site existe, mais ce dernier est desactivé,

Quelqu'un(e) a une petite idée?

Merci d'avance!

[zimonn10]

Je ne vois pas comment cela peut-être possible, puisqu'un site désactivé, affiche quand même une page.
Page qui dit que le site est désactivé.
Mais page quand même => HTTPRequete = true

[Arasen]

Si on utilise:

Code :

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

1
2
3
 
 
HTTPDonneRésultat(HTTPEntête))

on peut distinguer que si un site est desactivé, on a une erreur.

La solution serait peut etre de capturer cette erreur si possible; mais comment?

[orditosh]

et pourquoi pas une commande Ping() ?

[klbsjpolp]

Parce que un ping peut échouer même si le serveur est disponible.

[pocketpit]

Et si le serveur est indisponible, le site internet peut bien exister tout de même ?

[Arasen]

Bonjour a tous.
J'ai reussi a trouver une solution de fortune pour le moment!
Vue que mon site est sur WebDev, alors, j'ai pu analyser () l'entete, et en retirer les informations durant l'execution du site. Pendant une erreur de WebDev, un "WebDevError: " est generé, alors...
Si ça peut vous aider en pareil situation, voici mon code:
(ça aurai tellement été mieux avec une solution general, pour tout type de site.

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
 
                               .
                               .
                               .
Lerreur est une chaîne = HTTPDonneRésultat(HTTPEntête)
sSpeciErre est une chaine
 
SI ChaîneOccurrence(Lerreur, "WebDevError:", SansCasse) <> 0 ALORS
	sSpeciErre = ExtraitChaîne(Lerreur, 2, "WebDevError: ")
	DélaiAvantFermeture(1000)
	Avertissement("Erreur " + sSpeciErr + " sur le site!")
FIN
                               .
                               .
                               .

Si vous avez mieux, n'hesitez pas SVP.
Merci beaucoup d'avance!