Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.msn.com"), HttpWebRequest)
myHttpWebRequest.Timeout = 1000
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Dim myWebHeaderCollection As WebHeaderCollection = myHttpWebResponse.Headers
Dim i As Integer
For i = 0 To myWebHeaderCollection.Count - 1
Dim header As [String] = myWebHeaderCollection.GetKey(i)
Dim values As [String]() = myWebHeaderCollection.GetValues(header)
If values.Length > 0 Then
Console.WriteLine(header)
Dim j As Integer
For j = 0 To values.Length - 1
Console.WriteLine(ControlChars.Tab + "{0}", values(j))
Next j
End If
Next i
End Sub
End Class