VB.Net by API/System.Net/WebRequest — различия между версиями

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

Текущая версия на 12:49, 26 мая 2010

WebRequest.Address

  
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


WebRequest.AllowAutoRedirect

  
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


WebRequest.AllowWriteStreamBuffering

  
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


WebRequest.ClientCertificates

  
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


WebRequest.Connection

  
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


WebRequest.ConnectionGroupName

  
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


WebRequest.ContentLength

  
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


WebRequest.ContentType

  
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


WebRequest.Create

  
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


WebRequest.GetResponse

  
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


WebRequest.MediaType

  
 
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


WebRequest.Method

  
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


WebRequest.PreAuthenticate

  
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


WebRequest.ProtocolVersion

  
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


WebRequest.Referer

  
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


WebRequest.RequestUri

  
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


WebRequest.TransferEncoding

  
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


WebRequest.UserAgent

  
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