VB.Net by API/System.Net/HttpWebResponse

Материал из VB Эксперт
Версия от 12:49, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Net/HttpWebResponse&oldid=2090»