(AutoIt) SQS Create Queue

Creates a new SQS queue.

See SQS CreateQueue or detailed information.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; 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
Local $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","CreateQueue")
$oRest.AddQueryParam("QueueName","testQueue")
$oRest.AddQueryParam("Attribute.1.Name","VisibilityTimeout")
$oRest.AddQueryParam("Attribute.1.Value","40")

Local $sResponseXml = $oRest.FullRequestNoBody("GET","/")
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 CreateQueue response:
; <CreateQueueResponse>
;     <CreateQueueResult>
;         <QueueUrl>
;             http://queue.amazonaws.com/123456789012/testQueue
;         </QueueUrl>
;     </CreateQueueResult>
;     <ResponseMetadata>
;         <RequestId>
;             7a62c49f-347e-4fc4-9331-6e8e7a96aa73
;         </RequestId>
;     </ResponseMetadata>
; </CreateQueueResponse>