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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/20 15:35:00 [显示全部帖子]

以下是引用baoxyang在2017/10/20 15:23:00的发言：
楼主，你好！请问下文字视别效果如何？

识别率，绝对靠谱。可以自行测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 0:28:00 [显示全部帖子]

1、应该没有这样的api，你去百度和阿里云那里找找。

2、 http://www.foxtable.com/mobilehelp/scr/0163.htm

请求说明

请求示例

HTTP方法: POST
请求URL: https://aip.baidubce.com/rest/2.0/antispam/v2/spam
URL参数：

参数	值
access_token	通过API Key和Secret Key获取的access_token,参考“Access Token获取”

Header如下：

参数	值
Content-Type	application/x-www-form-urlencoded

body请求示例: content=苟利国家生死以

请求参数

参数名称	类型	是否必须	详细说明
content	string	是	待审核文本，UTF-8，不可为空，不超过20000字节

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

Dim text = "content=狗蛋"
Dim token As String = "24.abb0af926867cfe101fd34cfae1b57ce.2592000.1545191692.282335-10146214"
Dim hc As New HttpClient("https://aip.baidubce.com/rest/2.0/antispam/v2/spam?access_token=" & Token)
hc.Headers.Add("Content-Type","application/x-www-form-urlencoded")
hc.content = text
Dim result = hc.GetData
msgbox(result)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

我测试没问题，请认真测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 14:52:00 [显示全部帖子]

我这边测试没问题，你试试卸载重装foxtable后测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/20 9:43:00 [显示全部帖子]

回复前面。那你试试卸载重装 .net framework 吧，尽量安装 3.5 版本。

[此贴子已经被作者于2018/11/20 9:42:54编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/20 14:40:00 [显示全部帖子]

那返回就是正常的。

你xp系统的话，试试卸载重装 .net framework 3.5

你得到数据以后，读取json即可 http://www.foxtable.com/mobilehelp/scr/0140.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/25 16:56:00 [显示全部帖子]

测试的时候，请这样测试

Dim json As String = ClipBoard.GetText

Dim jo As JObject = JObject.Parse(json)
Output.Show(jo("log_id"))
Output.Show(jo("result")("spam"))
Output.Show(jo("result")("review").Tostring)
Output.Show(jo("result")("reject").Tostring)
For Each jt As JToken In jo("result")("pass")
Output.Show(jt("score").ToString & "|" & jt("hit").ToString & "|" & jt("label").ToString)
Next

然后拷贝下面内容，点击执行上的代码

{"log_id": 6632151742558786072, "result": {"spam": 0, "review": [], "reject": [], "pass": [{"score": 0.0099999997764826, "hit": [], "label": 1}, {"score": 0.075000002980232, "hit": [], "label": 2}, {"score": 0, "hit": [], "label": 3}, {"score": 0.27147358208955, "hit": [], "label": 4}, {"score": 0.017000000923872, "hit": [], "label": 5}]}}