HTTP POST x-www-form-urlencoded

Demonstrates how to send a simple URL encoded POST (content-type = x-www-form-urlencoded). Form params are passed in the HTTP request body in x-www-form-urlencoded format.

Download Chilkat HTTP ActiveX

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

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

set req = CreateObject("Chilkat.HttpRequest")

'  Add the request params expected by the server-side:
req.AddParam "city","Paris"
req.AddParam "country","France"

'  Send the POST  (This is a real URL that may be tested.)

' resp is a Chilkat.HttpResponse
Set resp = http.PostUrlEncoded("http://www.chilkatsoft.com/httpTest/cityCountry.asp",req)
If (resp Is Nothing ) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

'  The exact HTTP request sent and response received
'  by the example code above is as follows:

'  
---- Sending ----
POST /httpTest/cityCountry.asp HTTP/1.1
Host: www.chilkatsoft.com
Content-Type: application/x-www-form-urlencoded
Content-Length: 25

city=Paris&country=France
---- Received ----
HTTP/1.1 200 OK
Date: Wed, 09 Dec 2009 16:16:00 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Content-Length: 156
Content-Type: text/html
Set-Cookie: ASPSESSIONIDQCDTSSAC=MHJCNFMDENFOKGINOFEDILCM; path=/
Cache-control: private


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body>

France<br />Paris<br />

</body>
</html>

outFile.Close

Mail Component · XML Parser