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
- Flashmail club internet - Forum VB.NET
- Php table - Conseils pratiques -PHP
- "Php version 4.4.4" "build date" "server api" "php variables" - Forum PHP
- "Php version 4.4.3" "build date" "server api" "php variables" - Forum ASP / ASP.NET