수다닷컴

멀티쓰레드사용중인데요~

Function CookieGet(ByVal Headers As String, _
Optional JmpType As Boolean = False) As String
On Error GoTo Ierr
Dim i As Integer
Dim Cook1() As String
Dim Temp As String
Dim typ As String
If JmpType = True Then typ = vbNewLine Else typ = Space(1)
Cook1 = Split(Headers, Set-Cookie: )
For i = 1 To UBound(Cook1)
If i = UBound(Cook1) Then
Temp = Temp & Split(Cook1(i), vbNewLine)(0)
Else
Temp = Temp & Split(Cook1(i), ;)(0) & ; & typ
End If
Next i
CookieGet = Temp
Exit Function
Ierr:
End Function

를 사용해서 쿠키세션을 연결해주고있습니다~
그런데 잘사용이안되는부분도있어서

이방법말고 public winhttp new 식으로 하나로 같이 연결해서 쓸수있는방법은없을까요?

신청하기