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

2024-04-26 07:39:49

音悦台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)
  网页_打开指定网址 (超清)
.默认
.判断结束

运行结果：

总结

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

易语言自动识别快递公司查件免验证码的代码

常量数据表 .版本 2 .常量快递单号前, "<文本长度: 13>", , [{"comCode":" .常量快递单号后, "<文本长度: 9>", , ","id":"" 快递查询自动识别快递公司无验证码此功能需要加载精易模块5.6 .版本 2 .程序集窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .子程序 _查询按钮_被单击 .局部变量提交
易语言制作方言版语音合成工具

麦霸传说语音合成专家此功能需要加载讯飞云语音模块 .版本 2 .支持库 exui .支持库 iext .程序集窗口程序集_启动窗口 .程序集变量音乐, 文本型 .子程序 __启动窗口_创建完毕云语音_初始化 ("dev.voicecloud.cn:80/index.htm", "5476b55d", "10000", "speex.dll", "2048") 时钟1.时钟周期＝ 100 组合框_语
易语言制作欢乐斗牛单机版游戏源码

DLL命令表 .版本 2 .DLL命令复制内存_复制位图信息头到字节集, , , "RtlMoveMemory" .参数 Dest, 字节型, 传址 .参数 Src, BITMAPINFOHEADER .参数 len, 整数型 .DLL命令复制内存_复制位图文件头到字节集, , , "RtlMoveMemory" .参数 Dest, 字节型, 传址 .参数 Src, 文件头信息_ .参数 len, 整数型 .DLL命令复制内存_字节集到字节集, , , &qu
易语言实现QQ全自动批量点赞功能

利用模拟操作的方式实现QQ全自动点赞此功能需要加载精易模块 .版本 2 .支持库 iext .支持库 HtmlView .支持库 spec .程序集窗口程序集1 .程序集变量停止变量, 逻辑型 .子程序 __启动窗口_创建完毕 ' 不允许多个QQ登录,不然每次需要手动选择点赞的号 .子程序 _导入按钮_被单击 .局部变量分割文本, 文本型, , "0" .局部变量文本, 文本型 .局部变量 i1, 整数型 .局部变量索引, 整数型通用对话框1.初始目录＝取运行目录 (
易语言QQ群发支持图片文字数据一起发送的工具

DLL命令表 .版本 2 .DLL命令 OpenClipboard, 逻辑型, "user32", "OpenClipboard", , 打开CLIPBOARD .参数 hwnd, 整数型 .DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData", , 返回剪贴板数据的句柄 .参数 wFormat, 整数型 .DLL命令 RegisterClipboardFormat
易语言制作酷狗付费音乐解析下载工具

常量数据表 .版本 2 .常量常量2, "<文本长度: 7>", , "url":" .常量常量1, "<文本长度: 1>", , " 酷狗音乐直链解析歌曲哈希值在酷狗音乐属性里可以找到. .版本 2 .支持库 internet .程序集窗口程序集1 .子程序 _解析按钮_被单击编辑框_直链.内容＝获取MP3地址 (编辑框_哈希值.内容) .子程序获取MP3地址, 文本型 .参数 has
易语言修改软件版权信息的工具

DLL命令表 .版本 2 .DLL命令 BeginUpdateResource, 整数型, , "BeginUpdateResourceA" .参数 pFileName, 文本型 .参数 bDeleteExistingResources, 逻辑型 .DLL命令 EndUpdateResource, 逻辑型, , "EndUpdateResourceA" .参数 hUpdate, 整数型 .参数 fDiscard, 逻辑型 .DLL命令 UpdateResource,
易语言HOSTS式反钓鱼拦截源码

HOSTS式钓鱼拦截源码利用HOSTS来拦截SMTP,再次提醒搭建小心钓鱼软件,对于未知的程序尽量在虚拟机里使用 .版本 2 .支持库 shell .程序集窗口程序集1 .程序集变量 IP, 文本型 .程序集变量 host路径, 文本型 .程序集变量原hosts是否存在, 逻辑型 .程序集变量客户, 文本型 .程序集变量是否为账号, 逻辑型 .程序集变量是否为密码, 逻辑型 .程序集变量账号, 文本型 .程序集变量密码, 文本型 .子程序列表框_加入提示 .参数提示, 文本型
易语言破解WPS的VIP模版下载地址

DLL命令表 .版本 2 .DLL命令 API下载文件, 整数型, "urlmon", "URLDownloadToFileA", , -下载文件 .参数 pcaller, 整数型 .参数 szurl, 文本型 .参数 szfilename, 文本型 .参数 dwreserved, 整数型 .参数 lpfncb, 整数型常量数据表 .版本 2 .常量 id, "<文本长度: 21>", , "big":[{&qu
易语言制作汽车油耗计算器的代码

汽车油耗计算器 .版本 2 .程序集窗口程序集_启动窗口 .子程序 _计算按钮_被单击 .局部变量公里, 双精度小数型 .局部变量油量, 双精度小数型 .局部变量油价, 双精度小数型 .局部变量每公路价格, 双精度小数型 .局部变量百公里油耗, 双精度小数型 .局部变量每公升油路程, 双精度小数型 .如果真 (编辑框_公里.内容＝ "" 或编辑框_油箱.内容＝ "" 或编辑框_油价.内容＝ "") 信息框 ("信
易语言用画板制作围猫游戏的源码

DLL命令表 .版本 2 .DLL命令系统关于对话框, , , "ShellAboutA" .参数窗口句柄, 整数型 .参数应用程序标题, 文本型 .参数其他信息, 文本型 .参数图标句柄, 整数型图片资源表 .版本 2 .图片圆点白色 .图片圆点猫 .图片圆点墙 .图片圆点叉围猫游戏 .版本 2 .程序集窗口程序集_启动窗口 .程序集变量圆点状态, 整数型, , "121", 0空白1围墙2陷阱 .程序集变量猫位置, 整数型 .程序集变
易语言用正则采集百度知道的代码

常量数据表 .版本 2 .常量标题, "<文本长度: 25>", , "ti"((\r\n|\s*).*>.*)</a> .常量标题需替换的内容, "<文本长度: 17>", , target="_blank"> .常量提问时间, "<文本长度: 36>", , "mr-8">(\d{4,}-\d{1,}-\d{1,
易语言调用接口来实现机器人聊天的功能

常量数据表 .版本 2 .常量常量1, "<文本长度: 41>", , AI [现行时间]: Hi俺寂寞空虚冷陪陪俺吧 .常量常量2, "<文本长度: 25>", , 我 [现行时间]: [内容] .常量常量3, "<文本长度: 24>", , AI [现行时间]: [内容] .常量常量4, "<文本长度: 8>", , "text":"
易语言统计代码行数与API的工具

DLL命令表 .版本 2 .DLL命令 FindWindowEx, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口找到的窗口的句柄.如未找到相符窗口,则返回零.会设置GetLastError .参数 hWnd1, 整数型, , 在其中查找子的父窗口.如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找) .参数 hWnd2, 整数型, , 从这个窗口后开始查找.
易语言制作QQ前台全自动无限加好友的代码

全局变量表 .版本 2 .全局变量局_句柄, 整数型 .全局变量 a, 整数型 .全局变量局1_句柄, 整数型 .全局变量 b, 整数型常量数据表 .版本 2 .常量 GW_CHILD, "5", , 查找子窗口 .常量 GW_HWNDNEXT, "2", , 查找下一窗口 QQ前台全自动加好友此功能需要加载精易模块5.6,利用模拟的方式添加好友,需要自行打开添加窗口,填写自己的QQ名称. .版本 2 .支持库 spec .程序集窗口程序集_启动窗口 .子

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

相关推荐

随机推荐