[vb.net] Cookie 유지 및 갱신 > vb.net

본문 바로가기

vb.net

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

회원사진
하나를하더라도최선을
2019-10-08 22:00 11,049 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

등록된 댓글이 없습니다.
게시판 전체검색