CONNAITRE SON IP INTERNET

cs_yoman64 Messages postés 592 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 4 décembre 2008 - 23 mai 2005 à 04:53
Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008 - 16 janv. 2007 à 06:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/31540-connaitre-son-ip-internet

Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008
16 janv. 2007 à 06:09
mince 2 mince
le programme me dit que je ne suis pas connecté. il me donne bien l'adresse en local mais pas celle en externe.?.?
je suis derrière un router. Mais vu le code me semble pas que ca doit poser problème... C'est grave docteur ?

Meilleures salutations
Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008
16 janv. 2007 à 06:02
question toute bete... pour le fichier php on pourrait le faire avec de l'asp ?
cs_LazY Messages postés 23 Date d'inscription mardi 24 septembre 2002 Statut Membre Dernière intervention 9 mars 2007
6 août 2006 à 23:32
Merci.
forget2212 Messages postés 5 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 6 janvier 2009
6 août 2006 à 05:19
Salut LazY,

Pour ton info le code pour la page php est

<? $ip = $_SERVER['REMOTE_ADDR']; echo "$ip"; ?>

Au revoir

Jérémie
cs_LazY Messages postés 23 Date d'inscription mardi 24 septembre 2002 Statut Membre Dernière intervention 9 mars 2007
12 mai 2006 à 21:54
Hello !
Super ce code ! C'est pile ce que je cherchais.
Par contre, pourais-tu donner le code la page php stp ?
cs_sitemo Messages postés 341 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 29 juin 2011 1
6 juil. 2005 à 20:32
je met ou adresse mail?
forget2212 Messages postés 5 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 6 janvier 2009
5 juil. 2005 à 05:35
Tu n'a qu'à créé un bouton de command "Command1" et tu ajoute le code dans la fenêtre de code. Command1 est devenu ton bonton pour t'envoyer ton ip par mail.

Jérémie
cs_sitemo Messages postés 341 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 29 juin 2011 1
30 juin 2005 à 16:57
tu mexpliquer quoi je remplace stp???
forget2212 Messages postés 5 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 6 janvier 2009
30 juin 2005 à 05:43
Pour t'envoyer ton ip par email t'a qu'à faire ce code :

Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.ovh.net/cgi-bin/reponse.pl?cava2=HTTP://ACIVE.FREE.FR&email_master1=" & "TON EMAIL@hotmail.com" & "&subject=" & Replace("Mon adresse IP", " ", "%20") & "&Adresse IP=" & Replace(EtiIpInternet.Caption, " ", "%20")

End Sub
cs_sitemo Messages postés 341 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 29 juin 2011 1
28 juin 2005 à 14:27
je voudrai savoir comment rajouter un programme sur ca
quand je clike sur un bouton ca menvoi par mail ladresse ip
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
24 mai 2005 à 20:43
Tu pourrais aussi poster le code directement ici, il n'y a pas grand chose dans le ZIP il faut dire.
cs_kalif Messages postés 362 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 24 août 2012
23 mai 2005 à 15:42
- inutile de mettre trois timer l'ip ne va pas changer toute les seconde, de plus le programme ne se ferme pas car les intervals sont trop court et inet est constamment oqp

- il aurais fallut faire la requete avec winsock pour ne pas avoir des composant additionel (inet).

Private Sub Form_Load()
EtiIpLocal.Caption = Winsock1.LocalIP
EtiComputerName = Environ("ComputerName")
IP = FrmGestionIp.Inet.OpenURL("http://testip.free.fr/ip.php")
If IP "" Then IP "Vous n'êtes pas connecté"
EtiIpInternet = IP
End Sub
forget2212 Messages postés 5 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 6 janvier 2009
23 mai 2005 à 07:12
kk merci de me l'avoir dit, j'ai arranger ça!
cs_yoman64 Messages postés 592 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 4 décembre 2008
23 mai 2005 à 04:53
Il y a un module de trop dans le zip...
Rejoignez-nous