.版本 2 .支持库 spec .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 real_Url, 文本型 .局部变量 bool, 逻辑型 bool ＝ 西瓜_取无水印地址 (“https://www.ixigua.com/6890849046177677832?logTag=BQ-D3cFb1o0w9g_vlRBOn”, real_Url) ' ============ www.sanye.cx =============-- ’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx ’三叶资源网官方④群：72857039 ' 投稿邮箱：[email protected] ' ============ =====================-- ’专注易语言，按键精灵等编程源码分享的网站 ’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐， ’版权归原作者所有，仅供学习和研究使用。 ’转载本站提供的资源请勿删除本说明文件。 ' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。 ' ============ www.sanye.cx =============-- ' 本源码来自三叶资源网(www.sanye.cx) 调试输出 (bool, “无水印下载地址：”, real_Url) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 西瓜_取无水印地址, 逻辑型 .参数 item_id, 文本型, , 视频id或视频链接 .参数 real_Url, 文本型, 参考, 无水印链接 .局部变量 url, 文本型 .局部变量 header, 文本型 .局部变量 str, 文本型 .局部变量 json, 类_json .局部变量 info, 文本型 .局部变量 main_url, 文本型 .局部变量 i, 整数型 .局部变量 group_id, 文本型 .局部变量 z, 正则表达式类 .局部变量 局_itemid, 文本型 z.创建 (“6[0-9]{18}”, item_id) 局_itemid ＝ z.取匹配文本 (1) .如果真 (局_itemid ＝ “”) 返回 (假) .如果真结束 ' url ＝ “https://m.ixigua.com/i” ＋ 局_itemid ' header ＝ “User-Agent: Mozilla/5.0 (Linux; Android 5.1.1; vivo v3 Build/LMY47I; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/52.0.2743.100 Mobile Safari/537.36 aweme_120800 JsSdk/1.0 NetType/WIFI Channel/wandoujia_douyinnew_1128 AppName/aweme app_version/12.8.0 ByteLocale/zh-CN Region/CN AppSkin/black AppTheme/dark” ' str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, , , , , header)) ' group_id ＝ 文本_取出中间文本 (str, “var group_id = ” ＋ #引号, #引号) .' 如果真 (group_id ＝ “”) ' group_id ＝ 局_itemid .如果真结束 group_id ＝ 局_itemid url ＝ “//ib-lq.snssdk.com/video/app/article/information/v23/?group_id=” ＋ group_id ＋ “&item_id=” ＋ 局_itemid ＋ “&aggr_type=2&context=1&hot_push=0&flags=64&from_category=pgc&article_page=1&play_param=codec_type%3A1%2Ccdn_type%3A1%2Cenable_dash%3A1&aid=32” header ＝ “User-Agent: Dalvik/2.1.0 (Linux; U; Android 5.1.1; oppo R17 Pro Build/LMY47I) VideoArticle/8.4.0 ttnet okhttp/3.10.0.2” ＋ #换行符 ＋ “Cookie: ttreq=1$fac15fd25503807699978d58e0ced48682d6dd4e; ” str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, , , , , header)) json.解析 (str) info ＝ json.取通用属性 (“data['video_play_info']”) .如果真 (info ＝ “”) 返回 (假) .如果真结束 json.解析 (info) .计次循环首 (4, i) ' 默认取最高清晰度 1080P 720P 480P 360P main_url ＝ json.取通用属性 (“['video_list']['video_” ＋ 到文本 (5 － i) ＋ “']['main_url']”) .如果真 (main_url ≠ “”) 跳出循环 () .如果真结束 .计次循环尾 () .如果真 (main_url ＝ “”) 返回 (假) .如果真结束 real_Url ＝ 到文本 (编码_BASE64解码 (main_url, )) 返回 (真)