网易云部分功能 查看歌词 歌单 听歌排名源码

网易云部分功能 查看歌词 歌单 听歌排名源码,模块只用了精易模块

.版本 2
.支持库 iext
.支持库 internet

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

加载列表框 ()

.子程序 Post, 文本型
.参数 提交网址, 文本型
.参数 提交内容, 文本型

返回 (编码_Utf8到Ansi (网页_访问 (提交网址, 1, 提交内容, , , , , , , , , , )))

.子程序 置随机文本, 文本型
.参数 文本长度, 整数型
.局部变量 变量B, 整数型
.局部变量 变量A, 文本型, , "2"

置随机数种子 ()
变量A [1] ＝ “abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789”  ' 62
.变量循环首 (1, 文本长度, 1, )
    变量B ＝ 取随机数 (1, 62)
    变量A [2] ＝ 变量A [2] ＋ 取文本中间 (变量A [1], 变量B, 1)
.变量循环尾 ()
返回 (变量A [2])

.子程序 CBC加密, 文本型
.参数 密文, 文本型
.参数 密钥, 文本型
.局部变量 JS, 类_脚本组件

JS.执行 (#AesData)
返回 (JS.运行 (“cbc_encrypt”, 密文, 密钥))

.子程序 Rsa加密, 文本型
.参数 tokenId, 文本型
.参数 exponent, 文本型
.参数 pass, 文本型
.局部变量 JS, 类_脚本组件

JS.执行 (#Rsa)
返回 (JS.运行 (“getpwd”, tokenId, exponent, pass))

.子程序 参数加密, 文本型
.参数 参数, 文本型
.局部变量 变量A, 文本型, , "2"

变量A [1] ＝ 置随机文本 (16)
变量A [2] ＝ CBC加密 (参数, #第一参数)
变量A [2] ＝ CBC加密 (变量A [2], 变量A [1])
变量A [2] ＝ 文本_替换 (变量A [2], , , , “+”, “%2B”, “/”, “%2F”, , , , , , )
变量A [1] ＝ Rsa加密 (变量A [1], #第二参数, #第三参数)
返回 (“params=” ＋ 变量A [2] ＋ “&encSecKey=” ＋ 变量A [1])

.子程序 参数填写, 文本型
.参数 参数, 文本型, 数组
.参数 数值, 文本型, 数组
.局部变量 变量A, 整数型
.局部变量 变量B, 文本型
.局部变量 变量C, 文本型, , "0"

.如果真 (取数组成员数 (参数) ≠ 取数组成员数 (数值))
    返回 (“设置错误”)
.如果真结束
.计次循环首 (取数组成员数 (参数), 变量A)
    变量B ＝ 变量B ＋ #引号 ＋ 参数 [变量A] ＋ #引号 ＋ “:” ＋ #引号 ＋ “#####” ＋ #引号 ＋ “,”
.计次循环尾 ()
变量C ＝ 分割文本 (变量B, “#####”, )
变量B ＝ “”
.计次循环首 (取数组成员数 (变量C), 变量A)
    .如果 (变量A ≤ 取数组成员数 (数值))
        变量B ＝ 变量B ＋ 变量C [变量A] ＋ 数值 [变量A]
    .否则
        变量B ＝ 变量B ＋ 变量C [变量A]
    .如果结束

.计次循环尾 ()
返回 (“{” ＋ 取文本左边 (变量B, 取文本长度 (变量B) － 1) ＋ “}”)


.子程序 数组置入
.参数 数组, 文本型, 数组
.参数 第一个, 文本型
.参数 第二个, 文本型, 可空
.参数 第三个, 文本型, 可空
.参数 第四个, 文本型, 可空
.参数 第五个, 文本型, 可空
.参数 第六个, 文本型, 可空
.参数 第七个, 文本型, 可空
.参数 第八个, 文本型, 可空
.参数 第九个, 文本型, 可空
.参数 第十个, 文本型, 可空

加入成员 (数组, 第一个)
.如果真 (是否为空 (第二个) ＝ 假)
    加入成员 (数组, 第二个)
.如果真结束
.如果真 (是否为空 (第三个) ＝ 假)
    加入成员 (数组, 第三个)
.如果真结束
.如果真 (是否为空 (第四个) ＝ 假)
    加入成员 (数组, 第四个)
.如果真结束
.如果真 (是否为空 (第五个) ＝ 假)
    加入成员 (数组, 第五个)
.如果真结束
.如果真 (是否为空 (第六个) ＝ 假)
    加入成员 (数组, 第六个)
.如果真结束
.如果真 (是否为空 (第七个) ＝ 假)
    加入成员 (数组, 第七个)
.如果真结束
.如果真 (是否为空 (第八个) ＝ 假)
    加入成员 (数组, 第八个)
.如果真结束
.如果真 (是否为空 (第九个) ＝ 假)
    加入成员 (数组, 第九个)
.如果真结束
.如果真 (是否为空 (第十个) ＝ 假)
    加入成员 (数组, 第十个)
.如果真结束









返回 ()


.子程序 加载列表框
.局部变量 歌名, 文本型, , "0"
.局部变量 ID, 文本型, , "0"
.局部变量 URL, 文本型, , "0"
.局部变量 SCORE, 文本型, , "0"
.局部变量 次数, 整数型

超级列表框1.全部删除 ()
编辑框1.内容 ＝ 网易云听歌排名 (281069468, 1)
文本_取中间_批量_正则方式 (编辑框1.内容, #歌名前缀, #歌名后缀, 歌名, , , , , , )
文本_取中间_批量_正则方式 (编辑框1.内容, #ID前缀, #ID后缀, ID, , , , , , )
文本_取中间_批量_正则方式 (编辑框1.内容, #SCORE前缀, #SCORE后缀, SCORE, , , , , , )
文本_取中间_批量_正则方式 (编辑框1.内容, #URL前缀, #URL后缀, URL, , , , , , )
输出调试文本 (“有” ＋ 到文本 (取数组成员数 (歌名)) ＋ “首歌”)
.计次循环首 (取数组成员数 (歌名), 次数)
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (次数 － 1, 0, ID [次数])
    超级列表框1.置标题 (次数 － 1, 1, 歌名 [次数])
    超级列表框1.置标题 (次数 － 1, 2, SCORE [次数])
    超级列表框1.置标题 (次数 － 1, 3, URL [次数])
.计次循环尾 ()


.子程序 网易云用户歌单, 文本型, , https://music.163.com/weapi/user/playlist
.参数 UID, 整数型
.局部变量 参数, 文本型, , "0"
.局部变量 变量, 文本型, , "0"

数组置入 (参数, “uid”, “limit”, “offset”)
数组置入 (变量, 到文本 (UID), “30”, “0”)
返回 (Post (#用户歌单网址, 参数加密 (参数填写 (参数, 变量))))


.子程序 网易云歌词, 文本型, , `https://music.163.com/weapi/song/lyric?lv=-1&kv=-1&tv=-1`
.参数 歌ID, 文本型
.局部变量 参数, 文本型, , "0"
.局部变量 变量, 文本型, , "0"

数组置入 (参数, “id”, “lv”, “tv”)
数组置入 (变量, 到文本 (歌ID), “-1”, “-1”)
返回 (Post (#歌词网址, 参数加密 (参数填写 (参数, 变量))))

.子程序 网易云听歌排名, 文本型, , “https://music.163.com/weapi/v1/play/record”
.参数 UID, 整数型
.参数 type, 整数型, , 0全部时间1最近一周
.局部变量 参数, 文本型, , "0"
.局部变量 变量, 文本型, , "0"

数组置入 (参数, “uid”, “type”)
数组置入 (变量, 到文本 (UID), 到文本 (type))
返回 (Post (#听歌排行网址, 参数加密 (参数填写 (参数, 变量))))

.子程序 _按钮1_被单击

编辑框2.内容 ＝ 网易云歌词 (编辑框2.内容)

.子程序 _按钮2_被单击

加载列表框 ()

.子程序 _按钮3_被单击

编辑框1.内容 ＝ 网易云用户歌单 (281069468)

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 a, 整数型, , "0"

a ＝ 超级列表框1.取被选择表项 ()
.如果真 (取数组成员数 (a) ≥ 1)
    编辑框2.内容 ＝ 网易云歌词 (超级列表框1.取标题 (a [1], ))
    图片框1.图片 ＝ HTTP读文件 (超级列表框1.取标题 (a [1], 3))
.如果真结束

@dhc