• 您的位置我爱Aspx >> VB.Net >> 遍历主机的所有IP地址

    • 遍历主机的所有IP地址

  • 作者:aspxer  来源:internet  日期:2007-4-25 20:55:38  关键字:

  • 遍历主机的所有IP地址 作者：孟宪会 出自：【孟宪会之精彩世界】 发布日期：2003年8月5日 17点40分7秒

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

    Imports System Imports System.Net Module Module1 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("xml.sz.luohuedu.net") Console.WriteLine("Host Aliases: " + ipHost.Aliases.Length.ToString()) '以数组的形式返回相关主机的地址信息 Dim ipAddr() As IPAddress = ipHost.AddressList Dim count As Integer 'Enumerate the IP Addresses For count = 0 To ipAddr.GetUpperBound(0) Console.Write("IP 地址 {0}：{1} ", count, _ ipAddr(count).ToString) Next End Sub End Module

    【我对这篇文章有话说?】
  • 广告位招租，广告代号：content_468_15
  • 上一篇：从Window系统托盘控制Windows服务
    下一篇：编写随Windows启动运行的程序
  • 相关文章