tester si une page internet fonctionne

tester si une page internet fonctionne - VB/VBA/VBS - Programmation

Marsh Posté le 12-05-2003 à 14:49:24    

J'ai réussi à tester des pages Internet avec le controle winsock mais par contre je n'arrive pas à tester les pages d'un intranet, j'ai l'erreur suivante 401 (non autorisé). Est ce que je peux passer en parametre un mot de pass et un login ?

Reply

Marsh Posté le 12-05-2003 à 14:49:24   

Reply

Marsh Posté le 12-05-2003 à 19:12:58    

-BigFoot- a écrit :

J'ai réussi à tester des pages Internet avec le controle winsock mais par contre je n'arrive pas à tester les pages d'un intranet, j'ai l'erreur suivante 401 (non autorisé). Est ce que je peux passer en parametre un mot de pass et un login ?

tu les testes comment par quelle méthode ? essaye sinon, avec les API windows...je crois que c'est ShellExecuteEx...

Reply

Marsh Posté le 12-05-2003 à 19:37:18    

A lieu de Winsock, utilise "Internet Controls".
 
C'est en fait IE, qui s'intègre à ton programme, y'a donc tout ce qu'il faut : authentification sur le réseau, paramètrage à la cons du proxy, et cookies.
 
Tu peux même inter-agir avec le javascript depuis VB :)

Reply

Marsh Posté le 13-05-2003 à 09:20:45    

Merci MagicBuzz pour ta réponse
j'ai en effet utilisé le controle Inet et j'arrive à tester mes pages
Pour cela j'utilise la méthode getHeader() et j'ai ainsi l'en-tête de la page.
Je récupère ceci :  
 

Code :
  1. HTTP/1.1 200 OK
  2. Server: Microsoft-IIS/5.0
  3. Date: Tue, 13 May 2003 07:17:33 GMT
  4. Pragma: No-Cache
  5. Content-Length: 25423
  6. Content-Type: text/html
  7. Expires: Tue, 13 May 2003 07:32:33 GMT
  8. Cache-control: private


 
 
quand je fais getHeader("Date" ) je récupère juste la date.
Sais tu comment récupérer directement que la première ligne ??
(à part les fonctions qui découpent une chaine)
 
Encore merci pour ta réponse :)
[cpp]

Reply

Marsh Posté le 13-05-2003 à 09:48:29    

"protocol" peut-être.
 
Mais très franchement, je n'en ai aucune idée :)

Reply

Marsh Posté le 13-05-2003 à 16:06:59    

J'ai une autre question à propos du controle inet
 
Lorsque je fais le code suivant :  

Code :
  1. Inet1.OpenURL("http://rarusraweb04.prius.jnj.com/gpt/" )


(c'est une page qui est sur mon intranet et qui provoque un timeout)
 
J'ai une erreur d'execution suivante :  
35761 Délai écoulé pour la demande
 
J'aimerais intercepter cette erreur et donc indiqué qu'il y a une erreur de type 505  
 
Une petite idée sur la marche à suivre ?
merci d'avance
 
:jap:

Reply

Marsh Posté le 13-05-2003 à 16:47:43    

on error resume next
err.clear
inet1.open "..."
if err <> 0 then
   msgbox("Erreur !" & vbcrlf & "Numéro : " & err.number & vbCrLf & "Description : " & err.description)
end if
on error goto 0

Reply

Sujets relatifs:

Leave a Replay

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