笔记9：Networklnterface 类

标签：

一、Networklnterface 类
           这个类可以得到本机所有的物理网络接口，和虚拟机等软件利用本机的物理网络接口创建的逻辑网络接口的信息。
            Networklnterface类为Mustlnherit，不能直接创建对象。故只可通过其定义的GetAllNetworkInterfaces()方法取得所需的Networklnterface对象。而后通过属性取得相关信息。

            Public Shared Function GetAllNetworklnterfaces As Networklnterface()

            Public MustOverride Function GetIPProperties As IPInterfaceProperties

            MustOverride Function GetPhysicalAddress As PhysicalAddress

            Public MustOverride Function Supports (networklnterfaceComponent As NetworklnterfaceComponent )As Boolean

       列举本机网络接口及信息。

Imports System.Net.NetworkInformation

Public Class Form1
    Private Sub btnInterface_Click(sender As Object, e As EventArgs) Handles btnInterface.Click
        Dim adapter As NetworkInterface
        Dim adapters As NetworkInterface() '加括号表示数组（多个）
        Dim strInfo As String = ""
        Dim intNum As Int32

        adapters = NetworkInterface.GetAllNetworkInterfaces

        '数组为空或者数组无成员，说明无接口,退出
        If adapters.Equals(Nothing) Or adapters.Length < 1 Then
            txtInterface.Text = "无网络接口."
            Return
        End If

        For Each adapter In adapters '列举集合每一个接口元素
            intNum += 1
            strInfo &= "网络接口 " & intNum.ToString & vbCrLf
            strInfo &= "----------------" & vbCrLf
            strInfo &= "接口描述：" & adapter.Description & vbCrLf
            strInfo &= "适配器标识符：" & adapter.Id & vbCrLf
            strInfo &= "是否只接收封包：" & adapter.IsReceiveOnly.ToString & vbCrLf
            strInfo &= "接口名称：" & adapter.Name & vbCrLf
            strInfo &= "当前操作状态：" & adapter.OperationalStatus.ToString & vbCrLf
            strInfo &= "接口速度：" & adapter.Speed.ToString & vbCrLf
            strInfo &= "是否接收多路封包：" & adapter.SupportsMulticast.ToString & vbCrLf
            strInfo &= "是否支持IPv4：" & adapter.Supports(NetworkInterfaceComponent.IPv4).ToString & vbCrLf
            strInfo &= "是否支持IPv6：" & adapter.Supports(NetworkInterfaceComponent.IPv6).ToString & vbCrLf
            strInfo &= "MAC地址：" & adapter.GetPhysicalAddress.ToString & vbCrLf
            strInfo &= "接口描述：" & adapter.Description.ToString & vbCrLf
            strInfo &= vbCrLf & vbCrLf
        Next

        txtInterface.Text = strInfo
    End Sub
End Class

笔记9：Networklnterface 类

标签：

原文地址：http://blog.csdn.net/dzweather/article/details/51366496