易语言实现某音无水印解析自动化源码写法分享【非接口】

.版本 2 .子程序 获取无水印_抖音, 文本型 .参数 url, 文本型 .局部变量 局_网址, 文本型 .局部变量 局_方式, 整数型 .局部变量 ADD_协议头, 类_POST数据类 .局部变量 局_提交协议头, 文本型 .局部变量 局_是否重定向, 逻辑型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型 .局部变量 协议头, 文本型 局_网址 ＝ url 局_方式 ＝ 0 ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Linux; Android 8.0; DUK-AL20 Build/HUAWEIDUK-AL20; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/57.0.2987.132 MQQBrowser/6.2 TBS/044353 Mobile Safari/537.36 MicroMessenger/6.7.3.1360(0x26070333) NetType/WIFI Language/zh_CN Process/tools”) 局_提交协议头 ＝ ADD_协议头.获取协议头数据 () 局_是否重定向 ＝ 真 局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, 协议头, 局_是否重定向, , , ) 局_返回 ＝ 删全部空 (文本_取出中间文本 (协议头, “Location:”, “X-Tt-Logid”, )) 局_结果 ＝ 网页_访问 (局_返回, 局_方式, , , , 局_提交协议头, , 局_是否重定向, , , ) 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果)) 局_返回 ＝ 文本_取出中间文本 (局_返回, #前, #后, ) 局_返回 ＝ 文本_取出中间文本 (局_返回, “[”, “]”, ) 局_返回 ＝ 子文本替换 (局_返回, #引号, , , , 真) 局_返回 ＝ 子文本替换 (局_返回, “\u002F”, “/”, , , 真) 局_返回 ＝ 子文本替换 (局_返回, “playwm”, “play”, , , 真) 返回 (局_返回)