vb System.Uri.CheckHostName类(方法)实例源码

' 导入命名空间
Imports System.Net
Imports System.Net.Sockets


Public Class Tester
    Public Shared Sub Main

        Select Case Uri.CheckHostName("www.java2s.com")
            Case UriHostNameType.Basic
                Console.WriteLine("Basic")
            Case UriHostNameType.Dns
                Console.WriteLine("Dns")
            Case UriHostNameType.IPv4
                Console.WriteLine("IPv4")
            Case UriHostNameType.IPv6
                Console.WriteLine("IPv6")
            Case UriHostNameType.Unknown
                Console.WriteLine("Unknown")
        End Select

    End Sub
End Class