Discussion :

[bailamos]

salut tousle monde,
est ce que il ya un moyen pour detecter l'erreur 405 ou 404 ou autre qui enpeche la page de s'afficher corrrectement.

merci d'avance

[Vld44]

Salut,

Les codes de retour 404, 200 ... sont des entêtes HTML envoyées par le serveur et interprétées par le navigateur, avec éventuellement une couche intermédiaire (htaccess ...)

J'ignore royalement comment faire (d'autant plus que tu n'en dis pas long sur ton environnement), mais te voilà orienté.

[DarkVader]

Cela dépend avant tout de l'objet utilisé et il n'en manque pas.

En supposant qu'il s'agisse de l'utilisation d'un webbrowser(IE)
tu as la méthode navigateerror récemment implémentée depuis la version 6.0 d'IE
mais qui est malheureusement mal documentée.

ex.

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
17
18
Private Sub Command1_Click(Index As Integer)
    Dim url As String
 
    Select Case Index
        Case 0: url = "http://msdn2.microsoft.com/fr-fr/library/ms234651(vs.80).aspx"
        Case 1: url = "http://mdn2.micrsoft.com/fr-fr/default.aspx"
    End Select
    Me.WebBrowser1.Navigate url
End Sub
 
Private Sub Form_Load()
    Me.Command1(0).Caption = "Sans erreur"
    Me.Command1(1).Caption = "Avec erreur"
End Sub
Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, url As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
    Cancel = True
    Debug.Print StatusCode
End Sub

[bailamos]

merci DarkVader

Code :

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

1
2
3
Private Sub WebBrowser3_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
Cancel = True
End Sub

[Vld44]

c'est marrant que ce soit considéré comme une erreur -.- en hardcoded comme ça ... c'est un code d'entête qui a une signification, pas vraiment une erreur de navigation

Ca veut juste dire "page non trouvée" ...