Bitcoin Forum

VB.NET-Quellcode

    ​
    Public Shared api_url As String = "https://api.bitfinex.com/"
    Public Shared api_key As String = "CodeCodeCode"
    Public Shared api_secret As String ="CodeCodeCode"
    Public Shared api_path As String = "/v1/symbols"
    'Public Shared api_path As String = "/v1/account_infos"
    Public Function check_balance()
    Dim payLoadobject As New PayLoad()
    Dim MySerializer As JavaScriptSerializer = New JavaScriptSerializer()
    Dim payloadJson As String = MySerializer.Serialize(payLoadobject)
    Dim payload As String = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(payloadJson))
    Dim encoding As New System.Text.ASCIIEncoding()
    Dim getmessageBytes As Byte() = encoding.GetBytes(payload)
    Dim secretByte As Byte() = encoding.GetBytes(api_secret)
    Dim gethmacsha384 As New HMACSHA384(secretByte)
    Dim hashmessage As Byte() = gethmacsha384.ComputeHash(getmessageBytes)
    Dim finalString As New StringBuilder()
    For i As Integer = 0 To hashmessage.Length - 1
    finalString.Append(hashmessage(i).ToString("X2"))
    Next
    Dim SIGNATURE As String = finalString.ToString()
    Dim request As HttpWebRequest
    Dim nurl As String = api_url + api_path
    Dim address As Uri = New Uri(nurl)
    request = DirectCast(WebRequest.Create(address), HttpWebRequest)
    request.Accept = True
    request.Method = "GET" 'POST or GET
    request.Headers("X-BFX-APIKEY") = api_key
    request.Headers("X-BFX-PAYLOAD") = payload
    request.Headers("X-BFX-SIGNATURE") = SIGNATURE
    request.AllowAutoRedirect = True
    request.AllowWriteStreamBuffering = True
    request.KeepAlive = True
    Dim response As HttpWebResponse = Nothing
    Dim reader As StreamReader = Nothing
    Dim result As String = Nothing
    Try
    response = DirectCast(request.GetResponse(), HttpWebResponse)
    reader = New StreamReader(response.GetResponseStream())
    result = reader.ReadToEnd()
    Catch ex As Exception
    Return ex.Message.ToString()
    Finally
    If Not response Is Nothing Then response.Close()
    End Try
    Return result
    End Function
    Public Class coptions
    Public hostname As String = "https://api.bitfinex.com/"
    Public port As String = "443"
    Public path As String
    Public method As String = "GET" 'POST OR GET
    End Class
    Public Class PayLoad
    Public request As String = api_path
    Public nonce As String = Convert.ToInt64((DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds)
    Public options As New coptions
    End Class