通过PU方式调用接口,请求体没有传过去
具体代码如下:
Dim hc As New HttpClient("https://smlopenapi.esign.cn/v1/accounts/230ffb2c61764a9fbc7e677a79d93ed5")
Dim jo As New JObject
jo("email") = "测试@163.com"
hc.Content = jo.ToString
hc.C
hc.Method = "put"
hc.Accept = "*/*"
hc.Headers.Add("X-Tsign-Open-App-Id", "7438895632")
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Long = CLng((Date.Now - st).TotalMilliseconds()) '时间戳
hc.Headers.Add("X-Tsign-Open-Ca-Timestamp", timestamp)
Dim ContentMD5 As String = Functions.Execute("getContentMD5",jo.ToString)
Dim HTTPMethod As String = "PUT"
Dim Accept As String = "application/json"
Dim ContentType As String = "application/json"
Dim dt As String = ""
Dim Headers As String = ""
Dim Url As String = "https://smlopenapi.esign.cn/v1/accounts/230ffb2c61764a9fbc7e677a79d93ed5"
Dim Signature As String = HTTPMethod & "\n" & Accept & "\n" & ContentMD5 & "\n" & ContentType & "\n" & dt & "\n" & Headers & Url
Dim myEncoder As New System.Text.UTF8Encoding
Dim Key() As Byte = myEncoder.GetBytes("6750131f1fe86bcfbabea0e628039685") '应用密钥
Dim zifuchuan() As Byte = myEncoder.GetBytes(Signature)
Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
Dim HashCode As Byte() = myHMACSHA256.ComputeHash(zifuchuan)
Dim result As String = Convert.ToBase64String(HashCode)
hc.Headers.Add("X-Tsign-Open-Ca-Signature",result) '签名字符串
hc.Headers.Add("Content-MD5",ContentMD5) '
hc.Headers.Add("X-Tsign-Open-Auth-Mode","Signature")
Dim ret As JObject = Jobject.Parse(hc.GetData)
Output.Show(ret.ToString )