熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

遍歷主機的所有IP地址

2013-11-13 09:46:13  來源: .NET編程 

  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


From:http://tw.wingwit.com/Article/program/net/201311/11540.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.