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.rntsoft.com"), 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.rntsoft.com/