抖音下载易语言源码

.版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 许可证, 线程许可证 .程序集变量 线程id, 整数型 .程序集变量 索引, 整数型 .程序集变量 推流地址, 文本型 .程序集变量 保存地址, 文本型 .子程序 _按钮1_被单击 线程_启动 (&线程_执行) .子程序 线程_执行 .局部变量 局_保存地址, 文本型 .局部变量 源地址, 文本型 .局部变量 状态, 逻辑型 .局部变量 名字, 文本型 按钮1.禁止 = 真 源地址 = 编辑框1.内容 推流地址 = 获取推流地址 (源地址, 状态, 名字) .如果真 (推流地址 = “”) 信息框 (“无法获取推流地址.”, 0, , ) 按钮1.禁止 = 假 返回 () .如果真结束 .如果真 (状态 = 假) 信息框 (“直播已结束.”, 0, , ) 按钮1.禁止 = 假 返回 () .如果真结束 保存地址 = 取运行目录 () + “\” + 时间_取现行时间戳 () + “.flv” 局_保存地址 = 保存地址 线程id = 线程_启动 (&线程_下载) 线程_进入许可区 (许可证) 索引 = 超级列表框1.插入表项 (-1, 到文本 (超级列表框1.取表项数 () + 1), , , , ) 超级列表框1.置标题 (索引, 1, 源地址) 超级列表框1.置标题 (索引, 2, 局_保存地址) 超级列表框1.置标题 (索引, 3, “0KB”) 超级列表框1.置标题 (索引, 4, 时间_格式化 (取现行时间 (), “M月d日 ”, “H:m”)) 超级列表框1.置标题 (索引, 5, 到文本 (线程id)) 超级列表框1.置标题 (索引, 6, “下载中”) 线程_退出许可区 (许可证) 按钮1.禁止 = 假 .循环判断首 () 线程_进入许可区 (许可证) 超级列表框1.置标题 (索引, 3, 文件_取尺寸 (局_保存地址, 真)) 线程_退出许可区 (许可证) 程序_延时 (3000) .循环判断尾 (真) .子程序 线程_下载 .局部变量 ret, 整数型 .局部变量 i, 整数型 .局部变量 局_索引, 整数型 局_索引 = 索引 ret = URLDownloadToFile (0, 推流地址, 保存地址, 0, 0) .如果 (ret ≠ 0) 线程_进入许可区 (许可证) 超级列表框1.置标题 (局_索引, 6, “失败:” + 到文本 (ret)) 线程_退出许可区 (许可证) 返回 () .否则 线程_进入许可区 (许可证) 超级列表框1.置标题 (局_索引, 6, “下载完成”) 线程_退出许可区 (许可证) .如果结束 .子程序 子程序1 .子程序 __启动窗口_创建完毕 许可证 = 线程_创建许可证 () .子程序 获取推流地址, 文本型 .参数 url, 文本型 .参数 code, 逻辑型, 参考 .参数 name, 文本型, 参考 .局部变量 res, 文本型 .局部变量 正则, 正则表达式类 .局部变量 json, 类_json res = 网页_访问S (url, , , , , , , 真) 正则.创建 (“(\d{19})”, res) res = 网页_访问S (文本_取出中间文本 (res, #引号, #引号)) .判断开始 (寻找文本 (res, “直播已结束”, , 假) ≠ -1) code = 假 .默认 code = 真 .判断结束 res = 编码_utf8到gb2312 (网页_访问S (“https://webcast-hl.amemv.com/webcast/room/reflow/info/?room_id=” + 正则.取子匹配文本 (1, 1) + “&live_id=1”, , , , , , , 真)) json.解析 (res) 调试输出 (json.取通用属性 (“data.room.stream_url.rtmp_pull_url”)) 返回 (json.取通用属性 (“data.room.stream_url.rtmp_pull_url”))
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注