[vb6.0/vba] [vb6.0/vba] WinHttp 쿠키값 유지 및 갱신

하나를하더라도최선을
2019-09-28 16:00
5,910
0
본문
Private Function CookieJoin(Cookie As String, ResponseHeaders) As String
Dim v As Variant, i As Integer, T As String
v = Split(Cookie, ";")
Dim O As Object
Set O = CreateObject("Scripting.Dictionary")
O.CompareMode = 1
For i = 0 To UBound(v)
v(i) = Trim(v(i))
T = Right(v(i), Len(v(i)) - InStr(v(i), "="))
O.Add Split(v(i), "=")(0), T
Next
v = Split(ResponseHeaders, "Set-Cookie:")
For i = 1 To UBound(v)
v(i) = Trim(v(i))
T = Split(v(i), ";")(0)
If O.Exists(Split(T, "=")(0)) Then
O(Split(T, "=")(0)) = Right(T, Len(T) - InStr(T, "="))
Else
O.Add Split(v(i), "=")(0), Right(T, Len(T) - InStr(T, "="))
End If
Next
ReDim v(0 To O.Count - 1)
Dim key As Variant
i = 0
For Each key In O.Keys
v(i) = Join(Array(key, O(key)), "=")
i = i + 1
Next
CookieJoin = Join(v, "; ")
End Function
댓글목록0