Mega Code Archive

 

Categories / VB.Net Tutorial / Socket Network

 

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.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/