VB.Net by API/System.Net/WebRequest — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:49, 26 мая 2010
Содержание
- 1 WebRequest.Address
- 2 WebRequest.AllowAutoRedirect
- 3 WebRequest.AllowWriteStreamBuffering
- 4 WebRequest.ClientCertificates
- 5 WebRequest.Connection
- 6 WebRequest.ConnectionGroupName
- 7 WebRequest.ContentLength
- 8 WebRequest.ContentType
- 9 WebRequest.Create
- 10 WebRequest.GetResponse
- 11 WebRequest.MediaType
- 12 WebRequest.Method
- 13 WebRequest.PreAuthenticate
- 14 WebRequest.ProtocolVersion
- 15 WebRequest.Referer
- 16 WebRequest.RequestUri
- 17 WebRequest.TransferEncoding
- 18 WebRequest.UserAgent
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>