VB.Net Tutorial/Socket Network/Uri

Create Uri object and get AbsolutePath and AbsoluteUri

Imports System.Net
Imports System.Net.Sockets

Public Class Tester
    Public Shared Sub Main

        Dim aUri As New Uri("http://www.vbex.ru/")
        Console.WriteLine(aUri.AbsoluteUri)
        Console.WriteLine(aUri.AbsolutePath)

    End Sub
End Class

http://www.vbex.ru/
/

Get Port and Scheme from a Uri

Imports System.Net
Imports System.Net.Sockets

Public Class Tester
    Public Shared Sub Main
        Dim myURI As New Uri("http://www.vbex.ru:8080")
        Console.WriteLine(myURI.Host)
        Console.WriteLine(myURI.AbsolutePath)
        Console.WriteLine(myURI.AbsoluteUri)
        Console.WriteLine(myURI.Port.ToString)
        Console.WriteLine(myURI.Scheme)
    End Sub
End Class

www.vbex.ru
/
http://www.vbex.ru:8080/
8080
http

Uri.CheckHostName

Imports System.Net
Imports System.Net.Sockets

Public Class Tester
    Public Shared Sub Main
        Select Case Uri.CheckHostName("www.vbex.ru")
            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

Dns

Uri Host Name Type

Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim URL As System.Uri
    
        URL = New System.Uri("http://www.vbex.ru/index.htm?key=value")
        If URL.HostNameType = UriHostNameType.Basic Then
          Console.WriteLine("HostNameType: Basic")
        ElseIf URL.HostNameType = UriHostNameType.Dns Then
          Console.WriteLine("HostNameType: DNS")
        ElseIf URL.HostNameType = UriHostNameType.IPv4 Then
          Console.WriteLine("HostNameType: IPv4")
        ElseIf URL.HostNameType = UriHostNameType.IPv6 Then
          Console.WriteLine("HostNameType: IPv6")
        ElseIf URL.HostNameType = UriHostNameType.Unknown Then
          Console.WriteLine("HostNameType: Unknown")
        End If    
    End Sub
End Class

HostNameType: DNS

URL properties

Imports System.Net
Imports System.Net.Sockets

Public Class Tester
    Public Shared Sub Main
        Dim URL As System.Uri
    
        URL = New System.Uri("http://www.vbex.ru/index.htm?key=value")
    
        Console.WriteLine("AbsolutePath: " & URL.AbsolutePath)
        Console.WriteLine("AbsoluteUri: " & URL.AbsoluteUri)
        Console.WriteLine("Authority: " & URL.Authority)
        Console.WriteLine("Host: " & URL.Host)
        Console.WriteLine("Port: " & URL.Port)
        Console.WriteLine("LocalPath: " & URL.LocalPath)
        Console.WriteLine("IsDefaultPort: " & URL.IsDefaultPort)
        Console.WriteLine("IsFile: " & URL.IsFile)
        Console.WriteLine("PathAndQuery: " & URL.PathAndQuery)
        Console.WriteLine("Query: " & URL.Query)
        Console.WriteLine("Scheme: " & URL.Scheme)
        Console.WriteLine("UserEscaped: " & URL.UserEscaped)
        Console.WriteLine("UserInfo: " & URL.UserInfo)
    
    
    End Sub
End Class

AbsolutePath: /index.htm
AbsoluteUri: http://www.vbex.ru/index.htm?key=value
Authority: www.vbex.ru
Host: www.vbex.ru
Port: 80
LocalPath: /index.htm
IsDefaultPort: True
IsFile: False
PathAndQuery: /index.htm?key=value
Query: ?key=value
Scheme: http
UserEscaped: False
UserInfo: