IP INTERNET (L'IP DE LA CONNECTION) --> SANS PASSER PAR LE PHP !!!
poof65
Messages postés
89
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008
-
1 sept. 2003 à 03:31
cs_Kike Messages postés 13 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 1 septembre 2005 - 11 août 2005 à 12:43
cs_Kike Messages postés 13 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 1 septembre 2005 - 11 août 2005 à 12:43
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/8405-ip-internet-l-ip-de-la-connection-gt-sans-passer-par-le-php
https://codes-sources.commentcamarche.net/source/8405-ip-internet-l-ip-de-la-connection-gt-sans-passer-par-le-php
11 août 2005 à 12:43
mais ca reste un peu barbare de passer par une interface windows
personne n'a donc l'api magique ou l'adresse registre inconnu utilisée par ipconfig
26 avril 2005 à 15:08
24 mars 2005 à 16:32
Function donneip() As String
'______________________________________________________________________________________
'Récupérer l'adresse IP de la machine
'______________________________________________________________________________________
On Error Resume Next
Dim Trace As String
'Préparation du fichier bat pour récupérer adresse ip
Open "C:\ScripIP.bat" For Output As #26
Print #26, "ipconfig > C:\TraceIP.txt"
Close #26
'Execution du fichier bat: execution de ipconfig et enregistrement du résultat dans un txt
Shell_Retour = Shell("C:\ScripIP.bat", 2)
DoEvents
'ouverture fichier résultat et recherche de l'adresse IP
Open "C:\TraceIP.txt" For Input As #100
Do While Not EOF(100)
Line Input #100, Trace
IFN = InStr(1, Trace, "Adresse IP", 1)
If IFN <> 0 Then
IFM = InStr(IFN, Trace, ":", 1)
donneip = Mid$(Trace, (IFM + 1), 20)
Exit Do
End If
Loop
End Function
1 sept. 2004 à 16:49
J'était tellement content de ma découverte que je me suis vite enflammé sur Vbfrance.com...
Ce qui n'empèche pas que ma sources fonction chez moi sur win98 et que je l'utilise sans probleme dans des progs...
Mais c'est la premiere source que dépose alors soyez indulgent...
1 sept. 2003 à 09:25
1 sept. 2003 à 09:18
deja passer pas winipcfg et tout stocker dans un fichier texte pour aller rechercher l info c est pas tres pro ...
et pi sous win xp c est plus wipcfg mais ipconfig
et pi encore c:windows n est pas tjrs le dossier windows ...
et pi encore plus quand t est dans un reseau ton truc marche pas (dutout:( :
1. dans un rezo c l ip que ton router
2. quand t est connecte au web ca te donne pas l ip que t a fournit ton fai
nif :(
1 sept. 2003 à 03:31