'FOR PAYMENT
'https://developers.coinbase.com/api/v2#send-money
Dim CBJobSendPayment As HttpJob:CBJobSendPayment.Initialize("CBJobSendPayment", Me)
Dim mapjg As Map:mapjg.Initialize
mapjg.Put("type", "send")
mapjg.Put("to", strAccountID)
mapjg.Put("amount", "0.000001")
mapjg.Put("currency", "ETC")
Dim jg As JSONGenerator:jg.Initialize(mapjg)
CBJobSendPayment.PostString("https://api.coinbase.com/v2/accounts/71ebec49-82b1-5ad1-9a8d-aabb054e82be/transactions", jg.ToString)
CBJobSendPayment.GetRequest.SetHeader("Content-Type", "application/json")
CBJobSendPayment.GetRequest.SetHeader("Authorization", "Bearer "&access_token)
Wait For (CBJobSendPayment) JobDone(CBJobSendPayment As HttpJob)
If CBJobSendPayment.Success Then
Dim jp As JSONParser:jp.Initialize(CBJobSendPayment.GetString)
Log(jp)
Else
Msgbox(CBJobSendPayment.ErrorMessage, "Error in payment!")
End If
CBJobSendPayment.Release