VB.Net by API/System/Uri

Uri.AbsolutePath

  
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

Uri.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

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

Uri.Port

  
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

Uri.Scheme

  
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

Uri.UserEscaped

  
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

Uri.UserInfo

  
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