| Код |
|---|
Sub XHR_КСП_Здоровье()
Dim XMLHTTP As Object
Dim txt, Txt1, Txt0, URL, Cookie1, token As String
Dim dlina, status1 As Integer
URL = "https://fos.rshbins-life.ru/efrapi/auth/v1/session"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
With XMLHTTP
.Open "GET", URL, False
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko"
.send
Debug.Print .Status; .statusText; " GET session"
'Debug.Print .getResponseHeader("Set-Cookie")
'Cookie1 = Left(XMLHTTP.getResponseHeader("Set-Cookie"), dlina - 25)
'Debug.Print .getAllResponseHeaders()
token = XMLHTTP.getResponseHeader("x-token") ' получил токен зачем он?
Debug.Print token
Debug.Print .responseText
URL = "https://fos.rshb-ins.ru/efrapi/auth/v1/captcha"
.Open "GET", URL, False
.setRequestHeader "x-token", token
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko"
.send
Debug.Print .Status; .statusText; " GET captcha"
Debug.Print .getAllResponseHeaders()
Debug.Print .responseText ' вижу капчу она всегда равна сaptchaUuid :null и при работе через браузер и через макрос
URL = "https://fos.rshb-ins.ru/efrapi/auth/v1/login"
.Open "POST", URL, False ' "логин", "пароль" если так ввести ошибка 400
.setRequestHeader "x-token", token
.setRequestHeader "Content-type", "application/json" 'без типа ошибка 415
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko"
.send "{""login"":""*********"",""passwd"":""********"",""captchaUuid"":null}"
Debug.Print .Status; .statusText; " POST Залогин"
Debug.Print .responseText
Debug.Print .getAllResponseHeaders()
End With
End Sub
|
Изменено: - 12.02.2021 13:21:33
