Ip internet (l'ip de la connection) --> sans passer par le php !!!
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...
Je n'ai jamais vu de truc semblable mais ca marche à merveille !
Donnez moi vos commentair please !
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
- Ip internet (l'ip de la connection) --> sans passer par le php !!!
- Modèle de site internet - Conseils pratiques -PHP
- Php table - Conseils pratiques -PHP
- "Php version 4.4.5" "build date" "server api" "php variables" ✓ - Forum PHP
- Php protected ✓ - Forum PHP
- Php version 4.4.6 build date server api php variables - Forum PHP
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.