Работа с XMLHttpRequest. Авторизация
VB.NET / VBA:
'-----------------------------------------------------------------------------------------------------------------------------------------------
'получаем Cookie
Dim xmlHTTP, adr, auth, rez, xpl, text, z, LLT, SID
'-----------------------------------------------------------------------------------------------------------------------------------------------
'Set xpl = Report.GetXPL()
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
adr="https://test.test.ru/server/login"
auth="Login&login=Admin&password=123456"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Log_file = fso_OpenTextFile("c:\disstr\logs\test.txt", 2, True)
xmlHTTP.Open "POST", adr, False
xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'application/octet-stream setRequestHeader
xmlHTTP.setRequestHeader "Content-Type", "application/octet-stream"
xmlHTTP.setRequestHeader "X-Requested-With", "XMLHttpRequest"
xmlHTTP.Send(auth)
rez = xmlHTTP.getAllResponseHeaders
Log_file.write rez
Последнее редактирование модератором: