자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 15,761회 작성일 19-10-08 22:00

본문

사용법:)
    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
 

댓글목록

등록된 댓글이 없습니다.