这些是.net5.0的语法，foxtable用不了，咨询官方要支持.net 4.0的用法，或者试试
全局代码
Public Function GetSign(ByVal content As String, ByVal appKey As String, ByVal appSec As String) As String
Dim fullContent As String = content & appSec
Dim buytes As Byte() = Encoding.GetEncoding("UTF-8").GetBytes(fullContent)
Using md5 As MD5 = New MD5CryptoServiceProvider()
Dim outBytes = md5.ComputeHash(buytes)
Return Convert.ToBase64String(outBytes)
End Using
End Function
调用
Dim htc As new HttpClient("https://japi-test.zto.com/zto.open.getOrderInfo")
Dim appKey = "d577e7b5024ad20446e10"
Dim appSec = "0e8e9457d493666ee2f5adb783e69abb"
htc.Headers.Add("x-appKey", appKey)
dim digest = GetSign(jsonStr, appKey, appSec)
htc.Headers.Add("x-datadigest", digest)
htc.Content = "提交的json字符串"
htc.ContentType = "application/json"
dim res = htc.GetData()
msgbox(res)
加好友 
发短信
Post By：2021/1/8 13:56:00 [显示全部帖子]
