• 쇼핑몰
  • 커뮤니티
  • 북마크

vb.net




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

하나를하더라도최선을
2019.10.08 22:00 1,674 0

본문



사용법:)
    Cookie = SetCookie(Cookie, .GetAllResponseHeaders)
 
함수:)
    Public Function SetCookie(OldCookie As String, GetAllResponseHeaders As StringAs 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), "=")(0Then
                    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

등록된 댓글이 없습니다.