Dim hc As New HttpClient("https://qyapi.weixin.qq.com/cgi-bin/appchat/send?access_token=" & Functions.Execute("GetAccessToken_saqw"))
Dim jo As New JObject
jo("chatid") = CStr("chatid")
jo("msgtype") = CStr("textcard")
jo("textcard") = New JObject
jo("textcard")("title") = CStr("咨询通知")
jo("textcard")("description") = ("<div class=\""gray\"">" & Date.Now & "</div><div class=\""normal\"">咨询用户:" & fsr & "</div><div class=\""highlight\"">" & fsnr & "</div>")
jo("textcard")("url") = CStr("https://saqx.qs-system.com/#/pages/chat/chatyg?id=" & fsr)
hc.content = jo.ToString
Dim ret As String = hc.GetData()
老师,这个在apifox里测试是正常的,放到狐表调用的时候就输出纯字符串了,应该怎么处理?
{
"chatid": "shianqianxunkehuzixun",
"msgtype":"textcard",
"textcard":{
"title" : "咨询通知",
"description" : "<div class=\"gray\">2024年6月21日16:03:05</div><div class=\"normal\">咨询用户:liuxiaohuan</div><div class=\"highlight\">请于2016年10月10日前联系行 政同事领取</div>",
"url":"https://saqx.qs-system.com/#/pages/chat/chatyg?id=123"
},
"safe":0
}