|
|
.版本 2
.支持库 spec
.子程序 获取登录Cookie
.局部变量 返回cookie, 文本型
.局部变量 响应头, 文本型
.局部变量 完整响应头, 文本型
.局部变量 结果, 字节集
' 设置不自动处理重定向,但手动处理
结果 = 网页_访问_对象 ("登录URL", 1, "登录数据", 返回cookie, , , 响应头, , , , , , , , , 假, )
' 检查是否为重定向响应
.如果真 (寻找文本 (响应头, "HTTP/1.1 302", , 假) ≠ -1 或 寻找文本 (响应头, "HTTP/1.1 301", , 假) ≠ -1)
' 从响应头中提取TGC
.如果真 (寻找文本 (响应头, "Set-Cookie: TGC=", , 假) ≠ -1)
调试输出 ("获取到TGC Cookie:", 提取TGC值(响应头))
.如果真结束
.如果真结束
.子程序 提取TGC值, 文本型
.参数 响应头, 文本型
.局部变量 行数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 行内容, 文本型
行数组 = 分割文本 (响应头, #换行符, )
.计次循环首 (取数组成员数 (行数组), i)
行内容 = 删首尾空 (行数组 [i])
.如果真 (寻找文本 (行内容, "Set-Cookie: TGC=", , 假) ≠ -1)
行内容 = 文本_取右边 (行内容, "TGC=")
行内容 = 文本_取左边 (行内容, ";")
返回 (行内容)
.如果真结束
.计次循环尾
返回 ("")
你可以参考这个,不是直接使用 |
|