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

需求：有3个网页需要检测：

1、没找到api，请自行根据敏感词检测。

 

2、

 

Dim body As String = "{""image"":""" & strbase64 & """,""scenes"":[""politician"",""antiporn"",""terror"",""quality""]}"

 

3、参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104710&skin=0

 

文字识别api见下图：（鼠标放在左上角：产品---左下角：人工智能---右侧：文字识别）

 没有文字识别。自己认认真真看文档。你要校验昵称，不是文字识别。

mark 身份证识别

 

Dim bmp As new Bitmap("c:\bbb.jpg")
Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()

Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose
msgbox("读取图片完毕")

Dim body As String = "id_card_side=front&image=" & UrlEncode(strbase64) & ""
Dim token As String = "24.864d8f6c5046ba8fa0bc3ee503583c10.2592000.1508053325.282335-10146214"
Dim req = System.Net.WebRequest.Create("https://aip.baidubce.com/rest/2.0/ocr/v1/idcard?access_token=" & token)
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
msgbox("获取数据完毕")

Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close

Dim jo As JObject = Jobject.Parse(str)
msgbox(jo.ToString)

 

1.执行4楼代码，图片审核，下面是jo.tostring返回的结果，如何用代码判断图片有问题？

1、请去学习json的知识点 http://www.foxtable.com/mobilehelp/scr/0140.htm

 

判断 conclusion、 result等值。

 

2、 做一个表格，然后检测字符是否包含表格的字符。

图片审核定义body，对比12楼的色情识别、暴恐识别、政治敏感识别、图像质量检测，增加了文字识别ocr、恶心disgust
Dim body As String = "{""image"":""" & strbase64 & """,""scenes"":[""ocr"",""politician"",""antiporn"",""terror"",""disgust"",""quality""]}"

得到如下结果：

弹出值对比一下就好了，比较文字、比较数值，规律自行测试。

 

msgbox(jo("result")("antiporn")("conclusion"))
msgbox(jo("result")("terror")("result"))

楼主，你好！请问下文字视别效果如何？