Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Select Case Uri.CheckHostName("www.rntsoft.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