(AutoIt) Duplicate Python websockets

See more WebSocket Examples

Demonstrates how to duplicate the following Python client-side websocket snippet:

async with websockets.connect('ws://192.168.1.35/websocket') as websocket:
await websocket.send("http.controller_login:username=xxx&password=xxxxx")
response = await websocket.recv()

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.

; In Python, the following line of code does more than just connect:
; 
;      websockets.connect('ws://192.168.1.35/websocket')
; 
; It is connecting to 192.168.1.35 without using TLS.  If the URI starts with "wss://", then TLS should be used.
; But this URI begins with just "ws:/", so no TLS.

; Also, after connecting, a GET request is sent to the /websocket endpoint.
; In summary, the websockets.connect function is establishing the connection and it sends a GET request.

; First establish the connection.
; No TLS, use the default HTTP port 80.
$oRest = ObjCreate("Chilkat.Rest")
Local $bSuccess = $oRest.Connect("192.168.1.35",80,False,False)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

$oWs = ObjCreate("Chilkat.WebSocket")

; Tell the WebSocket to use this connection.
$bSuccess = $oWs.UseConnection($oRest)
If ($bSuccess <> True) Then
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    Exit
EndIf

; Add the standard WebSocket open handshake headers that will be needed.
; (This adds the required HTTP request headers to the rest object.)
$oWs.AddClientHeaders()

; Now send the GET request to /websockets.
Local $sResponseBody = $oRest.FullRequestNoBody("GET","/websockets")
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; If successful, the HTTP response status code should be 101,
; and the response body will be empty. (If it failed, we'll have a look
; at the response body..)
Local $iStatusCode = $oRest.ResponseStatusCode
ConsoleWrite("Response status code: " & $iStatusCode & @CRLF)

If ($iStatusCode <> 101) Then
    ConsoleWrite($sResponseBody & @CRLF)
    ConsoleWrite("-- Failed because of unexpected response status code." & @CRLF)
    Exit
EndIf

; We have the expected 101 response, so let's now validate the 
; contents of the response.
$bSuccess = $oWs.ValidateServerHandshake()
If ($bSuccess <> True) Then
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("WebSocket connection successful." & @CRLF)

; The application may now begin sending and receiving frames on the WebSocket connection.

; The 1st frame sent by the Python snippet is:
; 
;     websocket.send("http.controller_login:username=xxx&password=xxxxx")
; 

; Send the same using Chilkat, and get the response.
Local $bFinalFrame = True
$bSuccess = $oWs.SendFrame("http.controller_login:username=xxx&password=xxxxx",$bFinalFrame)
If ($bSuccess <> True) Then
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    Exit
EndIf

; Read an incoming frame.
$bSuccess = $oWs.ReadFrame()
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to receive a frame" & @CRLF)
    ConsoleWrite("ReadFrame fail reason = " & $oWs.ReadFrameFailReason & @CRLF)
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    Exit
EndIf

; Show the string that was received.
Local $sReceivedStr = $oWs.GetFrameData()
ConsoleWrite("Received: " & $sReceivedStr & @CRLF)

; Continue with whatever additional communications are desired...
; ....
;