VB.Net by API/System/Uri

Uri.AbsolutePath

<source lang="vbnet"> 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

 </source>

Uri.AbsoluteUri

<source lang="vbnet"> 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

 </source>

Uri.CheckHostName

<source lang="vbnet"> 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

 </source>

Uri.Port

<source lang="vbnet"> 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

 </source>

Uri.Scheme

<source lang="vbnet"> 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

 </source>

Uri.UserEscaped

<source lang="vbnet"> 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

 </source>

Uri.UserInfo

<source lang="vbnet"> 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

 </source>