代码类似
Dim appId = "5b1747e93b708d0a80667400"
Dim entryId = "5b1749ae3b708d0a80667408"
Dim apiKey = "CTRP5jibfk7qnnsGLCCcmgnBG6axdHiX"
Dim url As String = "https://www.jiandaoyun.com/api/v1/app/" & appId & "/entry/" & entryId & "/data"
Dim jo As New JObject
jo("data_id") = "59e9a2fe283ffa7c11b1ddbf"
jo("limit") = 100
Dim ja As New Jarray '定义数组
ja.Add("_widget_1508400000001")
ja.Add("_widget_1508400000002")
jo("fields") = ja
jo("filter") = New JObject
jo("filter")("rel") = "and"
ja = New Jarray
Dim jo2 As new JObject
jo2("field") = "_widget_1508400000001"
jo2("type") = "text"
jo2("method") = "empty"
ja.Add(jo2)
jo2 = new JObject
jo2("field") = "_widget_1508400000002"
jo2("type") = "number"
jo2("method") = "not_empty"
ja.Add(jo2)
jo("filter")("cond") = ja
Dim hc As New HttpClient(url)
hc.Content = jo.ToString()
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
加好友 
发短信
Post By：2018/8/4 9:35:00 [显示全部帖子]
