(VB.NET) Adding Cookies to an HTTP Request

Demonstrates how to add one or more cookies to an HTTP request. For Chilkat HTTP methods that use an HTTP request object, such as SynchronousRequest or PostUrlEncoded, cookies are added by calling the AddHeader method on the request object. For Chilkat HTTP methods that do not use an HTTP request object, such as QuickGetStr, cookies are added by calling AddQuickHeader.

Download: Chilkat .NET Assemblies

Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If


'  The Cookie header field has this format:
'  Cookie: name1=value1 [; name2=value2] ...

'  Build an HTTP POST request:
Dim request As New Chilkat.HttpRequest()
request.SetFromUrl("http://www.chilkatsoft.com/echoPost.asp")
request.HttpVerb = "POST"

request.AddParam("param1","value1")
request.AddParam("param2","value2")

'  To add cookies to any HTTP request sent by a Chilkat HTTP method
'  that uses an HTTP request object, add the cookies to the
'  request object by calling AddHeader.

'  Add two cookies:
request.AddHeader("Cookie","user=""mary""; city=""Chicago""")

'  Send the HTTP POST.
'  (The cookies are sent as part of the HTTP header.)

Dim response As Chilkat.HttpResponse
Dim domain As String
domain = "www.chilkatsoft.com"
Dim port As Long
port = 80
Dim ssl As Boolean
ssl = false
response = http.SynchronousRequest(domain,port,ssl,request)
If (response Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If


'  Display the HTML body of the response.
If (response.StatusCode = 200) Then
    '  Show the last HTTP request header sent, which should include
    '  our cookies...
    TextBox1.Text = TextBox1.Text & http.LastHeader & vbCrLf
Else
    TextBox1.Text = TextBox1.Text & "HTTP Response Status = " _
         & response.StatusCode & vbCrLf
End If




TextBox1.Text = TextBox1.Text & "---------------------" & vbCrLf

'  Some Chilkat HTTP methods do not use an HTTP request object.
'  For these methods, such as for QuickGetStr, cookies (or any HTTP request header)
'  are added by calling AddQuickHeader.
http.AddQuickHeader("Cookie","user=""mary""; city=""Chicago""")

Dim html As String
html = http.QuickGetStr("http://www.w3.org/")
If (html = vbNullString ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
Else
    '  Show the last HTTP request header sent, which should include
    '  our cookies...
    TextBox1.Text = TextBox1.Text & http.LastHeader & vbCrLf
End If