酷狗直鏈計算的代碼
此功能需要加載精易模塊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.內容)
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答