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

要调用api

https://cloud.baidu.com/product/imagecensoring

获取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

执行代码，获取信息

Dim bmp As new Bitmap("d:\test.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 = "{""image"":""" & strbase64 & """,""scenes"":[""ocr"",""face"",""public"",""politician"",""antiporn"",""terror"",""webimage""],""sceneConf"":{""ocr"":{""recognize_granularity"":""big"",""language_type"":""CHN_ENG"",""detect_direction"":""true"",""detect_language"":""true""},""antiporn"":{}}}"
Dim token As String = "24.864d8f6c5046ba8fa0bc3ee503583c10.2592000.1508053325.282335-10146214"
Dim req = System.Net.WebRequest.Create("http://aip.baidubce.com/api/v1/solution/direct/img_censor?access_token=" & token)
req.Method = "POST"
req.ContentType = "application/json; charset=UTF-8"
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)

写在 e.SaveFile 的后面。

你保存图片以后，把图片发过去验证，如果验证是错误的，就把图片删除，同时返回信息告知用户。

先获取token（一个月有效）具体看帮助文档，参考如何获取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

你需要什么，你就合成什么，参考

请求参数

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

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、请去学习json的知识点 http://www.foxtable.com/mobilehelp/scr/0140.htm

判断 conclusion、 result等值。

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

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

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