- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]弹出jo导致fox得强行关闭？难道是jo太长了？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106971)
-- 发布时间：2017/9/19 11:11:00
-- [求助]弹出jo导致fox得强行关闭？难道是jo太长了？
此主题相关图片如下：qq图片20170919110113.png
我在下载永久素材代码里加了弹窗。。结果就变成这样了，必须强行结束fox
代码
Do
Dim hc As new HttpClient(CExp(ur, Functions.Execute("GetAccessToken")))
Dim jo As New JObject
jo("type") = typ
jo("offset") = offset
jo("count") = 20 \'一次最多获取20个
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
MessageBox.Show(jo.Tostring)
If jo("errcode") Is Nothing Then
If CInt(jo("item_count")) = 0 Then
Exit Do
End If
For Each item As JToken In jo("item")
Dim dr As DataRow = DataTables("Materials").AddNew
dr("content_source_url") = item("content_source_url")
dr("digest") = item("digest")
dr("name") = item("title")
还有个问题，为什么我获取不到title和content_source_url
-- 发布时间：2017/9/19 11:12:00
--
在http://www.foxtable.com/mobilehelp/scr/0208.htm例子
-- 发布时间：2017/9/19 11:20:00
--
1、改成output.show看看，去命令窗口看得到内容。
2、如果还不行，就改成 ClipBoard.SetText(jo.Tostring)，然后在一个文本文件里粘贴得到的内容
-- 发布时间：2017/9/19 11:21:00
--
为什么我获取不到titl和content_source_url
-- 发布时间：2017/9/19 11:28:00
--
有值才能获取，你看看你 jo.Tostring 的值是什么。
-- 发布时间：2017/9/19 11:28:00
--
此主题相关图片如下：qq图片20170919112544.png
我能说又卡死了，点不动没反应么。。。。
-- 发布时间：2017/9/19 11:28:00
--
或者你看看你 hc.GetData 的值是什么。
-- 发布时间：2017/9/19 11:32:00
--
此主题相关图片如下：qq图片20170919112544.png
改成 ClipBoard.SetText(jo.Tostring)，或 ClipBoard.SetText(hc.GetData)， 然后在一个文本文件里粘贴得到的内容。
-- 发布时间：2017/9/19 11:53:00
--
这个接口使用量怎么算的？为什么我才测试几次就没了？？？
我明明只有几个素材。。。
此主题相关图片如下：qq图片20170919115012.png
-- 发布时间：2017/9/19 11:54:00
--
我去 我清零了 调用一次居然200多。。。。