这是我写得代码:
Dim apiName As String = "TEST_SCM_CMS_querySitesService" 'api应用程序编程接口名称
Dim version As String = "1.0.0" '版本
Dim ak As String = "Z9SDJaqGJ9G/dobrE/N/MUDzuxA=" 'accessKey访问密钥
Dim sk As String = "bea1e13851cb4b5d95a42f059ed6ddbf" ' secret Key 密钥
Dim hc As New HttpClient("http://10.72.231.22:8086/lis/querysites") '如果需要传递请求参数 可以拼接到请求URL中
hc.Headers.Add("apiName", apiName) '增加头数据
hc.Headers.Add("version", version)
hc.Headers.Add("ak", ak)
hc.Headers.Add("sk", sk)
hc.C '业务数据封装成json格式包含在POST请求的请求体中
hc.Method = "post" '设置调用方式, 必须为 post
Dim jo As New JObject
jo("orderNo") = "TO20220926000004"
jo("pageNo") = 1
jo("pageSize") = 2000
hc.Content = jo.tostring
Output.Show(jo.ToString)
Dim ret As String = hc.GetData '接收反馈数据
Output.Show(ret)