今天小編就爲大家分享一篇關於易語言通過算法計算出酷狗音樂下載地址的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
酷狗直鏈計算的代碼
此功能需要加載精易模塊5.6
.版本 2
.支持庫 RegEx
.支持庫 iext3
.支持庫 dp1
.程序集 窗口程序集_啓動窗口
.子程序 JSON轉義字符解碼, 文本型
.參數 解密文本, 文本型
.局部變量 正則表達, 正則表達式
.局部變量 搜索結果, 搜索結果, , "0"
.局部變量 轉換結果, 文本型
.局部變量 文本, 文本型
.局部變量 i, 整數型
文本 ＝ 解密文本
.如果真 (文本 ≠ “”)
正則表達.創建 (“\\u([0-9a-z]{4})”, )
搜索結果 ＝ 正則表達.搜索全部 (解密文本)
.計次循環首 (取數組成員數 (搜索結果), i)
轉換結果 ＝ 編碼_usc2到ansi (搜索結果 [i].取子匹配文本 (解密文本, 1, ))
文本 ＝ 子文本替換 (文本, “\u” ＋ 搜索結果 [i].取子匹配文本 (解密文本, 1, ), 轉換結果, , , 真)
.計次循環尾 ()
.如果真結束
返回 (文本)
.子程序 __啓動窗口_創建完畢
.局部變量 分組框X, 分組框, , "0"
.局部變量 i, 整數型
_啓動窗口.寬度 ＝ 800
_啓動窗口.高度 ＝ 460
高級選擇夾1.左邊 ＝ 0
高級選擇夾1.頂邊 ＝ 0
高級選擇夾1.寬度 ＝ _啓動窗口.寬度 － 6 － 高級選擇夾1.左邊
高級選擇夾1.高度 ＝ _啓動窗口.高度 － 32 － 高級選擇夾1.頂邊
加入成員 (分組框X, 分組框A)
加入成員 (分組框X, 分組框B)
.計次循環首 (取數組成員數 (分組框X), i)
分組框X [i].左邊 ＝ 2
分組框X [i].頂邊 ＝ 24
分組框X [i].寬度 ＝ 高級選擇夾1.寬度 － 2 － 分組框X [i].左邊
分組框X [i].高度 ＝ 高級選擇夾1.高度 － 2 － 分組框X [i].頂邊
.計次循環尾 ()
.子程序 _按鈕A1_被單擊
編輯框A4.內容 ＝ 取數據摘要 (到字節集 (編輯框A1.內容 ＋ 編輯框A2.內容))
.子程序 _按鈕A2_被單擊
編輯框A4.內容 ＝ JSON轉義字符解碼 (編碼_URL解碼 (網頁_訪問S (“http://www.kugou.com/fm/app/i/?cmd=1&uid=” ＋ 編輯框A1.內容 ＋ “&key=” ＋ 編輯框A4.內容, 1, “fmtype0=3&fmcount=1&fmid0=” ＋ 編碼_URL編碼 (編輯框A3.內容, , 真), , , “Referer:http://web.kugou.com/flash/webKugou.swf?d=1500000000999”), 真))
.子程序 _按鈕B1_被單擊
.如果 (選擇框B1.選中)
編輯框B6.內容 ＝ 取數據摘要 (到字節集 (編輯框B1.內容 ＋ 編輯框B2.內容 ＋ 編輯框B3.內容 ＋ 編輯框B4.內容 ＋ 編輯框B5.內容))
.否則
編輯框B6.內容 ＝ 取數據摘要 (到字節集 (編輯框B1.內容 ＋ 編輯框B2.內容))
.如果結束
.子程序 _按鈕B2_被單擊
編輯框B6.內容 ＝ JSON轉義字符解碼 (編碼_URL解碼 (網頁_訪問S (“http://trackercdn.kugou.com/i/v2/?cmd=23&pid=6&appid=” ＋ 編輯框B3.內容 ＋ “&hash=” ＋ 到大寫 (編輯框B1.內容) ＋ “&module=&cdnBackup=1&behavior=play&key=” ＋ 編輯框B6.內容, 1, , “”, , “Referer:http://web.kugou.com/flash/webKugou.swf?d=1500000000999”), 真))
.子程序 _編輯框B1_失去焦點
編輯框B1.內容 ＝ 到大寫 (編輯框B1.內容)
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接