Message d'erreur fonction shell ( )

Résolu
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006 - 10 mars 2006 à 11:32
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 10 mars 2006 à 17:27
salut à tous !

je viens de m'inscrire et je voudrais poser une question.
je ne travaille depuis pas longtemps et je surveille des serveurs sur lesquels je fait tourner un programme vb qui m'alerte des qu'il y a un probleme...

un de mes serveur est une boite email et je voudrais faire une petite application qui tourne en continu et qui teste la connexion avec ma boite mail

j'arrive a ouvrir ma boite dans une fenetre avec ce code:

Sub OuvrirInternet()
Dim NomAppli, AdresseHTTP
NomAppli = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
AdresseHTTP = "http://cbv.fr/" 'test sur cet url mais ce n'est pas la boite mail
N = NomAppli + AdresseHTTP
Call Shell(N, 3)
End Sub

mais je ne sais pas comment tester que j'arrive sur une page 404: "impossible d'afficher la page"

voila si quelqu'un avait une idée se serait vraiment cool !

12 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
10 mars 2006 à 16:30
par défaut : 2 boutons et un webbrowser








Option Explicit

'

'

Private Sub Form_Load()

Command1.Caption = "cerdanya"

Command2.Caption = "google"

End Sub

'

'

Private Sub Command1_Click()

WebBrowser1.Navigate2 "http://www.cerdagne-cerdanya.com/"

End Sub

'

Private Sub Command2_Click()

WebBrowser1.Navigate2 "http://www.google.fr"

End Sub

'

'

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

Dim sSource As String

sSource = LCase$(WebBrowser1.Document.documentElement.innerHTML)



If InStr(1, sSource, "<title>impossible de trouver le serveur</title>") > 0 Then

MsgBox "PAGE NON-TROUVéE", vbExclamation, "404"

Else

MsgBox "c'est ok ;)"

End If

End Sub




<small> Coloration
syntaxique automatique [AFCK]</small>
3
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
10 mars 2006 à 12:46
salut,


tu ne peux pas avec un simple shell. shell va bien t'ouvrir la page, donc pas d'erreur.


tu peux par contre aspirer la source de la page (avec winsock,
webbrowser, inet, ou par API) et vérifier la balise titre par exemple.


++


PCPT [AFCK]
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 14:30
ok je m'en vais tester ça tout de suite

merci

Quoi qu'il arrive on est tous l'eleve de quelqu'un !
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 14:43
c'est sur que c'est la bonne maniere de proceder mais quel est le composant a rajouter pour avoir un netbrowser please...???

Quoi qu'il arrive on est tous l'eleve de quelqu'un !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
10 mars 2006 à 15:02
inet (MSINET.OCX) pas d'interface


ou


WebBrowser (shdocvw.dll) interface puisque browser IE
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 15:43
ok merci c'est bon j'ai mon webbrowser ! il affiche ma page web i tout c'est du bon.
avec ce code en rajoutant le composant microsoft internet controls:

Private Sub Form_Load()
WebBrowser1.Navigate ("www.cbv.fr")
End Sub

Quoi qu'il arrive on est tous l'eleve de quelqu'un !
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 15:49
Par contre pour savoir si la page a bien ete affichée ou si on a une page erreur 404 je dois tester la balise titre, tu parle "d'aspirer" la source pour observer la balise title mais pour faire ça.... je bloque

Keep'n'trying but need some help....

merci
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
10 mars 2006 à 16:05
donne moi un lien de page 404 stp
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 16:15
ui bien sur ami developpeur qui m'aide...!

http://www.cerdagne-cerdanya.com/
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 16:51
Cool ça m'avance grave j'etais entrain d'essayer un truc du genre mais bien plus foireux...

Seul petit soucis chez moi:

If InStr(1, sSource, "<title>impossible de trouver le serveur</title>") > 0 Then

que je clique sur l'un ou sur l'autre bouton cette condition n'est jamais verifiée
et j'ai toujours le msg: c'est ok;
je go debug je devrais arriver à trouver ça seul

merci bien !
0
vikingston Messages postés 13 Date d'inscription vendredi 10 mars 2006 Statut Membre Dernière intervention 31 octobre 2006
10 mars 2006 à 17:11
OKI les amis ça marche!!!

merci de m'avoir aidé

en fait InStr(1, sSource, "<title>impossible de trouver le serveur</title>") > 0 Then
ne marchait pas mais comme je veus tester ma messagerie qui a un bgcolor <> white j'ai mis ça:

If InStr(1, sSource, "") > 0 Then

et c'est tout bon
merci
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
10 mars 2006 à 17:27
une facon plus rigoureuse, serait l'examen des headers HTTP recus....

Renfield
Admin CodeS-SourceS - MVP Visual Basic
0
Rejoignez-nous