易語(yǔ)言通過(guò)算法計(jì)算出酷狗音樂(lè)下載地址的代碼
更新時(shí)間：2018年11月27日 15:19:03 作者：易語(yǔ)言源碼貝貝吧
今天小編就為大家分享一篇關(guān)于易語(yǔ)言通過(guò)算法計(jì)算出酷狗音樂(lè)下載地址的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧
酷狗直鏈計(jì)算的代碼
此功能需要加載精易模塊5.6
.版本 2
.支持庫(kù) RegEx
.支持庫(kù) iext3
.支持庫(kù) dp1
.程序集 窗口程序集_啟動(dòng)窗口
.子程序 JSON轉(zhuǎn)義字符解碼, 文本型
.參數(shù) 解密文本, 文本型
.局部變量 正則表達(dá), 正則表達(dá)式
.局部變量 搜索結(jié)果, 搜索結(jié)果, , "0"
.局部變量 轉(zhuǎn)換結(jié)果, 文本型
.局部變量 文本, 文本型
.局部變量 i, 整數(shù)型
文本 ＝ 解密文本
.如果真 (文本 ≠ “”)
正則表達(dá).創(chuàng)建 (“\\u([0-9a-z]{4})”, )
搜索結(jié)果 ＝ 正則表達(dá).搜索全部 (解密文本)
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (搜索結(jié)果), i)
轉(zhuǎn)換結(jié)果 ＝ 編碼_usc2到ansi (搜索結(jié)果 [i].取子匹配文本 (解密文本, 1, ))
文本 ＝ 子文本替換 (文本, “\u” ＋ 搜索結(jié)果 [i].取子匹配文本 (解密文本, 1, ), 轉(zhuǎn)換結(jié)果, , , 真)
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
返回 (文本)
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 分組框X, 分組框, , "0"
.局部變量 i, 整數(shù)型
_啟動(dòng)窗口.寬度 ＝ 800
_啟動(dòng)窗口.高度 ＝ 460
高級(jí)選擇夾1.左邊 ＝ 0
高級(jí)選擇夾1.頂邊 ＝ 0
高級(jí)選擇夾1.寬度 ＝ _啟動(dòng)窗口.寬度 － 6 － 高級(jí)選擇夾1.左邊
高級(jí)選擇夾1.高度 ＝ _啟動(dòng)窗口.高度 － 32 － 高級(jí)選擇夾1.頂邊
加入成員 (分組框X, 分組框A)
加入成員 (分組框X, 分組框B)
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (分組框X), i)
分組框X [i].左邊 ＝ 2
分組框X [i].頂邊 ＝ 24
分組框X [i].寬度 ＝ 高級(jí)選擇夾1.寬度 － 2 － 分組框X [i].左邊
分組框X [i].高度 ＝ 高級(jí)選擇夾1.高度 － 2 － 分組框X [i].頂邊
.計(jì)次循環(huán)尾 ()
.子程序 _按鈕A1_被單擊
編輯框A4.內(nèi)容 ＝ 取數(shù)據(jù)摘要 (到字節(jié)集 (編輯框A1.內(nèi)容 ＋ 編輯框A2.內(nèi)容))
.子程序 _按鈕A2_被單擊
編輯框A4.內(nèi)容 ＝ JSON轉(zhuǎn)義字符解碼 (編碼_URL解碼 (網(wǎng)頁(yè)_訪問(wèn)S (“http://www.kugou.com/fm/app/i/?cmd=1&uid=” ＋ 編輯框A1.內(nèi)容 ＋ “&key=” ＋ 編輯框A4.內(nèi)容, 1, “fmtype0=3&fmcount=1&fmid0=” ＋ 編碼_URL編碼 (編輯框A3.內(nèi)容, , 真), , , “Referer:http://web.kugou.com/flash/webKugou.swf?d=1500000000999”), 真))
.子程序 _按鈕B1_被單擊
.如果 (選擇框B1.選中)
編輯框B6.內(nèi)容 ＝ 取數(shù)據(jù)摘要 (到字節(jié)集 (編輯框B1.內(nèi)容 ＋ 編輯框B2.內(nèi)容 ＋ 編輯框B3.內(nèi)容 ＋ 編輯框B4.內(nèi)容 ＋ 編輯框B5.內(nèi)容))
.否則
編輯框B6.內(nèi)容 ＝ 取數(shù)據(jù)摘要 (到字節(jié)集 (編輯框B1.內(nèi)容 ＋ 編輯框B2.內(nèi)容))
.如果結(jié)束
.子程序 _按鈕B2_被單擊
編輯框B6.內(nèi)容 ＝ JSON轉(zhuǎn)義字符解碼 (編碼_URL解碼 (網(wǎng)頁(yè)_訪問(wèn)S (“http://trackercdn.kugou.com/i/v2/?cmd=23&pid=6&appid=” ＋ 編輯框B3.內(nèi)容 ＋ “&hash=” ＋ 到大寫(xiě) (編輯框B1.內(nèi)容) ＋ “&module=&cdnBackup=1&behavior=play&key=” ＋ 編輯框B6.內(nèi)容, 1, , “”, , “Referer:http://web.kugou.com/flash/webKugou.swf?d=1500000000999”), 真))
.子程序 _編輯框B1_失去焦點(diǎn)
編輯框B1.內(nèi)容 ＝ 到大寫(xiě) (編輯框B1.內(nèi)容)
運(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)文章
在本篇內(nèi)容里小編給大家分享的是關(guān)于易語(yǔ)言獲取隨機(jī)數(shù)的實(shí)例教學(xué)內(nèi)容，有需要的朋友們可以學(xué)習(xí)下。2018-12-12
在本篇文章里小編給大家分享了關(guān)于易語(yǔ)言設(shè)置好看的護(hù)眼配色的教學(xué)內(nèi)容，有需要的朋友們可以學(xué)習(xí)下。2019-01-01
今天小編就為大家分享一篇關(guān)于易語(yǔ)言改變編輯框背景顏色的方法，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
今天小編就為大家分享一篇關(guān)于易語(yǔ)言賦值命令使用講解，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
今天小編就為大家分享一篇關(guān)于易語(yǔ)言改變外形框邊框線寬度的方法，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
易語(yǔ)言滾動(dòng)條經(jīng)典案例調(diào)色板小程序
今天小編就為大家分享一篇關(guān)于易語(yǔ)言滾動(dòng)條經(jīng)典案例調(diào)色板小程序，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
這篇文章主要介紹了易語(yǔ)言基礎(chǔ)教程之定義及引用變量的相關(guān)方法和代碼，十分的簡(jiǎn)單,需要的朋友可以參考下2016-05-05
今天小編就為大家分享一篇關(guān)于易語(yǔ)言取空白文本命令使用講解，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
在本篇文章里小編給大家分享了關(guān)于易語(yǔ)言調(diào)用模塊圖解教學(xué)的相關(guān)內(nèi)容，有興趣的朋友們可以學(xué)習(xí)下。2019-01-01
一步一步跟我學(xué)易語(yǔ)言之常數(shù)、常量和資源
今天小編就為大家分享一篇關(guān)于一步一步跟我學(xué)易語(yǔ)言之常數(shù)、常量和資源，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-10-10