[기타] [vb.net] Cookie 유지 및 갱신

하나를하더라도최선을
2019-10-08 22:00
7,523
0
본문
사용법:)
Cookie = SetCookie(Cookie, .GetAllResponseHeaders)
함수:)
Public Function SetCookie(OldCookie As String, GetAllResponseHeaders As String) As String
Dim V() As String, i As Integer, n As Integer
Dim Cookies() As String = {}
If Not OldCookie Is Nothing Then Cookies = OldCookie.Replace(" ", "").Split(";")
Dim CookieList As New List(Of String)
V = Split(GetAllResponseHeaders, "Set-Cookie: ")
For i = 1 To UBound(V)
V(i) = Split(V(i), ";")(0)
Next
For Each T As String In Cookies
If T.IndexOf("=") > 0 Then CookieList.Add(T)
Next
For i = 1 To V.Length - 1
For n = 0 To CookieList.Count - 1
If Split(CookieList(n), "=")(0) = Split(V(i), "=")(0) Then
CookieList(n) = V(i)
Exit For
End If
Next
If CookieList.Count <= n Then
CookieList.Add(V(i))
End If
Next
SetCookie = Join(CookieList.ToArray, "; ") & ";"
End Function
댓글목록0