易語(yǔ)言調(diào)用百度api識(shí)別是否為色情圖片的代碼
更新時(shí)間：2018年11月28日 09:29:26 作者：易語(yǔ)言源碼貝貝吧
今天小編就為大家分享一篇關(guān)于易語(yǔ)言調(diào)用百度api識(shí)別是否為色情圖片的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧
調(diào)用百度云色情圖片識(shí)別的代碼
此功能需要加載精易模塊5.6
.版本 2
.支持庫(kù) spec
.程序集 窗口程序集_啟動(dòng)窗口
.子程序 _識(shí)別按鈕_被單擊
百度云色情識(shí)別 ()
.子程序 百度云色情識(shí)別
.局部變量 類(lèi)_XMLHTTP, 類(lèi)_XMLHTTP
.局部變量 Accesss_token, 文本型
.局部變量 str, 文本型
Accesss_token ＝ GetAccesss_token ()
類(lèi)_XMLHTTP.打開(kāi) (“POST”, “https://aip.baidubce.com/rest/2.0/antiporn/v1/detect?” ＋ Accesss_token)
類(lèi)_XMLHTTP.發(fā)送請(qǐng)求 (“image=” ＋ 編碼_URL編碼 (編碼_BASE64編碼 (圖片框1.圖片)))
str ＝ 類(lèi)_XMLHTTP.取responseText ()
調(diào)試輸出 (str)
.子程序 GetAccesss_token, 文本型
.局部變量 類(lèi)_XMLHTTP, 類(lèi)_XMLHTTP
.局部變量 client_id, 文本型
.局部變量 client_secret, 文本型
.局部變量 str, 文本型
.局部變量 access_token, 文本型
' 免費(fèi)的 都去申請(qǐng)看看吧
client_id ＝ “rrqIhjN6eHyNcVzSt1domPPo”
client_secret ＝ “kYjPv4j8qcuhnR4xs6PMjj1xylvgogj1”
類(lèi)_XMLHTTP.打開(kāi) (“POST”, “https://aip.baidubce.com/oauth/2.0/token”)
類(lèi)_XMLHTTP.發(fā)送請(qǐng)求 (“grant_type=client_credentials&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret)
str ＝ 類(lèi)_XMLHTTP.取responseText ()
調(diào)試輸出 (str)
access_token ＝ 文本_取出中間文本 (str, “{” ＋ #引號(hào), #引號(hào) ＋ “,”, )
access_token ＝ 子文本替換 (access_token, #引號(hào) ＋ “:” ＋ #引號(hào), “=”, , , 真)
調(diào)試輸出 (access_token)
返回 (access_token)
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
相關(guān)文章
在本篇文章中小編給大家分享了關(guān)于易語(yǔ)言把本轉(zhuǎn)換為全角的知識(shí)點(diǎn)內(nèi)容，有興趣的朋友們學(xué)習(xí)下。2019-01-01
易語(yǔ)言設(shè)置是否啟用Esc鍵關(guān)閉窗口的功能
今天小編就為大家分享一篇關(guān)于易語(yǔ)言設(shè)置是否啟用Esc鍵關(guān)閉窗口的功能，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
易語(yǔ)言實(shí)現(xiàn)QQ空間留言批量刪除的代碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言實(shí)現(xiàn)QQ空間留言批量刪除的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
今天小編就為大家分享一篇關(guān)于一步一步跟我學(xué)易語(yǔ)言之什么是編程，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-10-10
在本篇內(nèi)容里小編給大家整理了關(guān)于易語(yǔ)言拖放對(duì)象組件應(yīng)用相關(guān)的知識(shí)點(diǎn)內(nèi)容，有興趣的朋友們參考下。2018-11-11
今天小編就為大家分享一篇關(guān)于易語(yǔ)言改變窗口或組件前后位置的方法，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
在本文中小編給大家分享了關(guān)于易語(yǔ)言字節(jié)集參數(shù)傳遞的相關(guān)知識(shí)點(diǎn)內(nèi)容，需要的可以參考下。2018-12-12
詳解易語(yǔ)言調(diào)用js實(shí)現(xiàn)md5加密方法
在本篇文章里我們給大家分享了關(guān)于易語(yǔ)言調(diào)用js實(shí)現(xiàn)md5加密的詳細(xì)方法和步驟，有需要的朋友們參考下。2018-10-10
易語(yǔ)言查找指定顏色并將鼠標(biāo)移動(dòng)到指定坐標(biāo)的代碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言查找指定顏色并將鼠標(biāo)移動(dòng)到指定坐標(biāo)的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-12-12
解決打開(kāi)易語(yǔ)言配置支持庫(kù)全選后崩潰問(wèn)題
我們?cè)诒酒恼吕锟偨Y(jié)了打開(kāi)易語(yǔ)言配置支持庫(kù)全選后崩潰這個(gè)問(wèn)題，總結(jié)了解決辦法，有需要的參考下。2018-11-11