.版本 2.支持库 spec.程序集 窗口程序集_启动窗口.子程序 _识别按钮_被单击百度云色情识别 ().子程序 百度云色情识别.局部变量 类_XMLHTTP, 类_XMLHTTP.局部变量 Accesss_token, 文本型.局部变量 str, 文本型Accesss_token ＝ GetAccesss_token ()类_XMLHTTP.打开 (“POST”, “https://aip.baidubce.com/rest/2.0/antiporn/v1/detect?” ＋ Accesss_token)类_XMLHTTP.发送请求 (“image=” ＋ 编码_URL编码 (编码_BASE64编码 (图片框1.图片)))str ＝ 类_XMLHTTP.取responseText ()调试输出 (str).子程序 GetAccesss_token, 文本型.局部变量 类_XMLHTTP, 类_XMLHTTP.局部变量 client_id, 文本型.局部变量 client_secret, 文本型.局部变量 str, 文本型.局部变量 access_token, 文本型' 免费的 都去申请看看吧client_id ＝ “rrqIhjN6eHyNcVzSt1domPPo”client_secret ＝ “kYjPv4j8qcuhnR4xs6PMjj1xylvgogj1”类_XMLHTTP.打开 (“POST”, “https://aip.baidubce.com/oauth/2.0/token”)类_XMLHTTP.发送请求 (“grant_type=client_credentials&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret)str ＝ 类_XMLHTTP.取responseText ()调试输出 (str)access_token ＝ 文本_取出中间文本 (str, “{” ＋ #引号, #引号 ＋ “,”, )access_token ＝ 子文本替换 (access_token, #引号 ＋ “:” ＋ #引号, “=”, , , 真)调试输出 (access_token)返回 (access_token) 
