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


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

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


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/19 11:36:00 [显示全部帖子]

楼上第2个问题
尝试了好几个小时，也没有弄出来，若能给个例子，那就太感谢了！


Dim text = "狗蛋"
Dim hc A s New HttpC lient("https://aip.baidubce.com/rpc/2.0/nlp/v1/lexer")
hc.Con tentType = "applica tion/x-w ww-fo rm-url encoded"
Dim token As String = "24.ee769b8e9b4df4450143b25069981892.2592000.1508637775.282335-10174353"
hc.Con tent = "acces s_token=" & token

msgbox("获取数据完毕")
Dim stm As Sys tem.IO.Str eam = pos.GetResponseStream()
Dim reader As New Sy stem.I O.Strea mReader(stm)
Dim str As String = read er.Rea dToEnd
po s.Close
st m.Close
rea der.close
Dim jo As JOb ject = Jobje ct.Par se(str)
msgbox("3:" & jo.ToString)
[此贴子已经被作者于2018/11/19 11:43:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/19 12:19:00 [显示全部帖子]

在命令窗口测试楼上代码，提示错误，然后，result=空

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
基础连接已经关闭: 发送时发生错误。
从传输流收到意外的 EOF 或 0 个字节。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片2018111912172777777.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/19 12:33:00 [显示全部帖子]

Dim text = "content=狗蛋"
msgbox(1)
Dim token As String = "24.79b20631488199796a165cd15678badb.2592000.1545193525.282335-14853135" 
’token使用你的一样提示下图
msgbox(2)
Dim hc As New HttpClient("https://aip.baidubce.com/rest/2.0/antispam/v2/spam?access_token=" & token)
msgbox(3)
hc.Headers.Add("Content-Type","application/x-www-form-urlencoded")
msgbox(4)
hc.content = text
msgbox(5) '执行到这里，显示5，之后，提示下图错误
Dim result = hc.GetData
msgbox("3:" & result)

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20181119123804444.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20181119123626666.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/11/19 12:38:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/19 21:26:00 [显示全部帖子]

重装了，但是，与28楼结果一样，还是提示基础连接已经关闭

不过下图红框显示，有文本审核调用次数（因为是延迟数据，实际次数可能会更多），调用失败率为0，难道是软件哪没有用好

我是在命令窗口测试的，不知道，这个有没有影响

图片点击可在新窗口打开查看此主题相关图片如下：qq图片201811192122555555.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/11/19 21:28:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/20 14:37:00 [显示全部帖子]

可能是我电脑的系统是xp的，重装3.5也还是不行

刚刚，放在服务器上测试，得到的结果，见下图（没有提示错误）

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_201811201434477777.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/11/20 14:40:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/25 10:24:00 [显示全部帖子]

Dim json As String = "{"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}]}}" '两端已经加上符号了，这个字符串是从服务器访问记录完整抄过来的
Dim jo As JObject = JObject.Parse(json)
Output.Show(jo("log_id"))

Output.Show(jo("result")("spam"))
Output.Show(jo("result")("review"))
Output.Show(jo("result")("reject"))
For Each jt As JToken In jo("result")("pass")
    Output.Show(jt("score").ToString & "|" & jt("hit").ToString & "|" & jt("label").ToString) 
Next

保存上述代码，提示：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片201811251021400975433222.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/11/25 10:28:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/26 10:39:00 [显示全部帖子]

将上述代码应用到网页内，代码如下：

******
Dim text = "cfont-family: Verdana;">Dim token As String = "24.335ebee6313224b4c8dc3f3135768241.2592000.1545641111.282335-14853135"
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
Functions.Execute("logtext","昵称=" & nicheng & "|result=" & result) ’这里正常执行，随后发生调用错误

Dim json As String = ClipBoard.GetText ’这里改为=result，就没有下面的错误提示了，但是Output.Show服务器没有展示，logtext也没有错误提示
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

logtext记录错误如下：
2018-11-26 10:32:06.9866
正常记录,valid_fillout函数,顶部专设记录
2018-11-26 10:32:07.3558
昵称=吊毛1小撮|result={"log_id": 8123061711979902650, "result": {"spam": 2, "review": [{"score": 0.81499999761581, "hit": [], "label": 2}], "reject": [], "pass": [{"score": 0, "hit": [], "label": 1}, {"score": 0, "hit": [], "label": 3}, {"score": 0.12587086092715, "hit": [], "label": 4}, {"score": 0.21099999547005, "hit": [], "label": 5}]}}
2018-11-26 10:32:07.4485
调用的目标发生了异常。
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)
Unexpected character encountered while parsing value: z. Path '', line 0, position 0.
   在 Newtonsoft.Json.JsonTextReader.ParseValue()
   在 Newtonsoft.Json.JsonTextReader.Read()
   在 Newtonsoft.Json.Linq.JObject.Load(JsonReader reader, JsonLoadSettings settings)
   在 Newtonsoft.Json.Linq.JObject.Parse(String json, JsonLoadSettings settings)
   在 Newtonsoft.Json.Linq.JObject.Parse(String json)
   在 UserCode.ArktFkWwy8wl2gC3u(Object[] Args)
[此贴子已经被作者于2018/11/26 11:02:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/26 12:43:00 [显示全部帖子]

把Output.Show改成magbox就好了

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


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/11/27 11:11:00 [显示全部帖子]

token有1个月时限，每次都手动获取，有点麻烦

是否可以自动获取

另
36楼代码，可以这样判断score数值么？
If jo("result")("spam").Tostring = "1" OrElse jo("result")("spam").Tostring = "2" Then
    e.WriteString("请更换昵称!")
    Return ""
End If
For Each jt As JToken In jo("result")("pass")
    If jt("score").ToString > 0.2 Then
       e.WriteString("请更换昵称!")
       Return ""
    End If
Next


                   result={"log_id": 2280020628089929498, 
                 "result": {"spam": 0, 
                              "review": [], 
                               "reject": [], 
                                "pass": [{"score": 0.0099999997764826, "hit": [], "label": 1}, 
                                            {"score": 0.10300000011921, "hit": [], "label": 2}, 
                                            {"score": 0, "hit": [], "label": 3}, 
                                            {"score": 0.27147358208955, "hit": [], "label": 4}, 
                                            {"score": 0.028000000864267, "hit": [], "label": 5}]
                                            }
                               }
[此贴子已经被作者于2018/11/27 11:38:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1533 积分：10818 威望：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


主要想问，如何自动获取，保存到数据库
 回到顶部
总数 23 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询