Dim hc As new HttpClient("http://dapopen.haiziwang.com/pop/selectBusinessOrderList.do") Dim jstr As String="{'loginName':'w1000125', 'appkey': 'DAD3BBF2098B4F1B9F85B66523254F78', 'page': '1', 'pagesize': '10','startTime': '2016-04-19', 'endTime': '2016-04-22', 'dealState': '3', 'timeParamType': '1'}" hc.FormData.Add("jsonStr", jstr) Dim ret As String = hc.getdata() output.show(ret)
|