(VBScript) Bitfinex v2 REST Submit Order

Submit an order.

Note: This example requires Chilkat v11.0.0 or greater.

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

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set http = CreateObject("Chilkat.Http")

set crypt = CreateObject("Chilkat.Crypt2")

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

set dt = CreateObject("Chilkat.CkDateTime")
success = dt.SetFromCurrentSystemTime()

set sbNonce = CreateObject("Chilkat.StringBuilder")
success = sbNonce.Append(dt.GetAsUnixTimeStr(0))
success = sbNonce.Append("000")
nonce = sbNonce.GetAsString()

set json = CreateObject("Chilkat.JsonObject")
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)
body = json.Emit()

set sbSignature = CreateObject("Chilkat.StringBuilder")
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 = CreateObject("Chilkat.HttpResponse")
success = http.HttpStr("POST","https://api.bitfinex.com/v2/auth/w/order/submit",body,"utf-8","application/json",resp)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Response body:")
outFile.WriteLine(resp.BodyStr)

outFile.Close