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

汗，这么简单都不会？

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

我测试没问题

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)