VB.Net域名转换为IP地址的实例

测试平台：vs2005+.net framework 3.5sp1 + windows2003  

代码如下：

Imports System.Net

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objIPHostEntry As IPHostEntry
        Dim i As Integer
        Try
            objIPHostEntry = Dns.GetHostEntry(Trim("www.lob.cn")) '把www.lob.cn 乐博网的域名对应的ip地址解析出来

            For i = 0 To objIPHostEntry.AddressList.Length - 1

                MessageBox.Show(objIPHostEntry.AddressList(i).ToString())

            Next i

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

End Class

乐博网提示：在测试的时候，也可以用www.sina.com.cn测试看看，他们采用DNS轮循技术(负载平衡技术)实现 一个域名对应到多个IP 上，所以我们通过程序测试的结果，就可能产生多个地址，但ip地址列表并不完整遍历。同时建议在检测大量域名对应的ip地址时，可以采用多线程加快转换速度。