message d'erreur fonction shell ( )Résolu

Question

salut &#224; 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&#233;e se serait vraiment cool !

PCPT · Accepted Answer

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, "impossible de trouver le serveur") > 0 Then MsgBox "PAGE NON-TROUVéE", vbExclamation, "404" Else MsgBox "c'est ok ;)" End If End Sub Coloration syntaxique automatique [AFCK]

PCPT · Answer

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&#233;rifier la balise titre par exemple.


++


PCPT   [AFCK]

vikingston · Answer

ok je m'en vais tester &#231;a tout de suite 

merci

Quoi qu'il arrive on est tous l'eleve de quelqu'un !

vikingston · Answer

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 !

PCPT · Answer

inet (MSINET.OCX) pas d'interface


ou


WebBrowser (shdocvw.dll) interface puisque browser IE

vikingston · Answer

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 !

vikingston · Answer

Par contre pour savoir si la page a bien ete affich&#233;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 &#231;a.... je bloque

Keep'n'trying  but need some help....

merci

PCPT · Answer

donne moi un lien de page 404 stp

vikingston · Answer

ui bien sur ami developpeur qui m'aide...!

http://www.cerdagne-cerdanya.com/

vikingston · Answer

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, "impossible de trouver le serveur") > 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 !

vikingston · Answer

OKI les amis ça marche!!! merci de m'avoir aidé en fait InStr(1, sSource, "impossible de trouver le serveur") > 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

Renfield · Answer

une facon plus rigoureuse, serait l'examen des headers HTTP recus....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Message d'erreur fonction shell ( )

12 réponses

Discussions similaires