(VBScript) HTTP POST text/plain (not URL encoded params)

Demonstrates how to send an HTTP POST with params NOT URL-encoded.

Download Chilkat HTTP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set req = CreateObject("Chilkat.HttpRequest")
set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

'  Build an HTTP POST Request:
req.ContentType = "text/plain"
req.HttpVerb = "POST"
req.Path = "/testPostHandler.asp"
req.AddParam "arg1","1.0"
req.AddParam "arg2","2.0"
req.AddParam "arg3","3.0"

'  Send the HTTP POST and get the response.

domain = "www.chilkatsoft.com"
port = 80
ssl = 0

' resp is a Chilkat.HttpResponse
Set resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    outFile.WriteLine(http.LastErrorText)
Else
    '  Display the HTML page returned.
    outFile.WriteLine(resp.BodyStr)

End If

outFile.Close