Adresse IP via WinHttpRequest en http / httpS

Bonjour,
Pour obtenir l'adresse IP d'un utilisateur d'un logiciel VB6 j'utilise

Code:

---

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:

---

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 ?

Qu'est-ce cela donne avec ce bout de

Code:

---

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

---

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 ?

Citation:

---

Envoyé par Herve_be

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

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.

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 ?

Oui, le https semble poser problème. En tout cas, c'est un problème que je rencontre dans une fonction bête comme chou pour récupérer le code http renvoyé par une url.

Du coup, j'ai codé ça comme ça (un peu dégueu mais qui semble fonctionner en correctif à chaud):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Function verification_url(url_to_check As String) As Integer ' Test qu'une url est accessible et renvoie le code http On Error GoTo Error_Handler reprise_verification_url: Static oRequest As Object Set oRequest = CreateObject("WinHTTP.WinHTTPRequest.5.1") With oRequest .SetProxy 2, "monproxy.machin.truc:mon_port", "" .Open "GET", url_to_check, False .Send End With verification_url = oRequest.Status Exit Function Error_Handler: ' Gestion du bug avec les adresses en https If verification_url <> "999" Then url_to_check = Replace(url_to_check, "https", "http") GoTo reprise_verification_url Else verification_url = "999" End If   End Function

---