Bitfinex Private API about crypto_vba HOT 18 CLOSED

Sub PrintArray(Data, SheetName, startRow, startCol)

Dim rng As Range

With Sheets(SheetName)
    Set rng = .Range(.Cells(startRow, startCol), _
        .Cells(UBound(Data, 1) - LBound(Data, 1) + startRow, _
        UBound(Data, 2) - LBound(Data, 2) + startCol))
End With
rng.Value2 = Data

End Sub

Sub PrintCollection(Data, Worksheet, startRow, startCol)

Dim Row As Double
Dim Col As Double
Dim i As Double

Row = startCol
Col = startRow
    
For i = 1 To Data.Count
        Worksheet.Cells(Col, Row).Value = Data(i)
        Col = Col + 1
Next i

End Sub

Sub PrintDictionary(ByVal d As Dictionary, WSname As String, startRow, startCol)
'The symbols ":", "[", "{" are just added for readability. They are not included in the dictionary

pStartRow = startRow
pStartColumn = startCol

Dim i As Long

For i = 0 To d.Count - 1
Key = d.Keys(i)
'Add { at the beginning of the dictionary
If i = 0 Then
    Worksheets(WSname).Cells(pStartRow, pStartColumn) = "{" & Key & ":"
Else
    Worksheets(WSname).Cells(pStartRow, pStartColumn) = Key & ":"
End If
If TypeName(d(Key)) = "Collection" Then
    pStartColumn = pStartColumn + 1
    Call PrintDictionaryCol(d(Key), WSname, pStartRow, pStartColumn)
ElseIf TypeName(d(Key)) = "Dictionary" Then
    Call PrintDictionary(d(Key), WSname, pStartRow, pStartColumn)
ElseIf TypeName(d(Key)) = "Array" Then
    MsgBox "Function not programmed for arrays!"
Else
    Worksheets(WSname).Cells(pStartRow, pStartColumn + 1) = d(Key)
    If pCallByCol = True Then
        Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn + 1)
    Else
        Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn + 1)
    End If
    pStartRow = pStartRow + 1
End If
'Add } at the end of the dictionary
If i = d.Count - 1 Then
    pLastRange.Value = pLastRange & "}"
End If
Next

If pCallByCol = True Then
pStartRow = pStartRow - d.Count
pStartColumn = pStartColumn + 2
End If

End Sub
Sub PrintDictionaryCol(ByVal Coll As Collection, WSname As String, startRow, startCol)
'Only in combination with PrintDictionary

If Coll.Count = 0 Then
Worksheets(WSname).Cells(pStartRow, pStartColumn) = "EMPTY"
Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn)
AddOne = True
End If

OriginRow = startRow
OriginColumn = startCol
DictCounter = 0

pStartRow = startRow
pStartColumn = startCol

Dim i As Long

For i = 1 To Coll.Count
If TypeName(Coll(i)) = "Collection" Then
    Call PrintDictionaryCol(Coll(i), "Test", pStartRow, pStartColumn)
ElseIf TypeName(Coll(i)) = "Dictionary" Then
    pCallByCol = True
    Call PrintDictionary(Coll(i), "Test", pStartRow, pStartColumn)
    pCallByCol = False
    If Counter < Coll(i).Count Then
        Counter = Coll(i).Count
    End If
Else
    AddOne = True
    Worksheets(WSname).Cells(pStartRow, pStartColumn) = Coll(i)
    Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn)
    pStartColumn = pStartColumn + 1
End If
If i = 1 Then
    Worksheets(WSname).Cells(OriginRow, OriginColumn).Value = "[" & 
Worksheets(WSname).Cells(OriginRow, OriginColumn).Value
ElseIf i = Coll.Count Then
    pLastRange.Value = pLastRange.Value & "]"
End If
Next i

Jumpover:

If AddOne = True Then
Counter = Counter + 1
End If

pStartRow = OriginRow + Counter
pStartColumn = OriginColumn - 1

End Sub

Private pPrintDictDictionaries As Long
Private pStartRow As Long
Private pStartColumn As Long
Private pCallByCol As Boolean
Private pLastRange As Range

Private Function PrivateBitfinex(Method As String, Optional MethodOptions As Scripting.Dictionary, Optional GetJson = False, Optional V2 As Boolean = False)

