Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.js

Visual Basic 6.0 Examples

Async
Certificates
ECC
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
JSON
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
POP3
RSA Encryption
MIME
REST
SCP
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Stream
Tar Archive
XML
XMP
Zip

More Examples...
Google APIs
Google Cloud Storage
Azure Cloud Storage
Amazon S3 (new)
Google Drive
ASN.1
PRNG
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
DSA
NTLM
QuickBooks

 

 

 

 

 

 

 

(Visual Basic 6.0) 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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.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 ChilkatHttpRequest
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 ChilkatHttpResponse
Dim domain As String
domain = "www.chilkatsoft.com"
Dim port As Long
port = 80
Dim ssl As Long
ssl = 0
Set response = http.SynchronousRequest(domain,port,ssl,request)
If (response Is Nothing ) Then
    Text1.Text = Text1.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...
    Text1.Text = Text1.Text & http.LastHeader & vbCrLf
Else
    Text1.Text = Text1.Text & "HTTP Response Status = " & response.StatusCode & vbCrLf
End If

Text1.Text = Text1.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.
success = http.AddQuickHeader("Cookie","user=""mary""; city=""Chicago""")

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


 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.