Dim hc As New HttpClient("http://10.217.124.147:5000/api/App/Single/B89C2FBCA5C701B2E0530AD97B4CA4DD")
hc.ContentType = "application/json"Dim jo As New JObject
jo("AppCode") = "145C9ADE1FF943B1345D647AAB031555"
……自行添加其它json数据
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
MessageBox.Show(ret)