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 .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim req As New Chilkat.HttpRequest()
Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) 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 Boolean
domain = "www.chilkatsoft.com"
port = 80
ssl = false
Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    TextBox1.Refresh()
Else
    '  Display the HTML page returned.
    TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf
    TextBox1.Refresh()
End If