(Excel) Bitfinex v2 REST User Info

Retrieve the user ID, email, username and timezone setting for the account associated with the API key used.

For more information, see https://docs.bitfinex.com/reference#rest-auth-info-user

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' Implements the following CURL command:

' curl -X POST -H "bfx-nonce: nonce" \
'   -H "bfx-apikey: apiKey" \
'   -H "bfx-signature: sig" \ 
'   https://api.bitfinex.com/v2/auth/r/info/user

' Use the following online tool to generate HTTP code from a CURL command
' Convert a cURL Command to HTTP Source Code

Dim crypt As Chilkat.Crypt2
Set crypt = Chilkat.NewCrypt2


apiPath = "v2/auth/r/info/user"

apiKey = "MY_API_KEY"

apiSecret = "MY_API_SECRET"

Dim dt As Chilkat.CkDateTime
Set dt = Chilkat.NewCkDateTime
Dim success As Boolean
success = dt.SetFromCurrentSystemTime()

Dim sbNonce As Chilkat.StringBuilder
Set sbNonce = Chilkat.NewStringBuilder
success = sbNonce.Append(dt.GetAsUnixTimeStr(False))
success = sbNonce.Append("000")

nonce = sbNonce.GetAsString()

' This particular request has an empty body.

body = ""

Dim sbSignature As Chilkat.StringBuilder
Set sbSignature = Chilkat.NewStringBuilder
success = sbSignature.Append("/api/")
success = sbSignature.Append(apiPath)
success = sbSignature.Append(nonce)
success = sbSignature.Append(body)

crypt.EncodingMode = "hex_lower"
crypt.HashAlgorithm = "sha384"
crypt.MacAlgorithm = "hmac"
success = crypt.SetMacKeyString(apiSecret)


sig = crypt.MacStringENC(sbSignature.GetAsString())

http.SetRequestHeader "bfx-apikey",apiKey
http.SetRequestHeader "bfx-signature",sig
http.SetRequestHeader "bfx-nonce",nonce


Set resp = http.QuickRequest("POST","https://api.bitfinex.com/v2/auth/r/info/user")
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response body:"
Debug.Print resp.BodyStr

' Sample response body:

' [1234567,"joe@example.com","joe_trader",1527691729000,0,null,null,"Central Time (US & Canada)"]