@IgorPlays

Не могу передать Куки в запрос VBA?

Логика такая, делаю запрос на получение Сессии, записыват Токен и Айди Сессии, и пытаюсь передать их в Авторизациб.
Но ощущение что он их не видит, я как только не пытался их отправить. Вот Пример

Sub BasicGETRequest()

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Url = "get_session"
    objHTTP.Open "GET", Url, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send
    
    Token_s = Right(Left(objHTTP.getResponseHeader("Set-Cookie"), 47), 36)
    strCookie = objHTTP.getAllResponseHeaders
    strCookie = Split(strCookie, vbCrLf)
    Session_s = Right(Trim(Split(Split(strCookie(5), ";")(0), ":")(1)) & "; " & Trim(Split(Split(strCookie(7), ";")(0), ":")(1)), 32)
    

    CookieTemp = "CSRF-TOKEN=" + Token_s + "; JSESSIONID=" + Session_s
    
    Set objHTTP1 = CreateObject("MSXML2.ServerXMLHTTP")
    Url1 = "auth"
    objHTTP1.Open "POST", Url1, False
    objHTTP1.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64)"
    objHTTP1.setRequestHeader "Set-Cookie", CookieTemp
    objHTTP1.setRequestHeader "Cookie", CookieTemp
    objHTTP1.setRequestHeader "Host", "site.com"
    objHTTP1.setRequestHeader "Origin", "site.com"
    objHTTP1.setRequestHeader "Referer", "site.com"
    objHTTP1.setRequestHeader "CSRF-TOKEN", Token_s
    objHTTP1.setRequestHeader "JSESSIONID", Session_s
    objHTTP1.send ("j_username=test&j_password=test@&remember-me=true&langKey=en&submit=Login")
    
    

    Debug.Print objHTTP1.getAllResponseHeaders()
    
    Debug.Print objHTTP1.responseText

    
End Sub

И вот не могу понять, я куки хоть передал или нет, и посмотреть никак не могу. Кто знает в чём модет быть дело?
  • Вопрос задан
  • 129 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы