maksyandra @ Сегодня, 18:20
необходимо зарегистрироваться для просмотра ссылки,
Посмотрите отладчиком что находится в ХТТПОтвет (в частности ХТТПОтвет.КодСостояния - возможно идет редирект куда-то или еще какая ошибка, о которой в ХТТПОтвет.Заголовки можно поискать)
Цитата
Запрос.УстановитьТелоИзСтроки("&login=логин&password=пароль", "UTF-8",ИспользованиеByteOrderMark.НеИспользовать);
Еще вот это попробуйте переписать вот так:
Запрос.УстановитьТелоИзСтроки("login="+КодироватьСтроку(логин,СпособКодированияСтроки.КодировкаURL)+"&password="+КодироватьСтроку(пароль,СпособКодированияСтроки.КодировкаURL), "UTF-8",ИспользованиеByteOrderMark.НеИспользовать);
Ну и еще можно попробовать (хотя это соломинка, которая редко помогает):
ЗаголовокHTTP.Вставить("User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.87 Safari/537.36");
В крайнем случае - вшить куда-то компоненту curl и запускать ее через COMОбъект("WScript.Shell"). Как-то вот так:
...
ИмяФайлаКУРЛ = КаталогВременныхФайлов()+"CURL.exe";
ИмяФайлаКУРЛ = Новый Файл(ИмяФайлаКУРЛ);
Если НЕ ИмяФайлаКУРЛ.Существует() Тогда
КУРЛ = ЭтотОбъект.ПолучитьМакет("CURL");
КУРЛ.Записать(ИмяФайлаКУРЛ.ПолноеИмя);
КонецЕсли;
ФайлСертификатов = КаталогВременныхФайлов()+"curl-ca-bundle.crt";
ФайлСертификатов = Новый Файл(ФайлСертификатов);
Если НЕ ФайлСертификатов.Существует() Тогда
СЕРТИФИКАТ = ЭтотОбъект.ПолучитьМакет("CurlCert");
СЕРТИФИКАТ.Записать(ФайлСертификатов.ПолноеИмя);
КонецЕсли;
ВремФайл = ПолучитьИмяВременногоФайла("txt");
Скрипт = Новый COMОбъект("WScript.Shell");
СтрокаКоманды = ТУТ_НАДО_СФОРМИРОВАТЬ_ПРАВИЛЬНУЮ_СТРОКУ_КОМАНДЫ_ДЛЯ_CURL;
Скрипт.Run(СтрокаКоманды,0,Истина);
...