Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么避免弹出对话框?


  共有2127人关注过本帖树形打印复制链接

主题:[求助]怎么避免弹出对话框?

帅哥哟,离线,有人找我吗?
yds
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:628 积分:3588 威望:0 精华:0 注册:2011/5/21 18:05:00
[求助]怎么避免弹出对话框?  发帖心情 Post By:2019/4/13 15:56:00 [只看该作者]

.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2019.4.12.1
错误所在事件:自定义函数WLCX
详细错误信息:
调用的目标发生了异常。
Error reading JObject from JsonReader. Path '', line 0, position 0.




Dim wl,wlxx As String
Dim AppCode As String = Functions.Execute("Get",68) '获取阿里云全国物流快递查询系统的AppCode
Dim dh As String = args(0)
If dh > "" Then
            '获取物流信息
            Dim url As String = "http://ali-deliver.showapi.com/showapi_expInfo?com=auto&nu={0}&senderPhone=8448"
            Dim hc As New HttpClient(CExp(url,dh))
            hc.Timeout = 5 '设置超时为5秒
            hc.Headers.Add("Authorization","APPCODE " & AppCode)
            Dim jo As JObject = Jobject.Parse(hc.GetData)
            If jo("showapi_res_body")("data") IsNot Nothing Then
                wlxx = ""
                For Each jt As JToken In jo("showapi_res_body")("data")
                    If wlxx > "" Then
                        wlxx = wlxx & vbcrlf & jt("time").ToString & " | " & jt("context").ToString
                    Else
                        wlxx = jt("time").ToString & " | " & jt("context").ToString
                    End If
                Next
            End If
    If wlxx Is Nothing Then
        wlxx = "无查询记录"
    End If
    Return wlxx
Else
    Return Nothing
End If

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:628 积分:3588 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2019/4/13 15:56:00 [只看该作者]

.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2019.4.12.1
错误所在事件:
详细错误信息:
远程服务器返回错误: (555) 555。

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:628 积分:3588 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2019/4/13 16:04:00 [只看该作者]

.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2019.4.12.1
错误所在事件:
详细错误信息:
远程服务器返回错误: (555) 555。

.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2019.4.12.1
错误所在事件:自定义函数WLCX
详细错误信息:
调用的目标发生了异常。
Error reading JObject from JsonReader. Path '', line 0, position 0.


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110333 积分:561507 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/13 16:33:00 [只看该作者]


 回到顶部