Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic quelle est mon Ip ?

quelle est mon Ip ?

9 réponses
Avatar
eon2
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet ?

Merci
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Marc
"eon2" a écrit dans le message de
news:c1no23$4i1$
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet ?



Hello,
par exemple en allant sur le site
http://www.all-nettools.com/index.php

Jean-Marc
Avatar
eon2
Je me suis male exprimé... Je veut afficher mon ip dans mon programme.


"Jean-Marc" a écrit dans le message de
news:403f7398$0$768$
"eon2" a écrit dans le message de
news:c1no23$4i1$
> Je souhaite connaître mon adresse IP...
> Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet ?

Hello,
par exemple en allant sur le site
http://www.all-nettools.com/index.php

Jean-Marc




Avatar
ng
Salut,

As-tu regardé sur google groups ?
Il me semble que c'est faisable par API.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"eon2" a écrit dans le message de news:
c1no23$4i1$
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet ?

Merci




Avatar
eon2
Je vais utikiser une page php qui céera un fichier txt avec l'ip qu je
cherche.


"ng" a écrit dans le message de
news:Oh4AYkV$
Salut,

As-tu regardé sur google groups ?
Il me semble que c'est faisable par API.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"eon2" a écrit dans le message de news:
c1no23$4i1$
> Je souhaite connaître mon adresse IP...
> Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet ?
>
> Merci
>
>




Avatar
Sébastien Côté
Moi j'ai utilisé la méthode suivante:

Function GetExternalIP() As String
On Error Resume Next
Dim txt As String
Dim b() As Byte
b() = Inet1.OpenURL("www.myip.com", 1)
txt = ""
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
txt = Replace$(txt, "<html>Your Ip is", "", , , vbTextCompare)
txt = Replace$(txt, "<p></html", "", , , vbTextCompare)
txt = Replace$(txt, ">", "")
GetExternalIP = txt
End Function

J'espère que ca t'aide un peu...

Sébastien


"eon2" a écrit dans le message de
news:c1no23$4i1$
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet ?

Merci




Avatar
ng
Salut,

Pour faire ca, je te déconseille fortement d'utiliser le controle inte !
Préfère l'emploi de l'api URLDownloadToFile qui de surcoit, est plus simple
à utiliser.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Sébastien Côté a écrit :

Moi j'ai utilisé la méthode suivante:

Function GetExternalIP() As String
On Error Resume Next
Dim txt As String
Dim b() As Byte
b() = Inet1.OpenURL("www.myip.com", 1)
txt = ""
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
txt = Replace$(txt, "<html>Your Ip is", "", , , vbTextCompare)
txt = Replace$(txt, "<p></html", "", , , vbTextCompare)
txt = Replace$(txt, ">", "")
GetExternalIP = txt
End Function

J'espère que ca t'aide un peu...

Sébastien


"eon2" a écrit dans le message de
news:c1no23$4i1$
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet
?

Merci




Avatar
François Picalausa
Bonjour/soir,

ou les API Inet qui fonctionnent bien...
ou IE/un webbrowser
ou du winsock.. j'aime winsock
;-)

Par contre, effectivement, éviter le contrôle Inet...
Et personellement, les API Winsock, ça me rend un peu fou.. enfin.. un peu
plus fou ;-)
Mais c'est quand même chouette à utiliser ;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"ng" a écrit dans le message de
news:eNTtgCe$
Pour faire ca, je te déconseille fortement d'utiliser le controle
inet ! Préfère l'emploi de l'api URLDownloadToFile qui de surcoit,
est plus simple à utiliser.


Moi j'ai utilisé la méthode suivante:

Function GetExternalIP() As String
b() = Inet1.OpenURL("www.myip.com", 1)
End Function

"eon2" a écrit dans le message de
news:c1no23$4i1$
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet
?

Merci






Avatar
Jean-Marc
"François Picalausa" a écrit dans le message de
news:uXlpHKe$
Bonjour/soir,
ou du winsock.. j'aime winsock
;-)



Moi aussi j'aime Winsock :o)

Jean-Marc
Avatar
ng
>Pour faire ca, je te déconseille fortement d'utiliser le controle inte !


c'est bien *inet*

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

ng a écrit :

Salut,

Pour faire ca, je te déconseille fortement d'utiliser le controle
inte ! Préfère l'emploi de l'api URLDownloadToFile qui de surcoit,
est plus simple à utiliser.


Moi j'ai utilisé la méthode suivante:

Function GetExternalIP() As String
On Error Resume Next
Dim txt As String
Dim b() As Byte
b() = Inet1.OpenURL("www.myip.com", 1)
txt = ""
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
txt = Replace$(txt, "<html>Your Ip is", "", , , vbTextCompare)
txt = Replace$(txt, "<p></html", "", , , vbTextCompare)
txt = Replace$(txt, ">", "")
GetExternalIP = txt
End Function

J'espère que ca t'aide un peu...

Sébastien


"eon2" a écrit dans le message de
news:c1no23$4i1$
Je souhaite connaître mon adresse IP...
Avec winsock je n'est que l'ip locale, comment avoir l'ip d'Internet
?

Merci