- '---------------------------- Le code VB -------------------------------
- Dim URL As String
- Dim ipreelle As String
-
- Private Sub Command1_Click()
-
- URL = "http://127.0.0.1/ip.php" ' --> page que j'ai faite et qui est dans le zip. Normalement la variable utilisée renvoie l'ip même si la personne est derrière un proxy.
- ipreelle = Inet1.OpenURL(URL)
- Do While Inet1.StillExecuting
- DoEvents
- Loop
- Inet1.Execute , "CLOSE"
-
- If ipreelle <> "" Then
- Label1.Caption = "Connecté"
- Label2.Caption = ("IP : " & ipreelle)
- Else
- Label2.Caption = "Déconnecté"
- End If
-
- End Sub
-
-
-
-
- '------------------- La page php à mettre sur un server -----------------------
- <?PHP
-
- /* Coded by ElastycmaN */
-
- $vraieip = getenv("HTTP_X_FORWARDED_FOR");
-
- if ($vraieip=="")
- {$vraieip = $REMOTE_ADDR;
- }
- echo $vraieip;
-
- ?>
'---------------------------- Le code VB -------------------------------
Dim URL As String
Dim ipreelle As String
Private Sub Command1_Click()
URL = "http://127.0.0.1/ip.php" ' --> page que j'ai faite et qui est dans le zip. Normalement la variable utilisée renvoie l'ip même si la personne est derrière un proxy.
ipreelle = Inet1.OpenURL(URL)
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "CLOSE"
If ipreelle <> "" Then
Label1.Caption = "Connecté"
Label2.Caption = ("IP : " & ipreelle)
Else
Label2.Caption = "Déconnecté"
End If
End Sub
'------------------- La page php à mettre sur un server -----------------------
<?PHP
/* Coded by ElastycmaN */
$vraieip = getenv("HTTP_X_FORWARDED_FOR");
if ($vraieip=="")
{$vraieip = $REMOTE_ADDR;
}
echo $vraieip;
?>