VB.Net by API/System.Net/WebRequest

Материал из VB Эксперт
Перейти к: навигация, поиск

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>