Логика такая, делаю запрос на получение Сессии, записыват Токен и Айди Сессии, и пытаюсь передать их в Авторизациб.
Но ощущение что он их не видит, я как только не пытался их отправить. Вот Пример
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
И вот не могу понять, я куки хоть передал или нет, и посмотреть никак не могу. Кто знает в чём модет быть дело?