VBScript

HTTP POST x-www-form-urlencoded

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

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

set http = CreateObject("Chilkat.Http")

jsonStr = "{ some json ... }"

set req = CreateObject("Chilkat.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..

req.HttpVerb = "POST"
req.ContentType = "application/x-www-form-urlencoded"

set resp = CreateObject("Chilkat.HttpResponse")
success = http.HttpReq("http://example.com/xyz/connect/report",req,resp)
If (success = 0) 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.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