问题描述
我正在尝试使用币安 API 发布卖单。我不知道我做错了什么,但我一直收到错误 400。命令问题,但是当我将它与 binance 示例进行比较时,我没有看到区别......代码:
私有子 BinanceOrder2(ByVal aantal As String,ByVal munt As String,ByVal prijs As String,ByVal type As String)
Dim TimeStamp As String = CLng((DateTime.UtcNow - #1970/01/01#).TotalMilliseconds).ToString
Try
Dim TotalParam As String
TotalParam = "symbol=XLMUSDT&side=SELL&type=LIMIT&timeInForce=GTC&quantity=5&price=0.1&recvWindow=5000×tamp=" & TimeStamp
Dim HashKey As String
HashKey = HashString(TotalParam,SecretKey)
Dim APIUrl As String
APIUrl = "https://api.binance.com/api/v3/order/test?" + TotalParam + "&signature=" + HashKey
Dim Request As System.Net.HttpWebRequest
Request = DirectCast(System.Net.HttpWebRequest.Create(APIUrl),System.Net.HttpWebRequest)
Request.Method = "POST"
Request.Headers.Add("X-MBX-APIKEY",APIKey)
Dim Response As System.Net.HttpWebResponse = DirectCast(Request.GetResponse(),System.Net.HttpWebResponse) '
Dim Read = New System.IO.StreamReader(Response.GetResponseStream).ReadToEnd
rtxtReply.Text = Read
rtxtReply.Refresh()
Catch ex As Exception
rtxtReply.Text = "ERROR: " & ex.ToString
End Try
End Sub
hashkey 函数工作正常,因为我可以访问我的钱包等。 我花了很多时间来解决这个问题,但到目前为止还没有成功。 我感谢任何建议...
解决方法
解决了。 第二个问题:PC 的 UTC 时间与币安服务器时间相差 1600 毫秒。我写了一个时间同步子,现在它就像一个魅力。