易语言制作酷狗付费音乐解析下载工具

.版本 2
.常量 常量2, "<文本长度: 7>", , "url":"
.常量 常量1, "<文本长度: 1>", , "

.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _解析按钮_被单击
编辑框_直链.内容 ＝ 获取MP3地址 (编辑框_哈希值.内容)
.子程序 获取MP3地址, 文本型
.参数 hash, 文本型
.局部变量 key, 文本型
.局部变量 res, 文本型
res ＝ 到文本 (HTTP读文件 (“http://m.kugou.com/app/i/getSongInfo.php?hash=” ＋ hash ＋ “&cmd=playInfo”))
res ＝ 子文本替换 (文本_取出中间文本 (res, #常量2, #常量1), “”, “”, , , 真)
返回 (res)
.子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。
.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。
.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分  真 = 区分大小写。
.局部变量 局_位置, 整数型
.局部变量 局_位置1, 整数型
.局部变量 局_前面文本, 文本型
.局部变量 局_后面文本, 文本型
局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
是否区分大小写 ＝ 取反 (是否区分大小写)
局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ≠ -1)
  局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)
.如果真结束
局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)
  返回 (“”)
.如果真结束
返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))