|
Framework类库的SystemNet名称空间提供了一个简单的网络编程接口Dns类提供了简单的域名解析功能它是一个静态的类可以通过Internet Domain Name System（DNS）得到指定主机的信息DNS查询得到的主机信息是一个IPHostEntry类的实例如果指定的主机在DNS数据库中有多于一个的EntryIPHostEntry将包含多个地址及其别名下面的代码实现了得到机器所有IP的功能 Imports System Imports SystemNet Module Module Sub Main() Dim strMachineName As String 得到主机名 strMachineName = DnsGetHostName() ConsoleWriteLine(Host Name: + strMachineName) 通过名字得到主机 Dim ipHost As IPHostEntry ipHost = DnsGetHostByName(strMachineName) 你可以得到网络上任何站点的DNS数据信息 语法如下 ipHost = DnsGetHostByName(<a _blank>XML</a>) ConsoleWriteLine(Host Aliases: + ipHostAliasesLengthToString()) 以数组的形式返回相关主机的地址信息 Dim ipAddr() As IPAddress = ipHostAddressList Dim count As Integer Enumerate the IP Addresses For count = To ipAddrGetUpperBound() ConsoleWrite(IP 地址 {}{} count _ ipAddr(count)ToString) Next End Sub End Module |
