Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    126
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : novembre 2008
    Messages : 126
    Points : 44
    Points
    44

    Par défaut Adresse IP via WinHttpRequest en http / httpS

    Bonjour,
    Pour obtenir l'adresse IP d'un utilisateur d'un logiciel VB6 j'utilise
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    strURL = "http://www.rudyv.be/GetIP.php"
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    objHTTP.Open "GET", strURL
    objHTTP.Send
    If objHTTP.Status = 200 Then MyIP = objHTTP.ResponseText
    Set objHTTP = Nothing
    GetIP.php fait simplement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Echo $_SERVER['REMOTE_ADDR'];
    Ceci fonctionnait très bien jusqu'à ce que mon site qui héberge GetIP.php passe de http à httpS
    j'obtiens parfois l'erreur -2147012739:Une erreur s’est produite lors de la connexion sécurisée.

    Comment éviter cette erreur ?

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 273
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 273
    Points : 5 387
    Points
    5 387

    Par défaut

    Qu'est-ce cela donne avec ce bout de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
    strURL = "http://www.rudyv.be/GetIP.php"
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    objHttp.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
    objHTTP.Open "GET", strURL
    objHTTP.Send
    If objHTTP.Status = 200 Then MyIP = objHTTP.ResponseText
    Set objHTTP = Nothing
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    126
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : novembre 2008
    Messages : 126
    Points : 44
    Points
    44

    Par défaut

    Bonjour et merci pour ta réponse,
    Je ne comprends pas si tu es certain de ton coup ou tu me demandes d'essayer, ce qui n'est pas évident car je ne rencontre pas moi-même ce problème.
    Depuis le 24 mai où je suis passé de http à httpS le logiciel a été utilisé 734 fois, le problème s'est posé 5 fois.
    Pour essayer il faudrait que je sorte une nouvelle version du logiciel et que certains utilisateurs qui rencontraient le problème l'installent.

    Es-tu certain que cette modification résoudra le problème ?

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 273
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 273
    Points : 5 387
    Points
    5 387

    Par défaut

    Citation Envoyé par Herve_be Voir le message
    Je ne comprends pas si tu es certain de ton coup ou tu me demandes d'essayer, ce qui n'est pas évident car je ne rencontre pas moi-même ce problème.
    Depuis le 24 mai où je suis passé de http à httpS le logiciel a été utilisé 734 fois, le problème s'est posé 5 fois.
    Pour essayer il faudrait que je sorte une nouvelle version du logiciel et que certains utilisateurs qui rencontraient le problème l'installent.

    Es-tu certain que cette modification résoudra le problème ?
    Ces précisions n'étaient pas dans ton premier post.

    La constante SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS suppose qu'on peut obtenir le résultat voulu sans se soucier des erreurs dues au serveur.

    Pour le résultat, personne ne peut en être sûr. Mais c'est un essai à faire avec l'un de tes clients utilisateurs pour lequel le problème se pose.
    D'autre part, si le problème ne se pose que pour certaines personnes, il faut également voir leurs configurations qui pourraient en être la cause; genre antivirus qui bloque la connexion pour une raison ou une autre
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    126
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : novembre 2008
    Messages : 126
    Points : 44
    Points
    44

    Par défaut

    Bonjour,
    J'avais bien écrit que l'erreur se produit parfois et ce depuis que je suis passé en httpS.
    J'ai fait la modification que tu as proposée; chez moi ça fonctionne comme avant.
    Je l'ai donc données à quelques utilisateurs : pas de problème.
    Si le problème se posait à nouveau je reviendrais ici.
    Merci beaucoup pour ton aide.

  6. #6
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    126
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : novembre 2008
    Messages : 126
    Points : 44
    Points
    44

    Par défaut

    Bon, c'est raté : un utilisateur de le dernière version a reçu -2147012739:Une erreur s’est produite lors de la connexion sécurisée
    sur l'instruction objHTTP.Send

    Le fait que j'utilise strURL = "http://www.rudyv.be/GetIP.php" et non httpS pourrait-il en être la cause ?

Discussions similaires

  1. [ODS] ODS PDF insérer une image via un lien http
    Par OlivierBarriere dans le forum ODS et reporting
    Réponses: 2
    Dernier message: 07/08/2012, 11h00
  2. [WD15] mise a jour de WinDev via le protocole HTTP
    Par mustargus dans le forum WinDev
    Réponses: 5
    Dernier message: 13/01/2012, 14h46
  3. Réponses: 3
    Dernier message: 28/01/2011, 10h58
  4. Upload de Fichier via une Servlet HTTP
    Par tagsOf dans le forum Servlets/JSP
    Réponses: 5
    Dernier message: 01/11/2008, 17h53
  5. communication servlet/applet via le protocole https
    Par hlaura dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 18/07/2006, 17h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo