取网盘下载按钮链接

txhsbb

谁帮下忙！
就是取一个网盘的下载地址，
网盘的地址不变，但是那个文件的下载地址是动态的，每过一段时间，下载地址就会变。
我的想法是直接从网盘上的下载按钮取得下载地址，
（找了好久了，都没有这类的源码。都是直接下载的源码，没有取地址的源码）


补充内容 (2020-2-20 20:11):
https://www.90pan.com/b1662884

补充内容 (2020-2-20 20:12):
就这个网盘的 普通下载。
https://www.90pan.com/b1662884

Bking

新建 易程序.e (844.6 KB, 下载次数: 8)

2020-3-28 23:24 上传

点击文件名下载附件

补充内容 (2020-3-28 23:25):
不好意思，上传错了，这个是蓝奏的，蓝奏的也蛮好的

传奇

<a onclick="down_process2('1662884');" target="_blank" href="http://nsub2.118pan.com:81/data/dl/?n=请用    -.txt&f=1662884&u=ZDI0N1BpL2lyM21UdG04eDVKNVNKVXZkS0FhSXY1Rk1ocExxUkxNOFZWd25jUQ=="><img src="//ae01.alicdn.com/kf/H7b444df0d904426ba140326d6573052a6.gif"><a>
        </div>

不就是下载按钮连接吗

补充内容 (2020-2-20 20:15):
http://nsub2.118pan.com:81/data/dl/?n=请用    -.txt&f=1662884&u=ZDI0N1BpL2lyM21UdG04eDVKNVNKVXZkS0FhSXY1Rk1ocExxUkxNOFZWd25jUQ==

补充内容 (2020-2-20 20:15):
测速上面连接直接下载

txhsbb

陌染 发表于 2020-2-20 20:14
不就是下载按钮连接吗

补充内容 (2020-2-20 20:15):

我需要的是用e语言取到链接地址，你找出来的这个是固定地址。那个动态地址我在网页上也找到了，就是不会用E语言取到~~

Bking

  

子程序名	返回值类型	公开	备 注
蓝奏云_取直链	文本型
参数名	类 型	参考	可空	数组	备 注
分享链接	文本型

变量名	类 型	静态	数组	备 注
ret	文本型
src	文本型		0
url	文本型
json	类_json
http	对象
p	变体型

ret ＝ 编码_Utf8到Ansi (网页_访问 (分享链接, , , , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, , , , , , , ))
文本_取中间_批量 (ret, “src=” ＋ #引号, #引号, src, , , , , , , )
判断 (文本_寻找文本 (ret, “输入密码”, , ) ≠ -1)
ret ＝ 文本_取出中间文本 (ret, “data : '”, “'”, , ) ＋ “Bking”  ' 分享密码
url ＝ 分享链接
url ＝ “https://lanzoux.com/” ＋ src [2]
ret ＝ 网页_访问S (url, , , , , “Referer: ” ＋ 分享链接, , , , , , , , , , , , , , , )
ret ＝ 文本_取出中间文本 (ret, “var sg = '”, “';”, , )
ret ＝ “action=downprocess&sign=” ＋ ret ＋ “&ves=1”
ret ＝ 网页_访问S (“https://lanzoux.com/ajaxm.php”, 1, ret, , , “Referer: ” ＋ url, , , , , , , , , , , , , , , )
json.解析 (ret)
ret ＝ 子文本替换 (json.取通用属性 (“dom”, ), “\”, “”, , , 真) ＋ “/file/” ＋ json.取通用属性 (“url”, )
如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
http.写属性 (“Option”, 6, 0)
http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)
http.方法 (“open”, “GET”, ret, 假)
http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)
http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)
http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)
http.方法 (“send”, )
p ＝ http.读属性 (“GetResponseHeader”, “Location”)
返回 (p.取文本 ())
返回 (“”)

.版本 2<br /> <br /> .子程序 蓝奏云_取直链, 文本型, 公开<br /> .参数 分享链接, 文本型<br /> .局部变量 ret, 文本型<br /> .局部变量 src, 文本型, , "0"<br /> .局部变量 url, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 http, 对象<br /> .局部变量 p, 变体型<br /> <br /> ret ＝ 编码_Utf8到Ansi (网页_访问 (分享链接, , , , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, , , , , , , ))<br /> 文本_取中间_批量 (ret, “src=” ＋ #引号, #引号, src, , , , , , , )<br /> .判断开始 (文本_寻找文本 (ret, “输入密码”, , ) ≠ -1)<br />     ret ＝ 文本_取出中间文本 (ret, “data : '”, “'”, , ) ＋ “Bking”  ' 分享密码<br />     url ＝ 分享链接<br /> .默认<br />     url ＝ “https://lanzoux.com/” ＋ src [2]<br />     ret ＝ 网页_访问S (url, , , , , “Referer: ” ＋ 分享链接, , , , , , , , , , , , , , , )<br />     ret ＝ 文本_取出中间文本 (ret, “var sg = '”, “';”, , )<br />     ret ＝ “action=downprocess&sign=” ＋ ret ＋ “&ves=1”<br /> .判断结束<br /> ret ＝ 网页_访问S (“https://lanzoux.com/ajaxm.php”, 1, ret, , , “Referer: ” ＋ url, , , , , , , , , , , , , , , )<br /> json.解析 (ret)<br /> ret ＝ 子文本替换 (json.取通用属性 (“dom”, ), “\”, “”, , , 真) ＋ “/file/” ＋ json.取通用属性 (“url”, )<br /> .如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))<br />     http.写属性 (“Option”, 6, 0)<br />     http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)<br />     http.方法 (“open”, “GET”, ret, 假)<br />     http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)<br />     http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)<br />     http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)<br />     http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)<br />     http.方法 (“send”, )<br />     p ＝ http.读属性 (“GetResponseHeader”, “Location”)<br />     返回 (p.取文本 ())<br /> .如果真结束<br /> 返回 (“”)

txhsbb

Bking 发表于 2020-2-20 20:05
补充内容 (2020-3-28 23:25):
不好意思，上传错了，这个是蓝奏的，蓝奏的也蛮好的

主要是那个网盘 下载次数多了，有收入