![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Adding Cookies to an HTTP RequestDemonstrates how to add one or more cookies to an HTTP request. Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set http = CreateObject("Chilkat.Http") ' The Cookie header field has this format: ' Cookie: name1=value1 [; name2=value2] ... ' Build an HTTP POST request: set req = CreateObject("Chilkat.HttpRequest") req.SetFromUrl "http://www.chilkatsoft.com/echoPost.asp" req.HttpVerb = "POST" req.AddParam "param1","value1" req.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: req.AddHeader "Cookie","user=""mary""; city=""Chicago""" ' Send the HTTP POST. ' (The cookies are sent as part of the HTTP header.) domain = "www.chilkatsoft.com" port = 80 ssl = 0 set resp = CreateObject("Chilkat.HttpResponse") success = http.HttpSReq(domain,port,ssl,req,resp) If (success = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If ' Display the HTML body of the response. If (resp.StatusCode = 200) Then ' Show the last HTTP request header sent, which should include ' our cookies... outFile.WriteLine(http.LastHeader) Else outFile.WriteLine("HTTP Response Status = " & resp.StatusCode) End If outFile.WriteLine("---------------------") ' 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 SetRequestHeader. http.SetRequestHeader "Cookie","user=""mary""; city=""Chicago""" html = http.QuickGetStr("http://www.w3.org/") If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) Else ' Show the last HTTP request header sent, which should include ' our cookies... outFile.WriteLine(http.LastHeader) End If outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.