取跳转后地址问题

linkq

http://www.feifeishijie.com/e/enews?enews=DownSoft&classid=63&id=15956&pathid=0&pass=25e9384f38ad5f8a67011a8fce80a563&p=:::
http://www.feifeishijie.com/e/enews?enews=DownSoft&classid=63&id=15877&pathid=0&pass=25e9384f38ad5f8a67011a8fce80a563&p=:::
http://www.feifeishijie.com/e/enews?enews=DownSoft&classid=63&id=16053&pathid=0&pass=25e9384f38ad5f8a67011a8fce80a563&p=:::
http://www.feifeishijie.com/e/enews?enews=DownSoft&classid=63&id=16062&pathid=0&pass=25e9384f38ad5f8a67011a8fce80a563&p=:::

这4条，用 网页_访问_对象有的取得有的取不得，大佬帮帮忙搞定他，写个例子

wanpl2006

demo.e (147.94 KB, 下载次数: 3)

2023-12-13 11:00 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
获取下载地址	文本型		返回正确的下载地址
参数名	类 型	参考	可空	数组	备 注
url	文本型

变量名	类 型	静态	数组	备 注
局_url	文本型
局_返回协议头	文本型
局_返回地址	文本型
局_状态码	整数型
局_计次	整数型

网页_访问_对象 (url, 0, , , , , 局_返回协议头, 局_状态码, 真, , , , , , , , , 真, 假)
局_返回地址 ＝ 网页_协议头_取信息 (局_返回协议头, “Location”)
计次循环首 (10, 局_计次)
判断 (局_状态码 ＝ 301)
网页_访问_对象 (局_返回地址, 0, , , , , 局_返回协议头, 局_状态码, 真, , , , , , , , , 真, 假)
局_返回地址 ＝ 网页_协议头_取信息 (局_返回协议头, “Location”)
跳出循环 ()

计次循环尾 ()
返回 (局_返回地址)

.版本 2<br /> <br /> .子程序 获取下载地址, 文本型, , 返回正确的下载地址<br /> .参数 url, 文本型<br /> .局部变量 局_url, 文本型<br /> .局部变量 局_返回协议头, 文本型<br /> .局部变量 局_返回地址, 文本型<br /> .局部变量 局_状态码, 整数型<br /> .局部变量 局_计次, 整数型<br /> <br /> <br /> 网页_访问_对象 (url, 0, , , , , 局_返回协议头, 局_状态码, 真, , , , , , , , , 真, 假)<br /> 局_返回地址 ＝ 网页_协议头_取信息 (局_返回协议头, “Location”)<br /> <br /> .计次循环首 (10, 局_计次)<br />     .判断开始 (局_状态码 ＝ 301)<br />         网页_访问_对象 (局_返回地址, 0, , , , , 局_返回协议头, 局_状态码, 真, , , , , , , , , 真, 假)<br />         局_返回地址 ＝ 网页_协议头_取信息 (局_返回协议头, “Location”)<br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (局_返回地址)

CVBSMDS

链接都有误

linkq

CVBSMDS 发表于 2023-12-12 20:09
链接都有误

用浏览器正常跳转

a4561482

你要的应该是这个吧

linkq

a4561482 发表于 2023-12-12 20:15
你要的应该是这个吧

大佬，第三条和第四条没读出来

ksksksks

禁止重定向   协议头有的

wanpl2006

demo.e (146.35 KB, 下载次数: 1)

2023-12-13 09:37 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
获取下载地址			返回正确的下载地址
参数名	类 型	参考	可空	数组	备 注
url	文本型

变量名	类 型	静态	数组	备 注
retn	文本型
局_返回协议头	文本型
局_返回地址	文本型

retn ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 0, , , , , 局_返回协议头, , 假, , , , , , , , , 真, 假))
局_返回地址 ＝ 网页_协议头_取信息 (局_返回协议头, “Location”)
输出调试文本 (局_返回地址)
返回 (局_返回地址)

.版本 2<br /> <br /> .子程序 获取下载地址, , , 返回正确的下载地址<br /> .参数 url, 文本型<br /> .局部变量 retn, 文本型<br /> .局部变量 局_返回协议头, 文本型<br /> .局部变量 局_返回地址, 文本型<br /> <br /> retn ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 0, , , , , 局_返回协议头, , 假, , , , , , , , , 真, 假))<br /> 局_返回地址 ＝ 网页_协议头_取信息 (局_返回协议头, “Location”)<br /> 输出调试文本 (局_返回地址)<br /> 返回 (局_返回地址)

linkq

wanpl2006 发表于 2023-12-13 09:38
[e=3].版本 2

.子程序 获取下载地址, , , 返回正确的下载地址

第三和第四条读不出来