老师好!我在做一个调用阿里云CSB服务的测试
此主题相关图片如下:图片1.png
![dvubb 按此在新窗口浏览图片](UploadFile/2022-10/202210209591886791.png)
首先用命令行验证CSB服务连通有效性,返回结果:retStr after changeCharset = true,说明线路是通的
此主题相关图片如下:图片2.png
![dvubb 按此在新窗口浏览图片](UploadFile/2022-10/202210201034049669.png)
接着我用代码调用阿里云CSB服务,提示:远程服务器返回错误: (500) 内部服务器错误,请问老师问题出在哪里?谢谢我写的代码如下:
Dim url As String = "http://10.72.231.22:8086/scm/checkHealth" 'api应用程序编程接口名称
Dim apiName As String = "TEST_SCM_HNXS_checkHealth" 'api应用程序编程接口名称
Dim apiVersion 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(url)
hc.Method = "POST" '设置调用方式, 必须为 post
hc.C '业务数据封装成json格式包含在POST请求的请求体中
Dim jo As New JObject '在JObject中提交参数
jo("_api_name") = apiName
jo("_api_version") = apiVersion
jo("_api_access_key") = ak
jo("_api_secret_key") = sk
hc.Content = jo.ToString
Output.Show(jo.ToString)
Dim ret As String = hc.GetData '接收反馈数据
Output.Show(ret)