Bonjour,
Voici un petit script mais qui est très utile qui permet d'obtenir des informations depuis une adresse IP :
► Afficher le texte
Code : Tout sélectionner
#include <String.au3>
$IP = InputBox("IP_Trace","Veuillez entrer l'adresse IP à tracer (ne mettez rien pour tracer votre IP) :")
If @error = 1 Then Exit
If $IP = "" Then
$source1 = BinaryToString(InetRead("http://adresseip.sur-la-toile.com/",1))
$IP = _StringBetween($source1,"<h1>Votre adresse IP est ","</h1>")
EndIf
If UBound($IP) <> 0 Then
$source = BinaryToString(InetRead("http://www.fobec.com/apps/localiser-ip/"&$IP[0],1))
EndIf
If UBound($IP) = 0 Then
$source = BinaryToString(InetRead("http://www.fobec.com/apps/localiser-ip/"&$IP,1))
EndIf
If $source = "" Then
MsgBox(16,"IP_Trace","Une erreur c'est produite et les données n'ont pas pus êtres reçues."&@CRLF&@CRLF&"Vérifiez votre connection internet ou si l'adresse IP est valide.")
EndIf
If $source <> "" Then
$title = _StringBetween($source,'<meta name="description" content="','. Ce service situe la ville sur une carte, teste les blacklist, extrait le Whois et le FAI')
$String = _StringBetween($source,'<td class="data">','</td>')
$String2 = _StringBetween($source,'<td class="title">','</td>')
$tour = - 1
$NewString = ""
While 1
$tour = $tour + 1
$NewString = $NewString&@CRLF&$String2[$tour]&" "&$String[$tour]
If $tour = 9 Then ExitLoop
WEnd
MsgBox(64,"IP_Trace",$title[0]&@CRLF&$NewString)
MsgBox(64,"IP_Trace",'Le tracage de votre adresse IP à été réalisé grâçe aux sites "www.fobec.com" et "adresseip.sur-la-toile.com"')
EndIf
Grâce à ce script, vous pouvez obtenir entre autre :
-la localisation de l'IP
-son fournisseur d'accès
-le nom de l’hôte
-et quelques autres...
Si vous ne remplissez rien ou si vous mettez une adresse qui n'existe pas, il vous renverra les informations sur votre IP.
Voilà, en espérant que ça vous servira
PS : Si vous n'avez pas d'idée d'IP en tête,
allez ici.
Edit : Mise à jour du code en raison des modifications du site
http://www.fobec.com