Comportement du control Inet incompréhensible ??

Comportement du control Inet incompréhensible ?? - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2003 à 10:52:27    

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 :
  1. Private Sub Timer1_Timer()
  4. On Error GoTo errorhandler
  6. Inet1.OpenURL ("www.google.fr" )
  7. While Inet1.StillExecuting
  8.     DoEvents
  9. Wend
  11. chaine = Inet1.GetHeader
  13. While Inet1.StillExecuting
  14.     DoEvents
  15. Wend
  16. chaine = getHeaderCode(chaine)
  17. Debug.Print chaine
  18. Inet1.Cancel
  20. Inet1.RequestTimeout = 4
  21. If Inet1.OpenURL("http://rarusraweb04.prius.jnj.com/gpt/" ) = sgfsd Then
  22.     While Inet1.StillExecuting
  23.         DoEvents
  24.     Wend
  25.     Debug.Print "505"
  26. Else
  27.    
  28.     While Inet1.StillExecuting
  29.         DoEvents
  30.     Wend
  31.    
  32.         chaine = Inet1.GetHeader
  33.    
  34.     While Inet1.StillExecuting
  35.             DoEvents
  36.     Wend
  37.     chaine = getHeaderCode(chaine)
  38.     Debug.Print chaine
  39. End If
  40. Inet1.Cancel
  41. Exit Sub
  43. errorhandler:
  45. Select Case (Err.Number)
  46.     Case 35761
  47.        
  48.     Case Else
  49.         Debug.Print "error " & Err.Description
  50.        
  51. End Select
  53. Resume Next
  54. End Sub


 
le module

Code :
  1. Public Function getHeaderCode(ByVal strHeader As String) As String
  2. On Error GoTo errorhandler_fct
  3. Dim chaine As String
  4.     chaine = strHeader
  5.     chaine = Left(chaine, InStr(1, chaine, vbCrLf))
  6.     chaine = Mid(chaine, InStr(1, chaine, " " ) + 1)
  7.     getHeaderCode = Left(chaine, InStr(1, chaine, " " ) - 1)
  8. Exit Function
  11. errorhandler_fct:
  14. Select Case (Err.Number)
  15.     Case 35761
  16.         Debug.Print Err.Number & " " & Err.Description
  17.         Resume Next
  18.     Case Else
  19.         Debug.Print "error " & Err.Description
  20. End Select
  22. 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 ??  :jap:

Reply

Marsh Posté le 14-05-2003 à 10:52:27   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed