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

今天小编就为大家分享一篇关于易语言解析音悦台MV提供超清下载地址的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

音悦台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)

									  网页_打开指定网址 (超清)

									.默认

									.判断结束