URLtoIP

[OneManPen]

Hey all, I'm working on a IP blocker, and I'm using the windows filewall to do this... and I want to make a way to add URL's but since windows firewall only allows IP's I need a way to convert the URL address into a IP Address. I tried searching the forum but it's kind of hard searching with the terms "URL" "TO" "IP". Thanks in advance.

[somdcomputerguy]

The Windows ping command will do this.

[OneManPen]

Yeah... But how to make it invisible to the user... my current knowledge doesn't quite know how to do this yet...

[golfinhu]

try it:

Report if have error, because i can't test now!

Local $ip = UrlToIP('www.autoitscript.com')
MsgBox(0, '', $ip)
Func UrlToIP($sHost)
Local $read, $ip, $foo
$foo = Run("ping.exe " & $sHost, @SystemDir, @SW_HIDE, 3)
While True
  $read = StdoutRead($foo)
  If @error Then ExitLoop
  $ip = StringRegExp($read, "[(d{1,3}.d{1,3}.d{1,3}.d{1,3})]", 3)
  If IsArray($ip) Then Return $ip[0]
  Sleep(25)
WEnd
Return SetError(1, 0, "0.0.0.0")
EndFunc   ;==>UrlToIP

Edited February 9, 2012 by golfinhu

[hannes08]

Maybe you want to look at TCPNameToIP() which will convert a name to an IP without the need to call ping. (Anyway for this it would have been better to call nslookup instead of ping...)

[kokoilie]

fixed it

Local $ip = UrlToIP('www.autoitscript.com')
MsgBox(0, '', $ip)
Func UrlToIP($sHost)
Local $read, $ip, $foo
$foo = Run("ping.exe " & $sHost, @SystemDir, @SW_HIDE, 3)
While True
$read = StdoutRead($foo)
If @error Then ExitLoop
$ip = StringRegExp($read, "ddd.ddd.ddd.ddd", 3);the pattern war wrong
If IsArray($ip) Then Return $ip[0]
Sleep(25)
WEnd
Return SetError(1, 0, "0.0.0.0")
EndFunc ;==>UrlToIP

should work properly

thx golfinhu for the idea

[hannes08]

TCPStartup()
ConsoleWrite( TCPNameToIP("www.google.com") & @CRLF)
Exit

Less and easier code, isn't it?

[guinness]

TCPStartup()
ConsoleWrite( TCPNameToIP("www.google.com") & @CRLF)
Exit

Less and easier code, isn't it?

Don't forget TCPShutdown. Edited August 28, 2012 by guinness