Hoi,
ik probeer te connecten met Bitvavo dmv vba.net.
Een dot.net SDK voor Bitvavo is er nog niet, dus moet alles van scratch af aan worden bedacht.
wat ik heb :
Public Async Function GetBitVavoPortefuille() As Task
Try
Dim TimeStamp As String = CLng((DateTime.UtcNow - #1970/01/01#).TotalMilliseconds).ToString
Dim TotalParam As String = TimeStamp & "GET/v2/balance"
Dim HashKey As String = HashString(TotalParam, BitvavoApiSecret)
Dim APIUrl As String = "https://api.bitvavo.com/v2/balance" + TotalParam + "&signature=" + HashKey
Dim Request As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(APIUrl), System.Net.HttpWebRequest)
Request.Headers.Add(BitvavoApiKey)
Dim Response As System.Net.HttpWebResponse = DirectCast(Request.GetResponse(), System.Net.HttpWebResponse)
Dim Read = New System.IO.StreamReader(Response.GetResponseStream).ReadToEnd
Catch ex As Exception
Stop
End Try
End Function
Public Function HashString(ByVal StringToHash As String, ByVal HachKey As String) As String
Dim myEncoder As New System.Text.UTF8Encoding
Dim Key() As Byte = myEncoder.GetBytes(HachKey)
Dim Text() As Byte = myEncoder.GetBytes(StringToHash)
Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
Dim HashCode As Byte() = myHMACSHA256.ComputeHash(Text)
Dim hash As String = Replace(BitConverter.ToString(HashCode), "-", "")
Return hash.ToLower
End Function
Dit werkt echter niet, Exception thrown: 'System.ArgumentException' in System.Net.WebHeaderCollection.dll
(ws verkeerde opbouw webheader.)
Ik loop hierop vast
Nu is dit een retreiver, ik heb liever een listener.
De bedoeling is : retreivers voor historische info en orders en websockets voor actuele data.
De manual bitvavo: https://docs.bitvavo.com/
Ik zoek werkende code-snippits die ik mag gebruiken.
vr.gr, Jos
ik probeer te connecten met Bitvavo dmv vba.net.
Een dot.net SDK voor Bitvavo is er nog niet, dus moet alles van scratch af aan worden bedacht.
wat ik heb :
Public Async Function GetBitVavoPortefuille() As Task
Try
Dim TimeStamp As String = CLng((DateTime.UtcNow - #1970/01/01#).TotalMilliseconds).ToString
Dim TotalParam As String = TimeStamp & "GET/v2/balance"
Dim HashKey As String = HashString(TotalParam, BitvavoApiSecret)
Dim APIUrl As String = "https://api.bitvavo.com/v2/balance" + TotalParam + "&signature=" + HashKey
Dim Request As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(APIUrl), System.Net.HttpWebRequest)
Request.Headers.Add(BitvavoApiKey)
Dim Response As System.Net.HttpWebResponse = DirectCast(Request.GetResponse(), System.Net.HttpWebResponse)
Dim Read = New System.IO.StreamReader(Response.GetResponseStream).ReadToEnd
Catch ex As Exception
Stop
End Try
End Function
Public Function HashString(ByVal StringToHash As String, ByVal HachKey As String) As String
Dim myEncoder As New System.Text.UTF8Encoding
Dim Key() As Byte = myEncoder.GetBytes(HachKey)
Dim Text() As Byte = myEncoder.GetBytes(StringToHash)
Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
Dim HashCode As Byte() = myHMACSHA256.ComputeHash(Text)
Dim hash As String = Replace(BitConverter.ToString(HashCode), "-", "")
Return hash.ToLower
End Function
Dit werkt echter niet, Exception thrown: 'System.ArgumentException' in System.Net.WebHeaderCollection.dll
(ws verkeerde opbouw webheader.)
Ik loop hierop vast
Nu is dit een retreiver, ik heb liever een listener.
De bedoeling is : retreivers voor historische info en orders en websockets voor actuele data.
De manual bitvavo: https://docs.bitvavo.com/
Ik zoek werkende code-snippits die ik mag gebruiken.
vr.gr, Jos