HTTP POST

Demonstrates a simple HTTP POST. You may test this program against http://www.chilkatsoft.com/testPostHandler.asp. This ASP page fetches and displays the contents of form variables named arg1, arg2, and arg3.

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
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  Build an HTTP POST Request:
req.UsePost 
req.Path = "/testPostHandler.asp"
req.AddParam "arg1","This is the value for arg1." & vbCrLf & "It can be any length"
req.AddParam "arg2","This is the value for arg2." & vbCrLf & "It can be any length"
req.AddParam "arg3","This is the value for arg3." & vbCrLf & "It can be any length"

'  Send the HTTP POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTP response is received.

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

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