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 req As New ChilkatHttpRequest
Dim http As New ChilkatHttp

Dim success As Long

'  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
    Exit Sub
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.
Dim domain As String
Dim port As Long
Dim ssl As Long
domain = "www.chilkatsoft.com"
port = 80
ssl = 0
Dim resp As ChilkatHttpResponse
Set resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Text1.Refresh
Else
    '  Display the HTML page returned.
    Text1.Text = Text1.Text & resp.BodyStr & vbCrLf
    Text1.Refresh
End If