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


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

主题：文字、图片自动审核（鉴别色情|恶心|政治|等等），该怎么做？
帅哥哟，离线，有人找我吗？
有点甜
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/27 12:20:00 [只看该作者]

1、去看如何获取token

 

https://ai.baidu.com/docs#/Auth/75d80ed1

 

2、你间隔一个月，或者定时获取token过来
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1528 积分：10778 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/27 12:25:00 [只看该作者]

用连接获取token，已经会了

https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=jGn8mcvbkGFBFSBM4xXQyGoF&client_secret=MkrFL3WANutt9o7XiDe3hzlg8PIp4Qxb

得到token 24.864d8f6c5046ba8fa0bc3ee503583c10.2592000.1508053325.282335-10146214


主要想问，如何自动获取，保存到数据库
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/27 12:29:00 [只看该作者]

汗，这么简单都不会？

 

Dim hc As New HttpClient("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=jGn8mcvbkGFBFSBM4xXQyGoF&client_secret=MkrFL3WANutt9o7XiDe3hzlg8PIp4Qxb")
Dim result As String = hc.GetData()
MessageBox.Show(result)

 

https://ai.baidu.com/docs#/Auth/75d80ed1

 
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1528 积分：10778 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/27 15:14:00 [只看该作者]

我测试没问题


Dim hc As New HttpClient("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=jGn8mcvbkGFBFSBM4xXQyGoF&client_secret=MkrFL3WANutt9o7XiDe3hzlg8PIp4Qxb")
Dim result As String = hc.GetData()
MessageBox.Show(result)
Dim json As String = result
Dim jo As JObject = JObject.Parse(json)
result = jo("access_token")
msgbox(result)

 
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1528 积分：10778 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/27 20:29:00 [只看该作者]

客户端获取服务器短的全局变量？！这个不可能的

把token保存到数据库里
 回到顶部
帅哥哟，离线，有人找我吗？
nxhylczh
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：335 积分：2674 威望：0 精华：0 注册：2018/11/22 9:19:00 		  发帖心情 Post By：2019/3/29 11:06:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
总数 48 上一页 1 2 3 4 5
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询