Page 1 sur 1
[R] Trouvé l'adresse IP d'un site a partir de son URL
Posté : dim. 04 mars 2012 18:39
par Utilisateur 3643 supprimé
Bonjour !
je me demandais tout simplement si il existait comme sur la console une sorte de commande ping pour trouvé directement l'IP du site voulu.
Re: [..] Trouvé l'adresse IP d'un site a partir de son URL
Posté : dim. 04 mars 2012 19:07
par PandiPanda
Bonsoir,
ceci peut etre ?
Code : Tout sélectionner
#include <IE.au3>
TCPStartup()
$IpGoogle=TCPNameToIP("www.google.fr")
_IECreate($IpGoogle)
TCPShutdown()
Re: [..] Trouvé l'adresse IP d'un site a partir de son URL
Posté : dim. 04 mars 2012 19:20
par Utilisateur 3643 supprimé
Oui merci
Re: [R] Trouvé l'adresse IP d'un site a partir de son URL
Posté : dim. 04 mars 2012 19:22
par TT22
Est-ce que ceci te convient :
► Afficher le texte
Code : Tout sélectionner
#include <String.au3>
#include <Process.au3>
$Site = InputBox("Info","Entrez le site dont vous souhaitez obtenir l'IP :")
MsgBox(64,"Info",_GetSitesIP($Site))
Func _GetSitesIP($Site)
FileDelete(@TempDir&"\IP_Ping_get.tmp")
_RunDOS("ping -n 1 "&$Site&" > "&@TempDir&"\IP_Ping_get.tmp")
$IP = _StringBetween(FileRead(@TempDir&"\IP_Ping_get.tmp"),"[","]")
FileDelete(@TempDir&"\IP_Ping_get.tmp")
If UBound($IP) Then
Return $IP[0]
Else
Return 0
EndIf
EndFunc
Edit : Le temps que j'écrive mon code, le sujet a été résolu
Re: [R] Trouvé l'adresse IP d'un site a partir de son URL
Posté : dim. 04 mars 2012 19:28
par mikell
Code : Tout sélectionner
#include <Constants.au3>
$url = "www.autoitscript.fr"
Local $foo = Run(@ComSpec & " /c nslookup " & $url, @SystemDir, @SW_HIDE, $STDERR_CHILD+ $STDOUT_CHILD)
Local $line
While 1
$line &= StdoutRead($foo)
If @error Then ExitLoop
Wend
MsgBox(0, "STDOUT read:", $line)