以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间节点事件 图  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175920)

--  作者:yifan3429
--  发布时间:2022/3/24 1:17:00
--  时间节点事件 图

图片点击可在新窗口打开查看此主题相关图片如下:20207713292648933.png
图片点击可在新窗口打开查看

怎么是实现 ,不借助exwui  直接在窗口内显示
[此贴子已经被作者于2022/3/24 1:17:04编辑过]

--  作者:cd_tdh
--  发布时间: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编辑过]

--  作者:yifan3429
--  发布时间:2022/3/24 23:05:00
--  
o
[此贴子已经被作者于2022/3/24 23:05:45编辑过]