Je suis en VB.Net 2003, Je cherche à récupérer l'adresse IP qui m'est
affectée lorsque je me connecte à Internet, j'utilise un routeur.
Je galère sepuis 2 jours là-dessus, je n'ai rien trouvé sur le sujet, la
plupart des réponses permettent de récupérer l'adresse IP locale.
Dim WhatIsMyIPRequest As HttpWebRequest Dim Reponse As HttpWebResponse Dim Stream As StreamReader Dim stringResult As String WhatIsMyIPRequest > CType(WebRequest.Create("http://www.whatismyip.com/"), HttpWebRequest) Reponse = CType(WhatIsMyIPRequest.GetResponse(), HttpWebResponse) Stream = New StreamReader(Reponse.GetResponseStream())
On peut faire quelque chose de plus propre mais c'est un premier jet ;-)
Effectivement c'est beaucoup plus judicieux que de faire intervenir le dns. Quitte à utiliser un site extérieur, pourquoi pas se faire un petit fichier php d'une ligne : <?php echo($_SERVER["REMOTE_ADDR"]);?> À mettre chez un ou plusieurs hébergeurs de pages perso (par sécurité). Même plus besoin d'analyser le html renvoyé et on est à l'abri d'une modification du site.
Tu peux essayer ton programme avec cette adresse : http://foleide.free.fr/getip.php
(le résultat est dans stringResult sans traitement supplémentaire)
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
dans : news:D6AAAC88-38AC-4AA7-8332-AEA6951156A4@microsoft.com,
Mathieu Francesch écrivait :
Bonjour,
Bonsoir,
Je trouve que c'est une bonne idée et surtout un bon exercice !
De mon côté et par curiosité j'ai procédé de la manière suivante :
Dim WhatIsMyIPRequest As HttpWebRequest
Dim Reponse As HttpWebResponse
Dim Stream As StreamReader
Dim stringResult As String
WhatIsMyIPRequest > CType(WebRequest.Create("http://www.whatismyip.com/"), HttpWebRequest)
Reponse = CType(WhatIsMyIPRequest.GetResponse(),
HttpWebResponse) Stream = New
StreamReader(Reponse.GetResponseStream())
On peut faire quelque chose de plus propre mais c'est un premier jet
;-)
Effectivement c'est beaucoup plus judicieux que de faire intervenir le
dns.
Quitte à utiliser un site extérieur, pourquoi pas se faire un petit
fichier php d'une ligne :
<?php echo($_SERVER["REMOTE_ADDR"]);?>
À mettre chez un ou plusieurs hébergeurs de pages perso (par sécurité).
Même plus besoin d'analyser le html renvoyé et on est à l'abri d'une
modification du site.
Tu peux essayer ton programme avec cette adresse :
http://foleide.free.fr/getip.php
(le résultat est dans stringResult sans traitement supplémentaire)
Dim WhatIsMyIPRequest As HttpWebRequest Dim Reponse As HttpWebResponse Dim Stream As StreamReader Dim stringResult As String WhatIsMyIPRequest > CType(WebRequest.Create("http://www.whatismyip.com/"), HttpWebRequest) Reponse = CType(WhatIsMyIPRequest.GetResponse(), HttpWebResponse) Stream = New StreamReader(Reponse.GetResponseStream())
On peut faire quelque chose de plus propre mais c'est un premier jet ;-)
Effectivement c'est beaucoup plus judicieux que de faire intervenir le dns. Quitte à utiliser un site extérieur, pourquoi pas se faire un petit fichier php d'une ligne : <?php echo($_SERVER["REMOTE_ADDR"]);?> À mettre chez un ou plusieurs hébergeurs de pages perso (par sécurité). Même plus besoin d'analyser le html renvoyé et on est à l'abri d'une modification du site.
Tu peux essayer ton programme avec cette adresse : http://foleide.free.fr/getip.php
(le résultat est dans stringResult sans traitement supplémentaire)
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Mathieu Francesch
Bonsoir Fred !
Tous simplement excellent !! ;-)
A quoi bon se faire xxxxx à analyser le code source d'une page HTML lorsque l'on peut avoir directement l'information en une simple ligne de code !
Merci encore pour Jean Michel.
bonne soirée à vous ... (soirée un peu arrosé pour nous en ce moment !!) -- Cordialement,
Mathieu Francesch
"Fred" a écrit :
dans : news:, Mathieu Francesch écrivait :
> Bonjour,
Bonsoir,
> Je trouve que c'est une bonne idée et surtout un bon exercice ! > > De mon côté et par curiosité j'ai procédé de la manière suivante : > > ################################################## > > Dim WhatIsMyIPRequest As HttpWebRequest > Dim Reponse As HttpWebResponse > Dim Stream As StreamReader > Dim stringResult As String > WhatIsMyIPRequest > > CType(WebRequest.Create("http://www.whatismyip.com/"), HttpWebRequest) > Reponse = CType(WhatIsMyIPRequest.GetResponse(), > HttpWebResponse) Stream = New > StreamReader(Reponse.GetResponseStream()) > > stringResult = Stream.ReadToEnd() > Stream.Close() > > MessageBox.Show(stringResult.Substring(stringResult.IndexOf("<TITLE>") > + 23, 14)) > > ################################################# > > On peut faire quelque chose de plus propre mais c'est un premier jet > ;-)
Effectivement c'est beaucoup plus judicieux que de faire intervenir le dns. Quitte à utiliser un site extérieur, pourquoi pas se faire un petit fichier php d'une ligne : <?php echo($_SERVER["REMOTE_ADDR"]);?> À mettre chez un ou plusieurs hébergeurs de pages perso (par sécurité). Même plus besoin d'analyser le html renvoyé et on est à l'abri d'une modification du site.
Tu peux essayer ton programme avec cette adresse : http://foleide.free.fr/getip.php
(le résultat est dans stringResult sans traitement supplémentaire)
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Bonsoir Fred !
Tous simplement excellent !! ;-)
A quoi bon se faire xxxxx à analyser le code source d'une page HTML lorsque
l'on peut avoir directement l'information en une simple ligne de code !
Merci encore pour Jean Michel.
bonne soirée à vous ... (soirée un peu arrosé pour nous en ce moment !!)
--
Cordialement,
Mathieu Francesch
epsilon@neuf.fr
"Fred" a écrit :
dans : news:D6AAAC88-38AC-4AA7-8332-AEA6951156A4@microsoft.com,
Mathieu Francesch écrivait :
> Bonjour,
Bonsoir,
> Je trouve que c'est une bonne idée et surtout un bon exercice !
>
> De mon côté et par curiosité j'ai procédé de la manière suivante :
>
> ##################################################
>
> Dim WhatIsMyIPRequest As HttpWebRequest
> Dim Reponse As HttpWebResponse
> Dim Stream As StreamReader
> Dim stringResult As String
> WhatIsMyIPRequest > > CType(WebRequest.Create("http://www.whatismyip.com/"), HttpWebRequest)
> Reponse = CType(WhatIsMyIPRequest.GetResponse(),
> HttpWebResponse) Stream = New
> StreamReader(Reponse.GetResponseStream())
>
> stringResult = Stream.ReadToEnd()
> Stream.Close()
>
> MessageBox.Show(stringResult.Substring(stringResult.IndexOf("<TITLE>")
> + 23, 14))
>
> #################################################
>
> On peut faire quelque chose de plus propre mais c'est un premier jet
> ;-)
Effectivement c'est beaucoup plus judicieux que de faire intervenir le
dns.
Quitte à utiliser un site extérieur, pourquoi pas se faire un petit
fichier php d'une ligne :
<?php echo($_SERVER["REMOTE_ADDR"]);?>
À mettre chez un ou plusieurs hébergeurs de pages perso (par sécurité).
Même plus besoin d'analyser le html renvoyé et on est à l'abri d'une
modification du site.
Tu peux essayer ton programme avec cette adresse :
http://foleide.free.fr/getip.php
(le résultat est dans stringResult sans traitement supplémentaire)
A quoi bon se faire xxxxx à analyser le code source d'une page HTML lorsque l'on peut avoir directement l'information en une simple ligne de code !
Merci encore pour Jean Michel.
bonne soirée à vous ... (soirée un peu arrosé pour nous en ce moment !!) -- Cordialement,
Mathieu Francesch
"Fred" a écrit :
dans : news:, Mathieu Francesch écrivait :
> Bonjour,
Bonsoir,
> Je trouve que c'est une bonne idée et surtout un bon exercice ! > > De mon côté et par curiosité j'ai procédé de la manière suivante : > > ################################################## > > Dim WhatIsMyIPRequest As HttpWebRequest > Dim Reponse As HttpWebResponse > Dim Stream As StreamReader > Dim stringResult As String > WhatIsMyIPRequest > > CType(WebRequest.Create("http://www.whatismyip.com/"), HttpWebRequest) > Reponse = CType(WhatIsMyIPRequest.GetResponse(), > HttpWebResponse) Stream = New > StreamReader(Reponse.GetResponseStream()) > > stringResult = Stream.ReadToEnd() > Stream.Close() > > MessageBox.Show(stringResult.Substring(stringResult.IndexOf("<TITLE>") > + 23, 14)) > > ################################################# > > On peut faire quelque chose de plus propre mais c'est un premier jet > ;-)
Effectivement c'est beaucoup plus judicieux que de faire intervenir le dns. Quitte à utiliser un site extérieur, pourquoi pas se faire un petit fichier php d'une ligne : <?php echo($_SERVER["REMOTE_ADDR"]);?> À mettre chez un ou plusieurs hébergeurs de pages perso (par sécurité). Même plus besoin d'analyser le html renvoyé et on est à l'abri d'une modification du site.
Tu peux essayer ton programme avec cette adresse : http://foleide.free.fr/getip.php
(le résultat est dans stringResult sans traitement supplémentaire)
