Dim hc As New HttpClient("http://orderprocesstest.haiziwang.com:8080/dap-web/pop/selectPopSkuList.do")
dim json as string = "{""msg"":""商家订单列表查询成功"",..............}"
hc.Content = json
dim res = hc.GetData
msgbox(res)
Dim jo As JObject = Jobject.Parse(res)
Output.Show(jo.ToString)