下面程序中用到的一些类的说明如下：
'IPHostEntry 是为 Internet 主机地址信息提供容器类。
‘Dns用来提供简单的域名解析功能
’Dns 类是一个静态类，它从 Internet 域名系统 (DNS) 检索关于特定主机的信息。
‘在 IPHostEntry 类的实例中返回来自 DNS 查询的主机信息。如果指定的主机在 DNS 数据库中有多个入口，则 IPHostEntry 包含 多个 IP 地址和别名。
imports system.net
'To get a www address
Dim i As Integer
Dim ipE As IPHostEntry = Dns.GetHostByName("
www.vbcity.com") // IPHostEntry 类的实例 在DNS 数据库中查询关于主机 www.vbcity.com的信息
Dim IpA() As IPAddress = ipE.AddressList //类的实例中返回来自 DNS 查询的主机信息，获取或设置与主机关联的 IP 地址列表。
For i = 0 To IpA.GetUpperBound(0) //如果指定的主机在 DNS 数据库中有多个入口
Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString) //，则 IPHostEntry 包含 多个 IP 地址和别名。
Next
'To get local address
Dim sHostName As String
Dim i As Integer
sHostName = Dns.GetHostName() //获取本地计算机的主机名。
Dim ipE As IPHostEntry = Dns.GetHostByName(sHostName) //获取指定 DNS 主机名的 DNS 信息。
Dim IpA() As IPAddress = ipE.AddressList //获取或设置与主机关联的 IP 地址列表。
For i = 0 To IpA.GetUpperBound(0)
Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)
Next
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。