(VB.NET UWP/WinRT) Bitfinex v2 REST Submit Order

Submit an order.

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim http As New Chilkat.Http
Dim success As Boolean

Dim crypt As New Chilkat.Crypt2

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

Dim dt As New Chilkat.CkDateTime
dt.SetFromCurrentSystemTime()

Dim sbNonce As New Chilkat.StringBuilder
sbNonce.Append(dt.GetAsUnixTimeStr(False))
sbNonce.Append("000")
Dim nonce As String = sbNonce.GetAsString()

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

Dim sbSignature As New Chilkat.StringBuilder
sbSignature.Append("/api/")
sbSignature.Append(apiPath)
sbSignature.Append(nonce)
sbSignature.Append(body)

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

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

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

Dim resp As Chilkat.HttpResponse = Await http.PostJson2Async("https://api.bitfinex.com/v2/auth/w/order/submit","application/json",body)
If (http.LastMethodSuccess = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


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