Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Func GetCookies($headers,$test = 0)
- $splitcookie = StringSplit($headers,"Set-Cookie:",1)
- If $splitcookie[0] = 1 then
- If $DebugMode = 1 or $DebugMode = 2 Then _ArrayAdd($ErrorLog,"Error in Function:'"&$DebugModeCurrentFunction&"' Cannnot GetCookies:"&@CRLF&$headers&@CRLF)
- Return "error"
- EndIf
- if $test = 1 then
- ;;msgbox(0,"full headers",$headers)
- for $i = 1 to $splitcookie[0]
- ; ;msgbox(0,"cookie test "&$i,$splitcookie[$i])
- Next
- EndIf
- dim $cookie[$splitcookie[0]-1],$grabcookies
- $e = 0
- for $i = 1 to $splitcookie[0]
- If $i <> 1 and $i <> $splitcookie[0] then
- $cleancookie = StringSplit($splitcookie[$i],";",1)
- $cookie[$e] = $cleancookie[1]
- $e = $e + 1
- EndIf
- If $i = $splitcookie[0] Then
- $splitlast = StringSplit($splitcookie[$splitcookie[0]],";",1)
- $cleancookie = StringSplit($splitlast[1],";",1)
- $cookie[$e] = $cleancookie[1]
- $e = $e + 1
- EndIf
- Next
- for $i = 0 to UBound($cookie)-1
- $GRABcookies = $GRABcookies & "; "&$cookie[$i]
- Next
- $GRABcookies = StringTrimleft($GRABcookies,3)
- Return $GRABcookies & ";"
- EndFunc
Add Comment
Please, Sign In to add comment