(AutoIt) Subscribe to Multiple Bitfinex Tickers on One Connection

Subscribes to multiple ticker symbols on the public Bitfinex websocket ticker channel and receives ticker updates.

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.

$oWs = ObjCreate("Chilkat.WebSocket")

; For brevity, this example does not check for errors when etablishing the WebSocket connection.
; See Establish WebSocket Connection for more complete sample code for making the connection.

$oRest = ObjCreate("Chilkat.Rest")

; Connect to api.bitfinex.com
Local $bSuccess = $oRest.Connect("api.bitfinex.com",443,True,False)
$oWs.UseConnection($oRest)
$oWs.AddClientHeaders()

Local $sResponseBody = $oRest.FullRequestNoBody("GET","/ws")
$bSuccess = $oWs.ValidateServerHandshake()
If ($bSuccess <> True) Then
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    ConsoleWrite($sResponseBody & @CRLF)
    ConsoleWrite($oRest.ResponseHeader & @CRLF)
    Exit
EndIf

; After connecting, the bitfinex websocket server will send
; an info message that contains the actual version of the websocket stream.
; Receive that message..
$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

; We should get this:
; {"event":"info","version":1.1,"platform":{"status":1}}
ConsoleWrite($oWs.GetFrameData() & @CRLF)

; Subscribe to the BTCUSD ticker feed.
; See https://docs.bitfinex.com/docs for more information.
$oJson1 = ObjCreate("Chilkat.JsonObject")
$oJson1.AppendString("event","subscribe")
$oJson1.AppendString("channel","ticker")
$oJson1.AppendString("pair","BTCUSD")

Local $bFinalFrame = True
$bSuccess = $oWs.SendFrame($oJson1.Emit(),$bFinalFrame)

; Subscribe to the ETHUSD ticker feed.
$oJson2 = ObjCreate("Chilkat.JsonObject")
$oJson2.AppendString("event","subscribe")
$oJson2.AppendString("channel","ticker")
$oJson2.AppendString("pair","ETHUSD")

$bSuccess = $oWs.SendFrame($oJson2.Emit(),$bFinalFrame)

; Begin reading the ticker feed.
; / This will include a single confirmation response for each subscription.

; We'll just read the 1st 5 updates and then exit..
Local $bReceivedFinalFrame = False
Local $iNumUpdatesReceived = 0
While $iNumUpdatesReceived < 7

    $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

    ; The responses we desire are in Text frames, where the opcode = 1.
    If ($oWs.FrameOpcodeInt = 1) Then
Local $sReceivedText = $oWs.GetFrameData()
        ConsoleWrite($sReceivedText & @CRLF)
        ; Should receive a line of text such as this:
        ; [2751,7349,36.34269559,7349.1,41.01777063,-116.2,-0.0156,7349.1,22188.26055319,7560,7270.5]
        ; Initially, a single confirmation response for each subscription would be received, such as this:
        ; {"event":"subscribed","channel":"ticker","chanId":810,"pair":"BTCUSD"}
        $iNumUpdatesReceived = $iNumUpdatesReceived + 1
    EndIf

Wend

; This is sample output:
; You can see that the 1st message received is the subscription confirmation for the BTCUSD subscribe request.
; The next message is a BTCUSD ticker update.
; The next message is the confirmation for the ETHUSD subscription.
; The next message is an ETHUSD update.
; The BTCUSD channel ID is "537", and the ETHUSD channel ID is "700".  The channel IDs are provided in the 
; subscription confirmation messages.  Each ticker update begins with the channel ID..

; {"event":"subscribed","channel":"ticker","chanId":537,"pair":"BTCUSD"}
; [537,6457.9,79.59102302,6458,22.49395741,-24.1,-0.0037,6457.9,13644.52820029,6540,6370.76958739]
; {"event":"subscribed","channel":"ticker","chanId":700,"pair":"ETHUSD"}
; [700,496.9,247.24493326,496.92,284.09636979,-2.47,-0.0049,496.9,74154.05945261,502.85,486.96]
; [537,"hb"]
; [700,"hb"]
; [700,496.92,233.34338276,496.93,431.78867277,-2.45,-0.0049,496.92,74167.99173586,502.85,486.96]

; Close the websocket connection.
$bSuccess = $oWs.SendClose(True,1000,"Closing this websocket.")
If ($bSuccess <> True) Then
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    Exit
EndIf

; Read the Close response.
$bSuccess = $oWs.ReadFrame()
If ($bSuccess <> True) Then
    ConsoleWrite("ReadFrame fail reason = " & $oWs.ReadFrameFailReason & @CRLF)
    ConsoleWrite($oWs.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Success." & @CRLF)