本文整理汇总了VB.NET中System.Net.NetworkInformation.IPv6InterfaceProperties.Index属性的典型用法代码示例。如果您正苦于以下问题:VB.NET IPv6InterfaceProperties.Index属性的具体用法?VB.NET IPv6InterfaceProperties.Index怎么用?VB.NET IPv6InterfaceProperties.Index使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Net.NetworkInformation.IPv6InterfaceProperties
的用法示例。
在下文中一共展示了IPv6InterfaceProperties.Index属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: NetworkInterface
Public Shared Sub DisplayIPv6NetworkInterfaces()
Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
Console.WriteLine("IPv6 interface information for {0}.{1}", properties.HostName, properties.DomainName)
Dim count as Integer = 0
Dim adapter As NetworkInterface
For Each adapter In nics
' Only display informatin for interfaces that support IPv6.
If adapter.Supports(NetworkInterfaceComponent.IPv6) = False Then
GoTo ContinueForEach1
End If
count += 1
Console.WriteLine()
Console.WriteLine(adapter.Description)
' Underline the description.
Console.WriteLine(String.Empty.PadLeft(adapter.Description.Length, "="c))
Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties()
' Try to get the IPv6 interface properties.
Dim p As IPv6InterfaceProperties = adapterProperties.GetIPv6Properties()
If p Is Nothing Then
Console.WriteLine("No IPv6 information is available for this interface.")
GoTo ContinueForEach1
End If
' Display the IPv6 specific data.
Console.WriteLine(" Index ............................. : {0}", p.Index)
Console.WriteLine(" MTU ............................... : {0}", p.Mtu)
ContinueForEach1:
Next adapter
if count = 0 then
Console.WriteLine(" No IPv6 interfaces were found.")
Console.WriteLine()
End if
End Sub