http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_Tutorial%2FSocket_Network%2FUri
VB.Net Tutorial/Socket Network/Uri - История изменений
2026-04-05T11:59:04Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Socket_Network/Uri&diff=3514&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:30Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Socket_Network/Uri&diff=3515&oldid=prev
Admin: 1 версия
2010-05-26T12:55:51Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Create Uri object and get AbsolutePath and AbsoluteUri==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Net<br />
Imports System.Net.Sockets<br />
<br />
Public Class Tester<br />
Public Shared Sub Main<br />
<br />
Dim aUri As New Uri("http://www.vbex.ru/")<br />
Console.WriteLine(aUri.AbsoluteUri)<br />
Console.WriteLine(aUri.AbsolutePath)<br />
<br />
End Sub<br />
End Class</source><br />
<pre class=codeResult>http://www.vbex.ru/<br />
/</pre><br />
<br />
==Get Port and Scheme from a Uri==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Net<br />
Imports System.Net.Sockets<br />
<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim myURI As New Uri("http://www.vbex.ru:8080")<br />
Console.WriteLine(myURI.Host)<br />
Console.WriteLine(myURI.AbsolutePath)<br />
Console.WriteLine(myURI.AbsoluteUri)<br />
Console.WriteLine(myURI.Port.ToString)<br />
Console.WriteLine(myURI.Scheme)<br />
End Sub<br />
End Class</source><br />
<pre class=codeResult>www.vbex.ru<br />
/<br />
http://www.vbex.ru:8080/<br />
8080<br />
http</pre><br />
<br />
==Uri.CheckHostName==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Net<br />
Imports System.Net.Sockets<br />
<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Select Case Uri.CheckHostName("www.vbex.ru")<br />
Case UriHostNameType.Basic<br />
Console.WriteLine("Basic")<br />
Case UriHostNameType.Dns<br />
Console.WriteLine("Dns")<br />
Case UriHostNameType.IPv4<br />
Console.WriteLine("IPv4")<br />
Case UriHostNameType.IPv6<br />
Console.WriteLine("IPv6")<br />
Case UriHostNameType.Unknown<br />
Console.WriteLine("Unknown")<br />
End Select<br />
End Sub<br />
End Class</source><br />
<pre class=codeResult>Dns</pre><br />
<br />
==Uri Host Name Type==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Net<br />
Imports System.Net.Sockets<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim URL As System.Uri<br />
<br />
URL = New System.Uri("http://www.vbex.ru/index.htm?key=value")<br />
If URL.HostNameType = UriHostNameType.Basic Then<br />
Console.WriteLine("HostNameType: Basic")<br />
ElseIf URL.HostNameType = UriHostNameType.Dns Then<br />
Console.WriteLine("HostNameType: DNS")<br />
ElseIf URL.HostNameType = UriHostNameType.IPv4 Then<br />
Console.WriteLine("HostNameType: IPv4")<br />
ElseIf URL.HostNameType = UriHostNameType.IPv6 Then<br />
Console.WriteLine("HostNameType: IPv6")<br />
ElseIf URL.HostNameType = UriHostNameType.Unknown Then<br />
Console.WriteLine("HostNameType: Unknown")<br />
End If <br />
End Sub<br />
End Class</source><br />
<pre class=codeResult>HostNameType: DNS</pre><br />
<br />
==URL properties==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Net<br />
Imports System.Net.Sockets<br />
<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim URL As System.Uri<br />
<br />
URL = New System.Uri("http://www.vbex.ru/index.htm?key=value")<br />
<br />
Console.WriteLine("AbsolutePath: " & URL.AbsolutePath)<br />
Console.WriteLine("AbsoluteUri: " & URL.AbsoluteUri)<br />
Console.WriteLine("Authority: " & URL.Authority)<br />
Console.WriteLine("Host: " & URL.Host)<br />
Console.WriteLine("Port: " & URL.Port)<br />
Console.WriteLine("LocalPath: " & URL.LocalPath)<br />
Console.WriteLine("IsDefaultPort: " & URL.IsDefaultPort)<br />
Console.WriteLine("IsFile: " & URL.IsFile)<br />
Console.WriteLine("PathAndQuery: " & URL.PathAndQuery)<br />
Console.WriteLine("Query: " & URL.Query)<br />
Console.WriteLine("Scheme: " & URL.Scheme)<br />
Console.WriteLine("UserEscaped: " & URL.UserEscaped)<br />
Console.WriteLine("UserInfo: " & URL.UserInfo)<br />
<br />
<br />
End Sub<br />
End Class</source><br />
<pre class=codeResult>AbsolutePath: /index.htm<br />
AbsoluteUri: http://www.vbex.ru/index.htm?key=value<br />
Authority: www.vbex.ru<br />
Host: www.vbex.ru<br />
Port: 80<br />
LocalPath: /index.htm<br />
IsDefaultPort: True<br />
IsFile: False<br />
PathAndQuery: /index.htm?key=value<br />
Query: ?key=value<br />
Scheme: http<br />
UserEscaped: False<br />
UserInfo:</pre></div>
Admin