Dim NonceUnique As String
Dim JSONResp As String
Dim JSON As String
Dim Json2 As Object
Dim PayloadDict As Scripting.Dictionary

PublicKey = "YOUR_PUBLIC_KEY"
PrivateKey = "YOUR_PRIVATE_KEY"

NonceUnique = DateDiff("s", "1/1/1970", Now) & "000"
If NonceUnique <= pNonceBitfinex Then
    NonceUnique = pNonceBitfinex + 1
End If
pNonceBitfinex = NonceUnique

'the payload has to look like this: payload = parameters-object -> JSON encode -> base64
'see the authenticated endpoints documentation here: https://bitfinex.readme.io/v1/docs/rest-auth
Set PayloadDict = New Dictionary

If Not V2 Then
    PayloadDict("request") = "/v1/" & Method
    PayloadDict("nonce") = NonceUnique
    
    If Not MethodOptions Is Nothing Then
        For Each key In MethodOptions.keys
            PayloadDict(key) = MethodOptions(key)
        Next key
    End If
    
    JSON = Replace(ConvertToJson(PayloadDict), "/", "\/")
    'Debug.Print json
    payload = Base64Encode(JSON)
    
    'signature = HMAC-SHA384(payload, api-secret).digest('hex')
    ApiSite = "https://api.bitfinex.com"
    Signature = ComputeHash_C("SHA384", payload, PrivateKey, "STRHEX")
    
    Url = ApiSite & "/v1/" & Method
    'Debug.Print Url
    
    'Headers
    Header1 = "X-BFX-APIKEY"
    Header2 = "X-BFX-PAYLOAD"
    Header3 = "X-BFX-SIGNATURE"
    HeaderContent1 = PublicKey
    HeaderContent2 = payload
    HeaderContent3 = Signature
Else
    apiPath = "v2/auth/r/" & Method
    Set body = MethodOptions
    rawBody = Replace(ConvertToJson(MethodOptions), "/", "\/")
    PrepSignature = "/api/" & apiPath & NonceUnique & rawBody
    Signature = ComputeHash_C("SHA384", PrepSignature, PrivateKey, "STRHEX")
    Url = "https://api.bitfinex.com/" & apiPath
    'Headers
    Header1 = "bfx-nonce"
    Header2 = "bfx-apikey"
    Header3 = "bfx-signature"
    HeaderContent1 = NonceUnique
    HeaderContent2 = PublicKey
    HeaderContent3 = Signature
End If
    
'Instantiate a WinHttpRequest object and open it
HTTPMethod = "POST"
Set objhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objhttp.Open HTTPMethod, Url, False
objhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objhttp.setRequestHeader Header1, HeaderContent1
objhttp.setRequestHeader Header2, HeaderContent2
objhttp.setRequestHeader Header3, HeaderContent3
objhttp.Send get_url

objhttp.WaitForResponse
JSONResp = objhttp.responseText
Set objhttp = Nothing
Set Json2 = JsonConverter.ParseJson(JSONResp)

Call ErrorHandlerBitfinex(Json2)

If GetJson Then
    Set PrivateBitfinex = Json2
Else
    ResArr = JsonToArray(Json2)
    PrivateBitfinex = ArrayTable(ResArr)
End If

End Function
Function GetAllBalancesBitfinex() As Scripting.Dictionary

Dim TradingType As String, Coin As String
Dim Balance As Double, Available As Double, Pending As Double

Dim PivotDict As Scripting.Dictionary
Dim TradingDict As New Scripting.Dictionary
Dim MarginDict As New Scripting.Dictionary

Set GetAllBalancesBitfinex = New Scripting.Dictionary

Dim JSONCol As Collection
Set JSONCol = PrivateBitfinex("balances", , True)
For Each CoinDict In JSONCol
    TradingType = CoinDict("type")
    Coin = CoinDict("currency")
    If Coin = vbNullString Then GoTo NextIteration
    Balance = CoinDict("amount")
    Available = CoinDict("available")
    Pending = Balance - Available
    'Add to PivotDict
    Set PivotDict = New Scripting.Dictionary
    PivotDict.Add "Balance", Balance
    PivotDict.Add "Available", Available
    PivotDict.Add "Pending", Pending
'    Add to Trading or MarginDict
    If TradingType = "exchange" Then
        TradingDict.Add Coin, PivotDict
    ElseIf TradingType = "trading" Then
        MarginDict.Add Coin, PivotDict
    End If
