Hi, I got the simple error on the commandline : unauthorized & vblf
Here is the code in VB.net:
Imports System.Security.Cryptography
Imports System.Text
Imports RestSharp
Imports RestSharp.Authenticators
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim baseUrl As String = “https://api.coinbase.com”
Dim m_CBapikey As String = Environment.GetEnvironmentVariable(“CB_APIKEY”)
Dim m_CBseckey As String = Environment.GetEnvironmentVariable(“CB_SECKEY”)
Dim requestPath As String = “/api/v3/brokerage/products”
Sendrequest(m_CBapikey, m_CBseckey, baseUrl, requestPath)
End Sub
Sub Sendrequest(apiKey As String, apiSecret As String, baseUrl As String, requestPath As String)
Dim client As New RestClient(baseUrl)
Dim request As New RestRequest(requestPath, Method.Get)
Dim m_Method As String = “GET”
Dim timestamp As String = DateTimeOffset.Now.ToUnixTimeSeconds()
Dim queryString As String = timestamp + m_Method + requestPath
Dim sign As String = CreateSignature(queryString, apiSecret)
request.AddHeader("CB-ACCESS-TIMESTAMP", timestamp)
request.AddHeader("CB-ACCESS-KEY", apiKey)
request.AddHeader("CB-ACCESS-SIGN", sign)
request.AddParameter("application/x-www-form-urlencoded", queryString, ParameterType.RequestBody)
Dim response As RestResponse = client.Execute(request)
Console.WriteLine(response.Content)
End Sub
Function CreateSignature(queryString As String, apiSecret As String) As String
Dim hmac As HMACSHA256 = New HMACSHA256(Encoding.UTF8.GetBytes(apiSecret))
Dim signatureBytes As Byte() = hmac.ComputeHash(Encoding.UTF8.GetBytes(queryString))
Return BitConverter.ToString(signatureBytes).Replace("-", "").ToLower()
End Function
End Class
Can you help me ? Thx in advance GWEPPD