VB.Net Tutorial/Socket Network/HttpWebResponse

Web Header, LastModified, Protocol Version, ResponseUri

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

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/