Ip internet (l'ip de la connection) --> sans passer par le php !!!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 577 fois - Téléchargée 35 fois

Contenu du snippet

Je n'ai jamais vu de truc semblable mais ca marche à merveille ! Et il détecte la connection (si l'ip est 0.0.0.0) ! ! !

C'est la magnere la plus simple et qui ne pas pas par internet...

Source / Exemple :


Function donneip() As String

On Error Resume Next

Shell "winipcfg /batch c:\windows\temp\ipcfg.txt"
DoEvents

Dim TextLine
Dim ipcfg(50)
Dim k As Integer

Open "c:\windows\temp\ipcfg.txt" For Input As #100

Do While Not EOF(100)
    Line Input #100, ipcfg(k)
    k = k + 1
Loop
Close #100

For i = 0 To k
    For j = 1 To Len(ipcfg(i))
       If Mid$(ipcfg(i), j, 30) = "Adresse IP. . . . . . . . . : " Then
            If donneip = "" Then donneip = Mid$(ipcfg(i), j + 30)
       End If
    Next j
Next i

If donneip = "0.0.0.0" Then donneip = "Non connecté"
If Err.Number <> 0 Then donnip = "ERREUR"

End Function

Conclusion :


Je n'ai jamais vu de truc semblable mais ca marche à merveille !

Donnez moi vos commentair please !

A voir également

Ajouter un commentaire

Commentaires

cs_Kike
Messages postés
13
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
1 septembre 2005
-
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és
28
Date d'inscription
dimanche 27 mars 2005
Statut
Membre
Dernière intervention
27 juillet 2011
-
Parfait pour récupérer l'IP sans passer par internet ! 9/10
cs_patolivier
Messages postés
1
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
24 mars 2005
-
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és
26
Date d'inscription
mardi 22 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007
-
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és
24
Date d'inscription
vendredi 6 juin 2003
Statut
Membre
Dernière intervention
26 septembre 2003
-
www.skyweb.t2u.com ;) rci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.