|
|
发表于 2026-1-25 19:23:20
|
显示全部楼层
**
.版本 2
.子程序 提取重定向SetCookie, 文本型
.参数 目标URL, 文本型
.局部变量 临时URL, 文本型
.局部变量 响应头, 文本型
.局部变量 SetCookie, 文本型
.局部变量 http对象, 类_POST数据类
.局部变量 循环次数, 整数型
临时URL = 目标URL
' 最多循环5次,避免死循环(重定向层级通常≤3)
.计次循环首 (5, 循环次数)
http对象.清除 ()
' 第8个参数填“假”,关闭自动重定向
网页_访问_对象 (临时URL, “GET”, , , , 响应头, http对象, 假)
' 提取当前响应的Set-Cookie
SetCookie = 取指定头字段 (响应头, “Set-Cookie”)
.如果真 (SetCookie ≠ “”)
返回 (SetCookie)
.如果真结束
' 获取重定向地址(Location字段),继续解析下一层
临时URL = 取指定头字段 (响应头, “Location”)
.如果真 (临时URL = “”)
跳出循环 () ' 无重定向,结束循环
.如果真结束
.计次循环尾 ()
返回 (SetCookie)
' 辅助子程序:提取指定头字段的值
.子程序 取指定头字段, 文本型
.参数 响应头全文, 文本型
.参数 字段名, 文本型
.局部变量 头列表, 分割文本类型, , "0"
.局部变量 i, 整数型
头列表 = 分割文本 (响应头全文, #换行符, )
.计次循环首 (取数组成员数 (头列表), i)
.如果真 (寻找文本 (头列表 [i], 字段名 + “:”, , 假) = 1)
返回 (子文本替换 (头列表 [i], 字段名 + “:”, , 1, 1, 假))
.如果真结束
.计次循环尾 ()
返回 (“”) |
|