科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件遍历主机的所有IP地址

遍历主机的所有IP地址

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

.net Framework类库的System.Net名称空间提供了一个简单的网络编程接口。

作者:佚名 来源:中国IT实验室 2008年6月7日

关键字: 地址 主机 VB vb.net Windows

  • 评论
  • 分享微博
  • 分享邮件
 .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("<a href="http://dev.21tx.comhttp://dotnet.chinaitlab.com/xml/" target="_blank">XML</a>.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

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章