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

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

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

HttpWebResponse.CharacterSet

  
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
    
        Try
          Dim httpURL As New System.Uri("http://www.vbex.ru")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
          httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    
          Console.WriteLine("CharacterSet: " & httpResp.CharacterSet.ToString)
          Console.WriteLine("ContentEncoding: " & httpResp.ContentEncoding.ToString)
          Console.WriteLine("ContentLength: " & httpResp.ContentLength.ToString)
          Console.WriteLine("ContentType: " & httpResp.ContentType.ToString)
          Console.WriteLine("LastModified: " & httpResp.LastModified.ToString)
          Console.WriteLine("Method: " & httpResp.Method.ToString)
          Console.WriteLine("ProtocolVersion: " & httpResp.ProtocolVersion.ToString)
          Console.WriteLine("ResponseUri: " & httpResp.ResponseUri.ToString)
          Console.WriteLine("Server: " & httpResp.Server.ToString)
          Console.WriteLine("StatusCode: " & httpResp.StatusCode.ToString)
          Console.WriteLine("StatusDescription: " & httpResp.StatusDescription.ToString)
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class


HttpWebResponse.ContentEncoding

  
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
    
        Try
          Dim httpURL As New System.Uri("http://www.vbex.ru")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
          httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    
          Console.WriteLine("CharacterSet: " & httpResp.CharacterSet.ToString)
          Console.WriteLine("ContentEncoding: " & httpResp.ContentEncoding.ToString)
          Console.WriteLine("ContentLength: " & httpResp.ContentLength.ToString)
          Console.WriteLine("ContentType: " & httpResp.ContentType.ToString)
          Console.WriteLine("LastModified: " & httpResp.LastModified.ToString)
          Console.WriteLine("Method: " & httpResp.Method.ToString)
          Console.WriteLine("ProtocolVersion: " & httpResp.ProtocolVersion.ToString)
          Console.WriteLine("ResponseUri: " & httpResp.ResponseUri.ToString)
          Console.WriteLine("Server: " & httpResp.Server.ToString)
          Console.WriteLine("StatusCode: " & httpResp.StatusCode.ToString)
          Console.WriteLine("StatusDescription: " & httpResp.StatusDescription.ToString)
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class


HttpWebResponse.ContentLength

  
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
    
        Try
          Dim httpURL As New System.Uri("http://www.vbex.ru")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
          httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    
          Console.WriteLine("CharacterSet: " & httpResp.CharacterSet.ToString)
          Console.WriteLine("ContentEncoding: " & httpResp.ContentEncoding.ToString)
          Console.WriteLine("ContentLength: " & httpResp.ContentLength.ToString)
          Console.WriteLine("ContentType: " & httpResp.ContentType.ToString)
          Console.WriteLine("LastModified: " & httpResp.LastModified.ToString)
          Console.WriteLine("Method: " & httpResp.Method.ToString)
          Console.WriteLine("ProtocolVersion: " & httpResp.ProtocolVersion.ToString)
          Console.WriteLine("ResponseUri: " & httpResp.ResponseUri.ToString)
          Console.WriteLine("Server: " & httpResp.Server.ToString)
          Console.WriteLine("StatusCode: " & httpResp.StatusCode.ToString)
          Console.WriteLine("StatusDescription: " & httpResp.StatusDescription.ToString)
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class


HttpWebResponse.ProtocolVersion

  
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
    
        Try
          Dim httpURL As New System.Uri("http://www.vbex.ru")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
          httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    
          Console.WriteLine("CharacterSet: " & httpResp.CharacterSet.ToString)
          Console.WriteLine("ContentEncoding: " & httpResp.ContentEncoding.ToString)
          Console.WriteLine("ContentLength: " & httpResp.ContentLength.ToString)
          Console.WriteLine("ContentType: " & httpResp.ContentType.ToString)
          Console.WriteLine("LastModified: " & httpResp.LastModified.ToString)
          Console.WriteLine("Method: " & httpResp.Method.ToString)
          Console.WriteLine("ProtocolVersion: " & httpResp.ProtocolVersion.ToString)
          Console.WriteLine("ResponseUri: " & httpResp.ResponseUri.ToString)
          Console.WriteLine("Server: " & httpResp.Server.ToString)
          Console.WriteLine("StatusCode: " & httpResp.StatusCode.ToString)
          Console.WriteLine("StatusDescription: " & httpResp.StatusDescription.ToString)
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class


HttpWebResponse.StatusDescription

  
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
    Public Shared Sub Main
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
    
        Try
          Dim httpURL As New System.Uri("http://www.vbex.ru")
    
          httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
          httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    
          Console.WriteLine("CharacterSet: " & httpResp.CharacterSet.ToString)
          Console.WriteLine("ContentEncoding: " & httpResp.ContentEncoding.ToString)
          Console.WriteLine("ContentLength: " & httpResp.ContentLength.ToString)
          Console.WriteLine("ContentType: " & httpResp.ContentType.ToString)
          Console.WriteLine("LastModified: " & httpResp.LastModified.ToString)
          Console.WriteLine("Method: " & httpResp.Method.ToString)
          Console.WriteLine("ProtocolVersion: " & httpResp.ProtocolVersion.ToString)
          Console.WriteLine("ResponseUri: " & httpResp.ResponseUri.ToString)
          Console.WriteLine("Server: " & httpResp.Server.ToString)
          Console.WriteLine("StatusCode: " & httpResp.StatusCode.ToString)
          Console.WriteLine("StatusDescription: " & httpResp.StatusDescription.ToString)
    
        Catch ex As Exception
          Console.WriteLine(ex.StackTrace.ToString())
        End Try
    End Sub
End Class