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.java2java.com/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
|