VB.Net Tutorial/Socket Network/HttpWebResponse

Web Header, LastModified, Protocol Version, ResponseUri

<source lang="vbnet">Imports System.Net Imports System.IO Imports System.Text

Public Class Tester

   Public Shared Sub Main
       Dim myhttpWebRequest As HttpWebRequest
       Dim myhttpWebResponse As HttpWebResponse

       Dim colWebHeaderCollection As New WebHeaderCollection()
       myhttpWebRequest = CType(HttpWebRequest.Create("HTTP://www.vbex.ru"), HttpWebRequest)
       myhttpWebResponse = CType(myhttpWebRequest.GetResponse(), HttpWebResponse)
       colWebHeaderCollection = myhttpWebResponse.Headers
       Console.WriteLine(myhttpWebResponse.Headers.ToString)
       Console.WriteLine(myhttpWebResponse.LastModified.ToString())
       Console.WriteLine(myhttpWebResponse.ProtocolVersion.ToString())
       Console.WriteLine(myhttpWebResponse.ResponseUri.ToString)

   End Sub

End Class</source>

Connection: close
Accept-Ranges: bytes
Content-Length: 343984
Content-Type: text/html
Date: Sat, 12 May 2007 04:26:09 GMT
ETag: "14904bc-53fb0-114d7340
Last-Modified: Wed, 18 Apr 2007 05:07:49 GMT
Server: Apache/2.0.54 (Fedora)

17/04/2007 10:07:49 PM
1.1
http://www.vbex.ru/