VB.Net Tutorial/Socket Network/Uri

Create Uri object and get AbsolutePath and 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>

http://www.vbex.ru/
/

Get Port and Scheme from a Uri

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

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

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>

Dns

Uri Host Name Type

<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")
       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</source>

HostNameType: DNS

URL properties

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

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: