(VBScript) HTTP POST x-www-form-urlencoded

Demonstrates how to send a simple x-www-form-urlencoded POST.

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

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

set http = CreateObject("Chilkat_9_5_0.Http")

jsonStr = "{ some json ... }"

set req = CreateObject("Chilkat_9_5_0.HttpRequest")
'  This query parameter just happens to be named "json" and contains JSON text.
req.AddParam "json",jsonStr

'  We can optionally add more query parameters.
req.AddParam "abc","123"
req.AddParam "xml","<abc>123</abc>"

'  Note: Just because we passed a query param named "json" or "xml" means nothing special.  It's still just
'  a name=value query parameter..

' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.PostUrlEncoded("http://example.net/cirrus/connect/report",req)
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

If (resp.StatusCode <> 200) Then
    outFile.WriteLine("Hey, I didn't receive the expected response status code!")
    outFile.WriteLine("status code = " & resp.StatusCode)
End If

'  Could be error text if the status code wasn't what we expected, or could be the response
'  body you're seeking..
responseBody = resp.BodyStr
outFile.WriteLine(responseBody)

set fac = CreateObject("Chilkat_9_5_0.FileAccess")
filepath = "some file path"
success = fac.WriteEntireTextFile(filepath,responseBody,"utf-8",0)
If (success <> 1) Then
    outFile.WriteLine(fac.LastErrorText)
End If


outFile.Close