Select Case e.Path
Case "mdcx.htm"
Dim dh As String
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=ems&nu=9895269350924")
hc.Headers.Add("Authorization","APPCODE " & "1121")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
For Each jt As JToken In jo("showapi_res_body")("data")
dh = dh & jt("time").ToString & " | " & jt("context").ToString & Chr(13) & Chr(10)
Next
End If
wb.AddForm("","form1","mdcx.htm")
With wb.AddMsgPage("info","msgpage","面单信息",dh)
End With
e.WriteString(wb.Build) '生成网页
End Select
在命令窗口输出面单信息了，还不会在weui里如何显示出来，随便找了个.addmsapage，但生成的页面上是空白的
[此贴子已经被作者于2019/6/11 9:52:51编辑过]
加好友 
发短信
Post By：2019/6/9 16:24:00 [显示全部帖子]
此主题相关图片如下：oj~84j~}54xznf2v}ngpdw.png
