Je cherche à tester le comportement des pages internet (erreur 404 si elle existe pas, une autre erreur si elle est en "timeout)
Tout d'abord je vous montre mon code :
la feuille : (le timer est à deux secondes)
Code :
- Private Sub Timer1_Timer()
- On Error GoTo errorhandler
- Inet1.OpenURL ("www.google.fr" )
- While Inet1.StillExecuting
- DoEvents
- Wend
- chaine = Inet1.GetHeader
- While Inet1.StillExecuting
- DoEvents
- Wend
- chaine = getHeaderCode(chaine)
- Debug.Print chaine
- Inet1.Cancel
- Inet1.RequestTimeout = 4
- If Inet1.OpenURL("http://rarusraweb04.prius.jnj.com/gpt/" ) = sgfsd Then
- While Inet1.StillExecuting
- DoEvents
- Wend
- Debug.Print "505"
- Else
-
- While Inet1.StillExecuting
- DoEvents
- Wend
-
- chaine = Inet1.GetHeader
-
- While Inet1.StillExecuting
- DoEvents
- Wend
- chaine = getHeaderCode(chaine)
- Debug.Print chaine
- End If
- Inet1.Cancel
- Exit Sub
- errorhandler:
- Select Case (Err.Number)
- Case 35761
-
- Case Else
- Debug.Print "error " & Err.Description
-
- End Select
- Resume Next
- End Sub
|
le module
Code :
- Public Function getHeaderCode(ByVal strHeader As String) As String
- On Error GoTo errorhandler_fct
- Dim chaine As String
- chaine = strHeader
- chaine = Left(chaine, InStr(1, chaine, vbCrLf))
- chaine = Mid(chaine, InStr(1, chaine, " " ) + 1)
- getHeaderCode = Left(chaine, InStr(1, chaine, " " ) - 1)
- Exit Function
- errorhandler_fct:
- Select Case (Err.Number)
- Case 35761
- Debug.Print Err.Number & " " & Err.Description
- Resume Next
- Case Else
- Debug.Print "error " & Err.Description
- End Select
- End Function
|
Et maintenant le résultat dans ma fenêtre d'execution :
200
505
200
505
... pendant un certain qui varie tout le temps puis d'un seul coup :
error Impossible d'exécuter la demande
error Argument ou appel de procédure incorrect
505
error Impossible d'exécuter la demande
error Argument ou appel de procédure incorrect
Alors la, je suis perdu
Si quelqu'un peut m'aider ?? 
