WebHeaderCollection.Add inserts the specified header into the collection. : WebHeaderCollection « Network Remote « VB.Net

1. VB.Net
2. Network Remote
3. WebHeaderCollection

WebHeaderCollection.Add inserts the specified header into the collection.

 
Imports System.IO
Imports System.Net
Imports System.Text

public class MainClass
    Public Shared Sub Main()
         Try
            Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.msn.com"), HttpWebRequest)
            Dim myWebHeaderCollection As WebHeaderCollection = myHttpWebRequest.Headers
            myWebHeaderCollection.Add("Accept-Language:da")

            myWebHeaderCollection.Add("Accept-Language","en;q" + ChrW(61) + "0.8")

            Dim myHttpWebResponse As HttpWebResponse = 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

   
  

Related examples in the same category