VB.NET订单binance一直得到错误400

我试图张贴一个出售订单使用binance API。我不知道我做错了什么，但我一直得到错误400。命令问题，但是当我把它和binance的例子比较时，我没有看到区别…代码:

Private Sub BinanceOrder2(ByVal aantal As String ByVal munt As String ByVal prijs As String ByVal type As String)

TimeStamp As String = CLng((DateTime。))。ToString UtcNow - # 1970/01/01 #) 。TotalMilliseconds)

    Try
        Dim TotalParam As String
        TotalParam = "symbol=XLMUSDT&side=SELL&type=LIMIT&timeInForce=GTC&quantity=5&price=0.1&recvWindow=5000&timestamp=" & 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时间与binance服务器时间相差1600ms。我写了一个时间同步器，现在它像魔法一样工作。