IPAddrv4ToInt32

TCPStartup()
ConsoleWrite("http://" & IPAddrv4ToInt32(TCPNameToIP("www.google.com")) & "/" & @CRLF)
TCPShutdown()

Func IPAddrv4ToInt32($ipaddrv4)
    $ipaddrv4 = StringRegExp($ipaddrv4, "^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$", 3)
    If @error Then Return SetError(1, 0, -1)
    Local $int32 = 0, $i
    For $i = 0 To 3 Step 1
        $int32 += $ipaddrv4[$i] * 256^(3-$i)
    Next
    Return $int32
EndFunc