Добрый день! Пытаюсь получить картинку с капчей с сайта, получается какая то ... Может кто подскажет что.
Sub get_otv()
Dim f$
Dim URL$, XMLHTTP, nam, t, nat, iner
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "Get", "https://rosreestr.ru/wps/portal/p/cc_ib_portal_services/online_request", False
XMLHTTP.Send
StrCookie = XMLHTTP.GetResponseHeader("Content-Location")
StrCookie = Left(StrCookie, InStr(StrCookie, "!!") + 2)
'Получаем Куки сессии
headers = XMLHTTP.GetAllResponseHeaders
'setCookieStr = XMLHTTP.GetResponseHeader("Set-Cookie")
'setCookieStr = Left(setCookieStr, InStr(setCookieStr, ";") - 1)
' Cells(3, 8).Value = setCookieStr
img = XMLHTTP.ResponseText
img = Mid(img, (InStr(img, "img src=""p0/")) + 9, 100)
img = Left(img, InStr(img, "id=""captchaImage2"">") - 3)
img = "https://rosreestr.ru" & StrCookie & img
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "GET", img, "False"
XMLHTTP.Send
get_otv1 = GetResponse(XMLHTTP.ResponseBody, "utf-8") 'XMLHTTP.ResponseBody ' здесь Byte-массив. Как сделать из него картинку
f = "D:\test.png"
Open f$ For Binary As 1: Put #1, 1, get_otv1: Close #1
End Sub
