易语言通过算法计算出酷狗音乐下载地址的代码

131 阅读 0 评论 87 点赞

我是靠谱客的博主背后啤酒，最近开发中收集的这篇文章主要介绍易语言通过算法计算出酷狗音乐下载地址的代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

酷狗直链计算的代码

此功能需要加载精易模块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.内容)

运行结果：