[DNS] Get IP address by domain name

Imports System.Net
Imports System.Net.Sockets


Public Class Tester
    Public Shared Sub Main


        Try
            Dim myIPHostEntry As IPHostEntry = Dns.Resolve("www.google.com")
            Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList
            Dim myIPAddress As IPAddress

            Dim strIPAddressList As String

            For Each myIPAddress In myIPAddresses

                Console.WriteLine(myIPAddress.ToString)

            Next
        Catch ex As SocketException
            Console.WriteLine(ex.Message)
        End Try

    End Sub
End Class

----------------------------------------------------------

ผลของโปรแกรม จะทำการแปลงชื่อโดเมนจาก http://www.google.com/ เป็น IP Address ของโดเมนดังกล่าว เนื่องจากเว็บกูเกิ้ลไม่ได้มี Host เพียง IP เดียว จึงต้องใช้ For each เก็บ IP Address เป็นอาเรย์ไว้ จากที่ทดลอง Code นี้

ทางกูเกิ้ลดอทคอม มี IP Address: 6 IP