文字、图片自动审核（鉴别色情|恶心|政治|等等），该怎么做？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文字、图片自动审核（鉴别色情|恶心|政治|等等），该怎么做？

共有9541人关注过本帖树形打印复制链接主题：文字、图片自动审核（鉴别色情\|恶心\|政治\|等等），该怎么做？

zhangjian222200

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/11/27 13:12:00 [显示全部帖子]

今天好好看看客服端的内容

看了楼上，和高级开发文档试了下，计划任务里面，本机执行的，发现不行，但是下面的链接，放在浏览器里面是可以的

Dim hc As New HttpClient("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=正确的API Key&client_secret=正确的Secret Key")

Dim result As String = hc.GetData()

msgbox(result) ’result=空

Dim json As String = result

Dim jo As JObject = JObject.Parse(json)

result = jo("access_token")

msgbox(result) ’result=空

Vars("token") = result

下面是连接访问结果

此主题相关图片如下：qq图片2018112510975433222.png

[此贴子已经被作者于2018/11/27 13:33:59编辑过]

zhangjian222200

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/11/27 18:57:00 [显示全部帖子]

下面代码放在服务器，就正常了。可能还是我本机是xp的原因，上回说的3.5版本，没有重装

Dim hc As New HttpClient("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=正确的API Key&client_secret=正确的Secret Key")

Dim result As String = hc.GetData()

Dim json As String = result

Dim jo As JObject = JObject.Parse(json)

result = jo("access_token")

Vars("token") = result ’将最新结果赋值给全局变量token

msgbox（Vars("token") ） ’这儿服务器执行正常

有一个小问题：

之前手动获取的token，写在下图全局变量了，服务器获得后，打开本机，居然没有变，

下图红框，怎么样才能是最新的token？

此主题相关图片如下：qq图片2018112718404666666.png

[此贴子已经被作者于2018/11/27 18:58:33编辑过]

总数 23 上一页 1 2 3

主题：文字、图片自动审核（鉴别色情|恶心|政治|等等），该怎么做？