首页 > 开发 > 其他 > 正文

易语言解析音悦台MV提供超清下载地址的代码

2019-10-20 16:25:06
字体:
来源:转载
供稿:网友

音悦台MV地址解析

此功能需要加载精易模块5.6

.版本 2.支持库 exui.支持库 EThread.程序集 窗口程序集_启动窗口.程序集变量 标清, 文本型.程序集变量 高清, 文本型.程序集变量 超清, 文本型.子程序 _按钮EX1_左键单击按钮EX2.可视EX = 假按钮EX3.可视EX = 假按钮EX4.可视EX = 假.判断开始 (编辑框EX1.内容 = “”)  信息框EX (, “告警 :”, , “先输入MV地址才能解析的哦”, , { “好嘛” }, , , , , , , ).默认.判断结束.判断开始 (寻找文本 (编辑框EX1.内容, “http://v.yinyuetai.com/video/”, , 假) = 1)  启动线程 (&json获取真实地址, , ).默认  信息框EX (, “告警 :”, , “你输入的地址不对哦,只能解析音悦台的MV哦”, , { “好嘛” }, , , , , , , ).判断结束.子程序 json获取真实地址.局部变量 json, 类_json.局部变量 ID, 文本型.局部变量 正则, 正则表达式类正则.创建 (“/(/d+)”, 编辑框EX1.内容)ID = 正则.取子匹配文本 (1, 1)json.解析 (文本_取出中间文本 (编码_utf8到gb2312 (网页_访问S (“http://www.yinyuetai.com/api/info/get-video-urls?callback=callback&videoId=” + ID + “&_=” + 时间_取现行时间戳 (), , , , , , )), “callback(”, “)”, , )).判断开始 (json.取通用属性 (“message”) ≠ “”)  信息框EX (, “错误信息 :”, , “解析失败!” + #换行符 + “失败原因:” + json.取通用属性 (“message”), , { “知道了” }, , , , , , , )  返回 ().默认.判断结束标清 = json.取通用属性 (“hcVideoUrl”)高清 = json.取通用属性 (“hdVideoUrl”)超清 = json.取通用属性 (“heVideoUrl”).判断开始 (标清 ≠ “”)  按钮EX2.可视EX = 真.默认.判断结束.判断开始 (高清 ≠ “”)  按钮EX3.可视EX = 真.默认.判断结束.判断开始 (超清 ≠ “”)  按钮EX4.可视EX = 真.默认.判断结束.子程序 _按钮EX2_左键单击.局部变量 信息框返回, 整数型信息框返回 = 信息框EX (, “信息 :”, , “你目前选择的是标清!” + #换行符 + “你要复制MV真实地址还是在线播放预览呢?”, , { “我要在线播放”, “我要复制下载地址” }, , , , , , , ).判断开始 (信息框返回 = 2)  置剪辑板文本 (标清)  信息框EX (, “信息 :”, , “复制成功” + #换行符 + 标清, , { “好的” }, , , , , , , ).判断 (信息框返回 = 1)  网页_打开指定网址 (标清).默认.判断结束.子程序 _按钮EX3_左键单击.局部变量 信息框返回, 整数型信息框返回 = 信息框EX (, “信息 :”, , “你目前选择的是高清!” + #换行符 + “你要复制MV真实地址还是在线播放预览呢?”, , { “我要在线播放”, “我要复制下载地址” }, , , , , , , ).判断开始 (信息框返回 = 2)  置剪辑板文本 (高清)  信息框EX (, “信息 :”, , “复制成功” + #换行符 + 高清, , { “好的” }, , , , , , , ).判断 (信息框返回 = 1)  网页_打开指定网址 (高清).默认.判断结束.子程序 _按钮EX4_左键单击.局部变量 信息框返回, 整数型信息框返回 = 信息框EX (, “信息 :”, , “你目前选择的是超清!” + #换行符 + “你要复制MV真实地址还是在线播放预览呢?”, , { “我要在线播放”, “我要复制下载地址” }, , , , , , , ).判断开始 (信息框返回 = 2)  置剪辑板文本 (超清)  信息框EX (, “信息 :”, , “复制成功” + #换行符 + 超清, , { “好的” }, , , , , , , ).判断 (信息框返回 = 1)  网页_打开指定网址 (超清).默认.判断结束

运行结果:

易语言,音悦台,MV,下载地址,代码

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对CuoXin错新网的支持。


注:相关教程知识阅读请移步到易语言教程频道。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表