.版本 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)