ResponseHeaders = #常量2 i = 寻找文本(ResponseHeaders, “Set-Cookie:”, , 真) 判断循环首(i ≠ -1 且 ii ≠ -1) i = i + 11 ii = 寻找文本(ResponseHeaders, #换行符, i, 假) 如果真(ii = -1) i = 寻找文本(ResponseHeaders, “Set-Cookie:”, ii, 真) 到循环尾() int = 寻找文本(ResponseHeaders, “;”, i, 假) 如果真(int ≠ -1 且 int < ii) ii = int 如果真(ii ≠ -1) cookie = 取文本中间(ResponseHeaders, i, 减法_汇编(ii, i)) cookie = 删首空(cookie) _启动窗口.编辑框7.加入文本(“cookie” + 到文本(i)) Value = 取文本右边_汇编2(取变量数据地址(cookie), 8) ' _启动窗口.编辑框7.加入文本 (AnsiToUnicode_yc (“Value” + 到文本 (i), , )) del = Value = #CookieDeleted1或 Value = #CookieDeleted2或 Value = #CookieDeleted3' 判断是否是删除标记 如果真(del = 假) Cookies = Cookies + cookie + #分号空 i = 寻找文本(ResponseHeaders, “Set-Cookie:”, ii, 真) 判断(i = 10) 跳出循环() 判断循环尾()