Page 1 sur 1
[EX] Localiser une adresse IP
Posté : dim. 25 sept. 2011 18:02
par TT22
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
Re: [EX] Localiser une adresse IP
Posté : mar. 27 sept. 2011 11:23
par scorp84
Nickel
Merci +++ pour ce partage.
Amicalement.
BM
Re: [EX] Localiser une adresse IP
Posté : dim. 29 janv. 2012 10:41
par locos974
Bonjour,
Votre script marcher il y a quelque mois mais depuis quelque jour il ne marche plus. J'ai essayer de modifier la source mais je n'y est pas arrivé..
Pouvez-vous corriger l'erreur ?
Merci d'avance.
Re: [EX] Localiser une adresse IP
Posté : mer. 05 oct. 2016 13:33
par FRANPOL38000
Ce script retourne directement le code source de la page de résultat du site
http://www.fobec.com/apps/localiser-ip/....
effectivement avec ce site vous pouvez mettre dans l'URL l'adresse IP pour obtenir la page détaillée de cette adresse. Donc, toute modification du site internet rend ce code potentiellement caduc.
L'idéal serait de savoir comment ce site fait pour obtenir le détail de l'adresse IP afin de faire un script autonome.