精易论坛

标题: 蓝奏云外链取真实链接 [打印本页]

作者: 我叫四糸乃    时间: 2022-8-24 22:25
标题: 蓝奏云外链取真实链接
蓝奏云外链取真实链接1、需要的工具2、第一步获取外链一级地址
  
子程序名返回值类型公开备 注
取一级链接文本型 
参数名类 型参考可空数组备 注
URL文本型
pass文本型
变量名类 型静态数组备 注
httpWinHttpR 
JsonzyJsonValue 
data文本型 
http.Auto ()
http.Open (“GET”, URL)  ' 取提交数据
http.Send ()
data = 文本_取中间 (http.GetResponseText (), “data : '”, “'+pwd,”)
' ---
http.Open (“POST”, “https://wwd.lanzouj.com/ajaxm.php”)
http.SetRequestHeader (“Referer”, URL)
http.Send (data + pass)
Json.解析 (http.GetResponseText ())
返回 (Json.取文本 (“dom”)“/file/” +  Json.取文本 (“url”))


3、利用一级链接取到真实下载地址
  
子程序名返回值类型公开备 注
取真实链接文本型 
参数名类 型参考可空数组备 注
一级url文本型
变量名类 型静态数组备 注
httpWinHttpR 
JsonzyJsonValue 
file文本型 
sign文本型 
http.Auto ()
http.Open (“GET”, 一级url)
http.Send ()
file = 文本_取中间 (http.GetResponseTextU2A (), “file':'”, “','el”)
sign = 文本_取中间 (http.GetResponseTextU2A (), “:el,'sign':'”, “' },”)
http.Open (“POST”, “https://develope.lanzoug.com/file/ajax.php”)
循环判断首 ()
http.Send (“file=”URLEncode (file)“&el=2”“&sign=”URLEncode (sign))
Json.解析 (http.GetResponseTextU2A ())
循环判断尾 (Json.取文本 (“url”)“?SignError”)
返回 (Json.取文本 (“url”))

蓝奏云取真实链接.zip (169.08 KB, 下载次数: 42)

作者: qccyidai    时间: 2022-8-24 23:59

作者: haishe    时间: 2022-8-25 01:32

作者: zzh233    时间: 2022-8-25 01:53
有干货有教程 双击666
作者: fjgh    时间: 2022-8-25 07:18

作者: guyuelintian    时间: 2022-8-26 07:52
支持开源~!感谢分享
作者: 1060631438    时间: 2022-9-1 18:02
支持开源~!感谢分享
作者: flash5435    时间: 2022-9-5 09:03

作者: awcm6666    时间: 2022-9-14 22:21
9-14测试源码有效  支持开源~!感谢分享
作者: zhaoxianfang    时间: 2022-9-20 13:08
66666666666666666666666666
作者: 聚散终有时2022    时间: 2022-11-10 13:14

支持开源~!感谢分享
作者: shandian888    时间: 2024-8-4 17:01
  支持开源~!感谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4