(Visual Basic 6.0) Bitfinex v2 REST Submit Order

Submit an order.

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

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

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

Dim http As New ChilkatHttp
Dim success As Long

Dim crypt As New ChilkatCrypt2

Dim apiPath As String
apiPath = "v2/auth/w/order/submit"
Dim apiKey As String
apiKey = "MY_API_KEY"
Dim apiSecret As String
apiSecret = "MY_API_SECRET"

Dim dt As New CkDateTime
success = dt.SetFromCurrentSystemTime()

Dim sbNonce As New ChilkatStringBuilder
success = sbNonce.Append(dt.GetAsUnixTimeStr(0))
success = sbNonce.Append("000")
Dim nonce As String
nonce = sbNonce.GetAsString()

Dim json As New ChilkatJsonObject
success = json.UpdateString("type","LIMIT")
success = json.UpdateString("symbol","tBTCUSD")
success = json.UpdateString("price","15")
success = json.UpdateString("amount","0.001")
success = json.UpdateInt("flags",0)
Dim body As String
body = json.Emit()

Dim sbSignature As New ChilkatStringBuilder
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)

Dim sig As String
sig = crypt.MacStringENC(sbSignature.GetAsString())

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

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson2("https://api.bitfinex.com/v2/auth/w/order/submit","application/json",body)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

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