Mega Code Archive

 
Categories / VB.Net / Network Remote
 

WebHeaderCollection Remove removes the specified header from the collection

Imports System.IO Imports System.Net Imports System.Text public class MainClass    Shared Sub Main()         Try             Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.msn.com"), HttpWebRequest)             Dim myWebHeaderCollection As WebHeaderCollection = myHttpWebRequest.Headers             myWebHeaderCollection.Set("Cache-Control", "no-cache")             Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)             myWebHeaderCollection.Remove("Cache-Control")             myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)             myHttpWebResponse.Close()         Catch e As ArgumentException             Console.WriteLine(e.Message)         Catch e As WebException             Console.WriteLine(e.Message)             If e.Status = WebExceptionStatus.ProtocolError Then                 Console.WriteLine("Status Code : {0}", CType(e.Response, HttpWebResponse).StatusCode)                 Console.WriteLine("Status Description : {0}", CType(e.Response, HttpWebResponse).StatusDescription)                 Console.WriteLine("Server : {0}", CType(e.Response, HttpWebResponse).Server)             End If         Catch e As Exception             Console.WriteLine(e.Message)         End Try     End Sub  End Class