IP INTERNET (L'IP DE LA CONNECTION) --> SANS PASSER PAR LE PHP !!!
poof65
Messages postés89Date d'inscriptionsamedi 19 avril 2003StatutMembreDernière intervention26 janvier 2008
-
1 sept. 2003 à 03:31
cs_Kike
Messages postés13Date d'inscriptionlundi 16 décembre 2002StatutMembreDerniè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.
cs_Kike
Messages postés13Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 1 septembre 2005 11 août 2005 à 12:43
Bravo
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
Matyouz
Messages postés28Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention27 juillet 2011 26 avril 2005 à 15:08
Parfait pour récupérer l'IP sans passer par internet ! 9/10
cs_patolivier
Messages postés1Date d'inscriptionvendredi 31 janvier 2003StatutMembreDernière intervention24 mars 2005 24 mars 2005 à 16:32
Version win2k (simpliste mais efficace...):
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
cs_djine
Messages postés26Date d'inscriptionmardi 22 juillet 2003StatutMembreDernière intervention11 décembre 2007 1 sept. 2004 à 16:49
Ok, c'est vrai...
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...
cs_Skyman
Messages postés24Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention26 septembre 2003 1 sept. 2003 à 09:25
www.skyweb.t2u.com ;) rci
cs_Skyman
Messages postés24Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention26 septembre 2003 1 sept. 2003 à 09:18
c est pas trop top ton truc ...
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 :(
poof65
Messages postés89Date d'inscriptionsamedi 19 avril 2003StatutMembreDernière intervention26 janvier 2008 1 sept. 2003 à 03:31
euh bizarre le fichier est bien créé chez moi mais la fonction ne retourne qu'une chaine vide ...
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