(VBScript) Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = CreateObject("Chilkat.HttpRequest")

req.HttpVerb = "POST"
req.Path = "/test123"
req.ContentType = "application/x-www-form-urlencoded"
req.AddParam "paramA","AAA"
req.AddParam "paramB","BBB"
req.AddParam "paramC","CCC"

outFile.WriteLine(req.GenerateRequestText())
outFile.WriteLine("---------------")

' Generates: 

' 	POST /test123 HTTP/1.1
' 	Content-Type: application/x-www-form-urlencoded
' 	Host: domain
' 	Content-Length: 32
' 
' 	paramA=AAA&paramB=BBB&paramC=CCC
' 

' If we call RemoveAllParams, and then add some additional params,
' then the original params are gone, and only the new params exist.
req.RemoveAllParams 
req.AddParam "paramD","DDD"
req.AddParam "paramE","EEE"
req.AddParam "paramF","FFF"
outFile.WriteLine(req.GenerateRequestText())
outFile.WriteLine("---------------")

' Generates:

' 	POST /test123 HTTP/1.1
' 	Content-Type: application/x-www-form-urlencoded
' 	Host: domain
' 	Content-Length: 32
' 
' 	paramD=DDD&paramE=EEE&paramF=FFF

outFile.Close