网站 › 『编程语言区』 › 在网上模仿易语言学习---MP3音乐下载

cdj20 发表于 2020-11-16 22:40

在网上模仿易语言学习---MP3音乐下载

代码内容


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

.程序集 窗口程序集_启动窗口
.程序集变量 json解析, 类_json
.程序集变量 下载链接, 文本型

.子程序 _按钮_搜索音乐_被单击
.局部变量 responseText, 文本型
.局部变量 RESUMETHREAD, 文本型
.局部变量 i
.局部变量 Lines

' /***
' * 这里是注释，这里敲回车，自动将下方增加一个注释行
' ***/
超级列表框_音乐信息.全部删除 ()
responseText ＝ 到文本 (网页_访问 (“http://mp3.runker.net/”, 1, “input=” ＋ 编码_URL编码 (编辑框_音乐框.内容, , 真) ＋ “&filter=name&type=netease&page=1”, , , “X-Requested-With: XMLHttpRequest”, , , , , , , ))
' 调试输出 (responseText)
json解析.解析 (responseText, )
.计次循环首 (10, i)
    调试输出 (json解析.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].title”, ))
    调试输出 (json解析.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].author”, ))
    Lines ＝ 超级列表框_音乐信息.插入表项 (, , , , , )
    超级列表框_音乐信息.置标题 (Lines, 0, json解析.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].title”, ))
    超级列表框_音乐信息.置标题 (Lines, 1, json解析.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].author”, ))
.计次循环尾 ()

.子程序 _超级列表框_音乐信息_左键单击表项

.如果真 (超级列表框_音乐信息.现行选中项 ＝ -1)
    调试输出 (“Text”)
    返回 ()
.如果真结束
下载链接 ＝ json解析.取通用属性 (“data[” ＋ 到文本 (超级列表框_音乐信息.现行选中项) ＋ “].url”, )


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

.如果真 (下载链接 ＝ “”)
    信息框 (“请搜索，选一个音乐后继续！”, 0, , )

.如果真结束
.如果真 (通用对话框1.打开 ())
    网页_访问 (下载链接, , , , , , , , , , , , )

    写到文件 (通用对话框1.文件名, 网页_访问 (下载链接, , , , , , , , , , , , ))

cdj20 发表于 2020-11-17 11:51

cdj20 发表于 2020-11-17 11:44
python大致基础看了一下，然后不知道怎么学，看不懂python爬虫里面的采集链接什么的

英语不行，只能大致知道一个原理

cdj20 发表于 2020-11-17 11:44

zhorses 发表于 2020-11-16 23:03
学python 也不错啊

{:1_937:}python大致基础看了一下，然后不知道怎么学，看不懂python爬虫里面的采集链接什么的

cdj20 发表于 2020-11-16 22:42

这是网上的视频学的，刚刚学易语言:handshake

zhaozehan 发表于 2020-11-16 23:02

谢谢楼主，收藏学习了

zhorses 发表于 2020-11-16 23:03

学python 也不错啊

tenwool 发表于 2020-11-17 00:11

鼓励一下楼主，可以的。

kuking 发表于 2020-11-17 00:18

该学火山了。

skyamg 发表于 2020-11-17 00:22

鼓励一下

haifengyu 发表于 2020-11-17 08:11

喜欢听音乐

raypsy47 发表于 2020-11-17 08:12

易语言其实对于编程小白应该很快就能上手

查看完整版本: 在网上模仿易语言学习---MP3音乐下载