AutoIt

SQS Purge Queue

See more Amazon SQS Examples

Deletes all the messages in an SQS queue.

See SQS PurgeQueue or detailed information.

AutoIt

Local $bSuccess = False

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

$oRest = ObjCreate("Chilkat.Rest")

;  Connect to the Amazon AWS REST server.
;  such as https://sqs.us-west-2.amazonaws.com/
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
$bSuccess = $oRest.Connect("sqs.us-west-2.amazonaws.com",$iPort,$bTls,$bAutoReconnect)

;  Provide AWS credentials for the REST call.
$oAuthAws = ObjCreate("Chilkat.AuthAws")
$oAuthAws.AccessKey = "AWS_ACCESS_KEY"
$oAuthAws.SecretKey = "AWS_SECRET_KEY"
;  the region should match our URL above..
$oAuthAws.Region = "us-west-2"
$oAuthAws.ServiceName = "sqs"

$oRest.SetAuthAws($oAuthAws)

$oRest.AddQueryParam("Action","PurgeQueue")

;  Use the actual path part of your SQS queue URL here:
Local $sResponseXml = $oRest.FullRequestNoBody("GET","/123456789123/chilkatTest")
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

;  A successful response will have a status code equal to 200.
If ($oRest.ResponseStatusCode <> 200) Then
    ConsoleWrite("response status code = " & $oRest.ResponseStatusCode & @CRLF)
    ConsoleWrite("response status text = " & $oRest.ResponseStatusText & @CRLF)
    ConsoleWrite("response header: " & $oRest.ResponseHeader & @CRLF)
    ConsoleWrite("response body: " & $sResponseXml & @CRLF)
    Exit
EndIf

;  Examine the successful XML response.
$oXml = ObjCreate("Chilkat.Xml")
$oXml.LoadXml($sResponseXml)
ConsoleWrite($oXml.GetXml() & @CRLF)

;  A sample PurgeQueue response:
;  <PurgeQueueResponse>
;      <ResponseMetadata>
;          <RequestId>
;              6fde8d1e-52cd-4581-8cd9-c512f4c64223
;          </RequestId>
;      </ResponseMetadata>
;  </PurgeQueueResponse>