NextIteration:
Next

GetAllBalancesBitfinex.Add "TRADING", TradingDict
GetAllBalancesBitfinex.Add "MARGIN", MarginDict

Call PrintDictionary(GetAllBalancesBitfinex, "Test", 1, 1)

end function

Sub PrintDictionary(ByVal d As Dictionary, WSname As String, startRow, startCol, Optional RecursiveCall As Boolean = False)
'The symbols ":", "[", "{" are just added for readability. They are not included in the dictionary

pStartRow = startRow
pStartColumn = startCol

If RecursiveCall Then
    pStartColumn = pPrintDictDictionaries + 1
Else
    pPrintDictDictionaries = 0
End If

Dim i As Long

For i = 0 To d.Count - 1
    key = d.keys(i)
    'Add { at the beginning of the dictionary
    If i = 0 Then
        Worksheets(WSname).Cells(pStartRow, pStartColumn) = "{" & key & ":"
    Else
        Worksheets(WSname).Cells(pStartRow, pStartColumn) = key & ":"
    End If
    If TypeName(d(key)) = "Collection" Then
        pStartColumn = pStartColumn + 1
        Call PrintDictionaryCol(d(key), WSname, pStartRow, pStartColumn)
    ElseIf TypeName(d(key)) = "Dictionary" Then
        pPrintDictDictionaries = pPrintDictDictionaries + 1
        Call PrintDictionary(d(key), WSname, pStartRow, pStartColumn, True)
    ElseIf TypeName(d(key)) = "Array" Then
        MsgBox "Function not programmed for arrays!", vbCritical
    Else
        Worksheets(WSname).Cells(pStartRow, pStartColumn + 1) = d(key)
        If pCallByCol = True Then
            Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn + 1)
        Else
            Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn + 1)
        End If
        pStartRow = pStartRow + 1
    End If
    'Add } at the end of the dictionary
    If i = d.Count - 1 Then
        pLastRange.Value = pLastRange & "}"
        If pPrintDictDictionaries <> 0 Then
            pPrintDictDictionaries = pPrintDictDictionaries - 1
            pStartColumn = pPrintDictDictionaries + 1
        End If
    End If
Next

If pCallByCol = True Then
    pStartRow = pStartRow - d.Count
    pStartColumn = pStartColumn + 2
End If

End Sub
Sub PrintDictionaryCol(ByVal Coll As Collection, WSname As String, startRow, startCol)
'Only in combination with PrintDictionary

If Coll.Count = 0 Then
    Worksheets(WSname).Cells(pStartRow, pStartColumn) = "[EMPTY]"
    Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn)
    AddOne = True
    pStartColumn = pStartColumn + 1
End If

OriginRow = startRow
OriginColumn = startCol
Counter = 0
CollCounter = 0

pStartRow = startRow
pStartColumn = startCol

Dim i As Long

For i = 1 To Coll.Count
    If TypeName(Coll(i)) = "Collection" Then
        Call PrintDictionaryCol(Coll(i), "Test", pStartRow, pStartColumn)
        pStartColumn = pStartColumn + 1
        CollCounter = CollCounter + 1
    ElseIf TypeName(Coll(i)) = "Dictionary" Then
        pCallByCol = True
        Call PrintDictionary(Coll(i), "Test", pStartRow, pStartColumn)
        pCallByCol = False
        If Counter < Coll(i).Count Then
            Counter = Coll(i).Count
        End If
    Else
        AddOne = True
        Worksheets(WSname).Cells(pStartRow, pStartColumn) = Coll(i)
        Set pLastRange = Worksheets(WSname).Cells(pStartRow, pStartColumn)
        pStartColumn = pStartColumn + 1
    End If
    If i = 1 Then
        Worksheets(WSname).Cells(OriginRow, OriginColumn).Value = "[" & Worksheets(WSname).Cells(OriginRow, OriginColumn).Value
    ElseIf i = Coll.Count Then
        pLastRange.Value = pLastRange.Value & "]"
    End If
Next i

If CollCounter = 0 Then
    If AddOne = True Then
        Counter = Counter + 1
    End If
Else
    Counter = Counter + CollCounter
End If

pStartRow = OriginRow + Counter
pStartColumn = OriginColumn - 1

End Sub