VB.Net Tutorial/Socket Network/Uri

Материал из VB Эксперт
Версия от 12:55, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Create Uri object and get AbsolutePath and 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
http://www.vbex.ru/
/

Get Port and Scheme from a Uri

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
www.vbex.ru
/
http://www.vbex.ru:8080/
8080
http

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
Dns

Uri Host Name Type

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
HostNameType: DNS

URL properties

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