vb System.Uri.UserInfo类(方法)实例源码

Dim uriAddress As New Uri("http://user:password@www.contoso.com/index.htm ")
Console.WriteLine(uriAddress.UserInfo)
Console.WriteLine("Fully Escaped {0}", IIf(uriAddress.UserEscaped, "yes", "no")) 'TODO: For performance reasons this should be changed to nested IF statements

' 导入命名空间
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.java2s.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