遍历状态 遍历主机的所有IP地址

遍历主机的所有IP地址  

　　Framework类库的System Net名称空间提供了一个简单的网络编程接口 Dns类提供了简单的域名解析功能 它是一个静态的类 可以通过Internet Domain Name System（DNS）得到指定主机的信息 DNS查询得到的主机信息是一个IPHostEntry类的实例 如果指定的主机在DNS数据库中有多于一个的Entry IPHostEntry将包含多个地址及其别名 下面的代码实现了得到机器所有IP的功能

　　Imports SystemImports System Net

　　Module Module

　　Sub Main()    Dim strMachineName As String

　　 得到主机名    strMachineName = Dns GetHostName()    Console WriteLine( Host Name: + strMachineName)

　　 通过名字得到主机    Dim ipHost As IPHostEntry    ipHost = Dns GetHostByName(strMachineName)

　　 你可以得到网络上任何站点的DNS数据信息     语法如下     ipHost = Dns GetHostByName( <a _blank >XML</a> )    Console WriteLine( Host Aliases: + ipHost Aliases Length ToString())

　　 以数组的形式返回相关主机的地址信息    Dim ipAddr() As IPAddress = ipHost AddressList    Dim count As Integer

　　 Enumerate the IP Addresses    For count = To ipAddr GetUpperBound( )      Console Write( IP 地址 { } { } count _          ipAddr(count) ToString)    Next  End Sub