确定接口地址是对的，我在文档找不到这个接口。试试
Dim hc As New HttpClient("http://10.30.20.27:8080/mbs-fsi/web/api/fsi/getMedUrl")
hc.ContentType = "application/json"
Dim json As String = "{'infno':'9001', 'msgid':'000000000001202106161726210001', 'insuplc_admdvs':'140322', 'mdtrtarea_admvs':'140322', 'recer_sys_code':'01', 'cainfo':'000000000000', 'dev_no':null, 'dev_safe_info':null, 'signtype':'SM3', 'infver':'1.0', 'opter_type':'1', 'opter':'001', 'opter_name':'操作员','inf_time':'2021-06-16 17:26:25','fixmedins_code':'001', 'fixmedins_name':'001', 'sign_no':null, 'input':{'signIn':{'mac':'52-54-00-45-ED-D4', 'ip':'81.69.46.168', 'opter_no':'001'}}}"
Dim jo As JObject = JObject.Parse(json) '将字串转换成json
jo("msgid") = "0000000000012" & Format(Date.Now, "yyyyMMddhhmmss0001") '修改了json几个值
jo("inf_time") = Date.now
Dim zhzc As String = CompressJson(jo) '将json 转字串
hc.Content = zhzc
Dim ret As String = hc.GetData
msgbox(ret)
加好友 
发短信
Post By：2022/12/18 19:59:00 [显示全部帖子]
