- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 时间节点事件 图 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175920)
-- 发布时间：2022/3/24 8:16:00
--
先要有api的信息
比如这样：
Dim hc As New HttpClient("http://ali-*********************&nu=" & e.form.controls("Textbox1").Text)
hc.Headers.Add("Authorization","APPCODE " & "0d9c***************2349421")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
Dim str As String = ""
For Each jt As JToken In jo("showapi_res_body")("data")
str &= jt("time").ToString & " | " & jt("context").ToString & vbcrlf
Next
msgbox(str)
End If
此主题相关图片如下：qq截图20220324083550.jpg
[此贴子已经被作者于2022/3/24 8:36:12编辑过]