в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:49:47Z

1 версия

Новая страница

==WebRequest.Address==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Address: " & httpReq.Address.ToString)
Console.WriteLine("AllowAutoRedirect: " & httpReq.AllowAutoRedirect.ToString)
Console.WriteLine("AllowWriteStreamBuffering: " & httpReq.AllowWriteStreamBuffering.ToString)
Console.WriteLine("ClientCertificates: " & httpReq.ClientCertificates.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.AllowAutoRedirect==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Address: " & httpReq.Address.ToString)
Console.WriteLine("AllowAutoRedirect: " & httpReq.AllowAutoRedirect.ToString)
Console.WriteLine("AllowWriteStreamBuffering: " & httpReq.AllowWriteStreamBuffering.ToString)
Console.WriteLine("ClientCertificates: " & httpReq.ClientCertificates.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.AllowWriteStreamBuffering==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Address: " & httpReq.Address.ToString)
Console.WriteLine("AllowAutoRedirect: " & httpReq.AllowAutoRedirect.ToString)
Console.WriteLine("AllowWriteStreamBuffering: " & httpReq.AllowWriteStreamBuffering.ToString)
Console.WriteLine("ClientCertificates: " & httpReq.ClientCertificates.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.ClientCertificates==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Address: " & httpReq.Address.ToString)
Console.WriteLine("AllowAutoRedirect: " & httpReq.AllowAutoRedirect.ToString)
Console.WriteLine("AllowWriteStreamBuffering: " & httpReq.AllowWriteStreamBuffering.ToString)
Console.WriteLine("ClientCertificates: " & httpReq.ClientCertificates.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.Connection==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.Connection <> Nothing Then
Console.WriteLine("Connection: " & httpReq.Connection.ToString)
End If
If httpReq.ConnectionGroupName <> Nothing Then
Console.WriteLine("ConnectionGroupName: " & httpReq.ConnectionGroupName.ToString)
End If
If httpReq.ContentLength <> -1 Then
Console.WriteLine("ContentLength: " & httpReq.ContentLength.ToString)
End If
If httpReq.ContentType <> Nothing Then
Console.WriteLine("ContentType: " & httpReq.ContentType.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.ConnectionGroupName==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.Connection <> Nothing Then
Console.WriteLine("Connection: " & httpReq.Connection.ToString)
End If
If httpReq.ConnectionGroupName <> Nothing Then
Console.WriteLine("ConnectionGroupName: " & httpReq.ConnectionGroupName.ToString)
End If
If httpReq.ContentLength <> -1 Then
Console.WriteLine("ContentLength: " & httpReq.ContentLength.ToString)
End If
If httpReq.ContentType <> Nothing Then
Console.WriteLine("ContentType: " & httpReq.ContentType.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.ContentLength==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.Connection <> Nothing Then
Console.WriteLine("Connection: " & httpReq.Connection.ToString)
End If
If httpReq.ConnectionGroupName <> Nothing Then
Console.WriteLine("ConnectionGroupName: " & httpReq.ConnectionGroupName.ToString)
End If
If httpReq.ContentLength <> -1 Then
Console.WriteLine("ContentLength: " & httpReq.ContentLength.ToString)
End If
If httpReq.ContentType <> Nothing Then
Console.WriteLine("ContentType: " & httpReq.ContentType.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.ContentType==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.Connection <> Nothing Then
Console.WriteLine("Connection: " & httpReq.Connection.ToString)
End If
If httpReq.ConnectionGroupName <> Nothing Then
Console.WriteLine("ConnectionGroupName: " & httpReq.ConnectionGroupName.ToString)
End If
If httpReq.ContentLength <> -1 Then
Console.WriteLine("ContentLength: " & httpReq.ContentLength.ToString)
End If
If httpReq.ContentType <> Nothing Then
Console.WriteLine("ContentType: " & httpReq.ContentType.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.Create==

<source lang="vbnet">
Imports System
Imports System.Windows.Forms
Imports System.IO
Imports System.Net
Public Class MainClass
Public Shared Sub Main()
Try
Dim theURL As New Uri("http://www.amazon.ru/exec/obidos/ASIN/1893115992")
Dim theRequest As WebRequest
theRequest = WebRequest.Create(theURL)
Dim theResponse As WebResponse
theResponse = theRequest.GetResponse
Dim aReader As New StreamReader(theResponse.GetResponseStream())
Dim theData As String
theData = aReader.ReadToEnd

Console.WriteLine("Getting Amazon rank for ISBN # 1893115992")

Console.WriteLine(theData)

Catch E As Exception
Console.WriteLine(E.StackTrace)
End Try
End Sub
End Class

</source>

==WebRequest.GetResponse==

<source lang="vbnet">
Imports System
Imports System.Windows.Forms
Imports System.IO
Imports System.Net
Public Class MainClass
Public Shared Sub Main()
Try
Dim theURL As New Uri("http://www.amazon.ru/exec/obidos/ASIN/1893115992")
Dim theRequest As WebRequest
theRequest = WebRequest.Create(theURL)
Dim theResponse As WebResponse
theResponse = theRequest.GetResponse
Dim aReader As New StreamReader(theResponse.GetResponseStream())
Dim theData As String
theData = aReader.ReadToEnd

Console.WriteLine("Getting Amazon rank for ISBN # 1893115992")

Console.WriteLine(theData)

Catch E As Exception
Console.WriteLine(E.StackTrace)
End Try
End Sub
End Class

</source>

==WebRequest.MediaType==

<source lang="vbnet">

Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.MediaType <> Nothing Then
Console.WriteLine("MediaType: " & httpReq.MediaType.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.Method==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Method: " & httpReq.Method.ToString)
Console.WriteLine("PreAuthenticate: " & httpReq.PreAuthenticate)
Console.WriteLine("ProtocolVersion: " & httpReq.ProtocolVersion.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.PreAuthenticate==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Method: " & httpReq.Method.ToString)
Console.WriteLine("PreAuthenticate: " & httpReq.PreAuthenticate)
Console.WriteLine("ProtocolVersion: " & httpReq.ProtocolVersion.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.ProtocolVersion==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

Console.WriteLine("Method: " & httpReq.Method.ToString)
Console.WriteLine("PreAuthenticate: " & httpReq.PreAuthenticate)
Console.WriteLine("ProtocolVersion: " & httpReq.ProtocolVersion.ToString)

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.Referer==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.Referer <> Nothing Then
Console.WriteLine("Referer: " & httpReq.Referer.ToString)
End If

Console.WriteLine("RequestUri: " & httpReq.RequestUri.ToString)

If (httpReq.RequestUri.ToString() <> httpReq.Address.ToString()) Then
Console.WriteLine("URL has been changed.")
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.RequestUri==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.Referer <> Nothing Then
Console.WriteLine("Referer: " & httpReq.Referer.ToString)
End If

Console.WriteLine("RequestUri: " & httpReq.RequestUri.ToString)

If (httpReq.RequestUri.ToString() <> httpReq.Address.ToString()) Then
Console.WriteLine("URL has been changed.")
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.TransferEncoding==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.TransferEncoding <> Nothing Then
Console.WriteLine("TransferEncoding: " & httpReq.TransferEncoding.ToString)
End If

If httpReq.UserAgent <> Nothing Then
Console.WriteLine("UserAgent: " & httpReq.UserAgent.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

==WebRequest.UserAgent==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest

Try
Dim httpURL As New System.Uri("http://www.vbex.ru/index.htm?key=value")

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

If httpReq.TransferEncoding <> Nothing Then
Console.WriteLine("TransferEncoding: " & httpReq.TransferEncoding.ToString)
End If

If httpReq.UserAgent <> Nothing Then
Console.WriteLine("UserAgent: " & httpReq.UserAgent.ToString)
End If

Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Net/WebRequest - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия