VB.Net by API/System.Net/HttpWebResponse — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
Содержание
HttpWebResponse.CharacterSet
<source lang="vbnet"> 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
</source>
HttpWebResponse.ContentEncoding
<source lang="vbnet"> 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
</source>
HttpWebResponse.ContentLength
<source lang="vbnet"> 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
</source>
HttpWebResponse.ProtocolVersion
<source lang="vbnet"> 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
</source>
HttpWebResponse.StatusDescription
<source lang="vbnet"> 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
</source>