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

 更新时间:2018年11月30日 16:30:18   作者:易语言源码贝贝吧  
今天小编就为大家分享一篇关于易语言解析音悦台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)
  网页_打开指定网址 (超清)
.默认
.判断结束

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接

相关文章

  • 易语言取字节集数据转换为指定类型的数据

    易语言取字节集数据转换为指定类型的数据

    今天小编就为大家分享一篇关于易语言取字节集数据转换为指定类型的数据,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言爬取网页内容方法

    易语言爬取网页内容方法

    在本篇文章里我们给大家分享的是关于易语言爬取网页内容方法和步骤,有兴趣的朋友们学习下。
    2019-01-01
  • 易语言使用销毁命令关闭窗口

    易语言使用销毁命令关闭窗口

    今天小编就为大家分享一篇关于易语言使用销毁命令关闭窗口,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言取系统桌面路径方法

    易语言取系统桌面路径方法

    在本篇内容里小编给大家整理了关于易语言取系统桌面路径方法以及相关的源码内容,需要的可以参考下。
    2018-12-12
  • 易语言取时间年月日格式化

    易语言取时间年月日格式化

    在本篇内容中小编给大家分享了关于易语言取时间年月日格式化的相关知识点以及源码内容,需要的参考下。
    2018-12-12
  • 易语言打开文件对话框时不允许用户指定一个不存在的文件

    易语言打开文件对话框时不允许用户指定一个不存在的文件

    今天小编就为大家分享一篇关于易语言打开文件对话框时不允许用户指定一个不存在的文件,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言修改IE协议头留言手机版网页

    易语言修改IE协议头留言手机版网页

    在本篇文章中小编给大家分享了关于易语言 修改IE协议头模拟手机浏览网页相关知识点内容,有兴趣的朋友们参考下。
    2018-11-11
  • 易语言多项选择用法及实例讲解

    易语言多项选择用法及实例讲解

    在本文里小编给大家整理了关于易语言多项选择用法及实例的相关代码讲解内容,需要的朋友们参考下。
    2018-11-11
  • 易语言图片格式转换器制作方法

    易语言图片格式转换器制作方法

    在本篇内容里小编为大家分享的是关于易语言图片格式转换器制作教程,需要的朋友们可以参考学习下。
    2019-01-01
  • 易语言窗口界面与菜单功能详解

    易语言窗口界面与菜单功能详解

    今天小编就为大家分享一篇关于易语言窗口界面与菜单功能详解,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-10-10

最新评论