VBScript

QuickDeleteStr Example

Sends a DELETE request to a URL. The URL can potentially include params, and custom request headers can be added. 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)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat.Http")

' Specifiy a session log file so we can see the exact request/response
http.SessionLogFilename = "c:/aaworkarea/sessionLog.txt"

' Perhaps add a custom header or two..
http.SetRequestHeader "x-exz-date","20201012T235046Z"
http.SetRequestHeader "x-exz-id","1234"

' Send a DELETE request to https://www.example.com/someting?param1=123&param2=abc
url = "https://www.example.com/someting?param1=123&param2=abc"
reponseBodyStr = http.QuickDeleteStr(url)
If (http.LastMethodSuccess = 0) Then
    ' This will happen if the response status code was 400 or greater,
    ' or if the request could not be sent, or if no response was received.
    statusCode = http.LastStatus
    outFile.WriteLine("Response status: " & statusCode)

    If (statusCode = 0) Then
        ' There was an error in communications.  
        outFile.WriteLine(http.LastErrorText)
    Else
        ' We received a response status code indicating failure.
        ' Examine the response body.
        outFile.WriteLine(http.LastResponseBody)
    End If

    WScript.Quit
End If

' The DELETE request that is sent looks like this.
' The Accept and Accept-Encoding headers are automatically added by default.

' 	DELETE /someting?param1=123&param2=abc HTTP/1.1
' 	Host: www.example.com
' 	Accept: */*
' 	Accept-Encoding: gzip
' 	x-exz-date: 20201012T235046Z
' 	x-exz-id: 1234

' Get the response status
statusCode = http.LastStatus
outFile.WriteLine("Response status: " & statusCode)

' Show the response body
outFile.WriteLine(reponseBodyStr)

outFile.Close