Dim ul As String = "https://api.piaocc.com/rest/v_1/code_check.html"
Dim hc As New HttpClient(ul)
hc.C
hc.Method = "POST"
hc.Headers.Add("authCode", "6c7f36927ab8eec9ad559a3f21929932")
Dim jo As New JObject
jo("vCode") = "01,10,062001900111,34645821,264.15,20220315,82545294582625960956,9B34,"
jo("useCache") = "Y"
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Output.Show(ret)
上面显示不全，详见下面的截图
[此贴子已经被作者于2022/11/13 9:00:56编辑过]
加好友 
发短信
Post By：2022/11/13 8:59:00 [只看该作者]
