.版本 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.文件名, 网页_访问 (下载链接, , , , , , , , , , , , ))
[复制链接]
发表于 2020-11-16 22:40
|
发表于 2020-11-17 11:51
python大致基础看了一下，然后不知道怎么学，看不懂python爬虫里面的采集链接什么的
