Комментарии
Избранное
Подписка
Сортировка:
Древо
Скачал, развернул конфу, открыл, ввел логин и пароль. Загрузка версий - кнопочка просто не работает. Загрузка - программ - долго думает и заканчивает свое действие без результата((
В общем не работоспособная конфа((
Очень жаль
Испытывал на 8.2.19.80
В общем не работоспособная конфа((
Очень жаль
Испытывал на 8.2.19.80
(10)
Если запрос Post, то обязательно должно быть заполнено тело запроса через УстановитьТелоИзСтроки. Например, так:
HTTPЗапрос2 = Новый HTTPЗапрос;
HTTPЗапрос2.Заголовки.Вставить("Connection", "keep-alive");
HTTPЗапрос2.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
HTTPЗапрос2.Заголовки.Вставить("Cookie", JSESSIONID1);
HTTPЗапрос2.УстановитьТелоИзСтроки("name=" + name + "&col=" + kol);
HTTPЗапрос2.АдресРесурса = "/login";
Соединение1 = Новый HTTPСоединение("login.1c.ru",,,,Новый ИнтернетПрокси,,Новый ЗащищенноеСоединениеOpenSSL);
ОтветHTTP = Соединение1.ОтправитьДляОбработки(HTTPЗапрос2);
Если запрос Post, то обязательно должно быть заполнено тело запроса через УстановитьТелоИзСтроки. Например, так:
HTTPЗапрос2 = Новый HTTPЗапрос;
HTTPЗапрос2.Заголовки.Вставить("Connection", "keep-alive");
HTTPЗапрос2.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
HTTPЗапрос2.Заголовки.Вставить("Cookie", JSESSIONID1);
HTTPЗапрос2.УстановитьТелоИзСтроки("name=" + name + "&col=" + kol);
HTTPЗапрос2.АдресРесурса = "/login";
Соединение1 = Новый HTTPСоединение("login.1c.ru",,,,Новый ИнтернетПрокси,,Новый ЗащищенноеСоединениеOpenSSL);
ОтветHTTP = Соединение1.ОтправитьДляОбработки(HTTPЗапрос2);
По поводу списка файлов обновлений - конфигуратор умеет искать нужные обновления на серверах 1С, т.е. общий список есть.
Вот он (конфигуратор к нему обращается) -
Раньше точно работало, сейчас пишет что файла нет. Или я не те логин-пароль использую, или ошибка у 1С из-за перестройки ресурсов.
Вот он (конфигуратор к нему обращается) -
Раньше точно работало, сейчас пишет что файла нет. Или я не те логин-пароль использую, или ошибка у 1С из-за перестройки ресурсов.
Прикрепленные файлы:
Отлично. Действительно после обновления загрузка стала работать.
За это вам жирный "+"
По мне так: Что бы развивать программу можно сделать так:
Вместо одного логина/пасса от личного кабинет users.v8.1c.ru - сделать несколько учетных данных.
Т.е. я подписан, например на бюджет, хозрасчет, УТ под разными личными кабинетами.
Ваша программа последовательно открывает все учетки, скачивает заголовки, затем в таблице значений сворачивает по точным наименованиям. Ну как то так.
Таким образом мы получим более точный список ВСЕХ (тех, на которые есть подписка в одном/нескольких личных кабинетах) конфигураций
НУ и наверное последнее: Осталось включить возможность скачивать конфигурации, или на крайний случай получать "КОНЕЧНУЮ ПРЯМУЮ ССЫЛКУ НА ОБНОВЛЕНИЕ", а не рыскать каждый раз по сайту.
т.е. отметили галочками, какие конфигурации необходимо скачать и пошли чай пить. В программе предварительно в настройках в справочнике задаем конечные пути скачки.
По нажатию "скачать" скачиваем обновления, которые уже рассованы по нужным папкам, и спокойно едем обновляться.
Извиняюсь за извращения, люблю это дело))
За это вам жирный "+"
По мне так: Что бы развивать программу можно сделать так:
Вместо одного логина/пасса от личного кабинет users.v8.1c.ru - сделать несколько учетных данных.
Т.е. я подписан, например на бюджет, хозрасчет, УТ под разными личными кабинетами.
Ваша программа последовательно открывает все учетки, скачивает заголовки, затем в таблице значений сворачивает по точным наименованиям. Ну как то так.
Таким образом мы получим более точный список ВСЕХ (тех, на которые есть подписка в одном/нескольких личных кабинетах) конфигураций
НУ и наверное последнее: Осталось включить возможность скачивать конфигурации, или на крайний случай получать "КОНЕЧНУЮ ПРЯМУЮ ССЫЛКУ НА ОБНОВЛЕНИЕ", а не рыскать каждый раз по сайту.
т.е. отметили галочками, какие конфигурации необходимо скачать и пошли чай пить. В программе предварительно в настройках в справочнике задаем конечные пути скачки.
По нажатию "скачать" скачиваем обновления, которые уже рассованы по нужным папкам, и спокойно едем обновляться.
Извиняюсь за извращения, люблю это дело))
(16) artspeed,
Алексей, не вижу никаких извращений, вполне дельные требования к разработке. Надо только правильно спозиционироваться на целевой аудитории - кому такая разработка будет интересна - и вперед!
Что касается меня - я писал статью из просветительских побуждений. Если найдется смельчак доработать мою конфу - с удовольствием передам ему неисключительные права на нее (достаточно просто сослаться на меня) :)
Алексей, не вижу никаких извращений, вполне дельные требования к разработке. Надо только правильно спозиционироваться на целевой аудитории - кому такая разработка будет интересна - и вперед!
Что касается меня - я писал статью из просветительских побуждений. Если найдется смельчак доработать мою конфу - с удовольствием передам ему неисключительные права на нее (достаточно просто сослаться на меня) :)
А может знает кто как реализовать автоматический редирект. Например при Oauth авторизации осуществляется редирект, а HTTPОтвет возвращает код 302. Было бы неплохо реализовать редирект автоматически. Как это сделать вручную я не сообразил.
(26) за информер - да, а за загрузчик?
кстати, можно сделать иерархический список (как на картинке)
1. Справочник "Программы" делаем иерархическим (нужен один уровень иерархии).
2. Немного корректируем процедуру в форме обработки "ЗагрузкаПрограммИВерсий":
3. В самой форме перенастроить список - режим вывода: дерево, разворачивать все уровни.
кстати, можно сделать иерархический список (как на картинке)
1. Справочник "Программы" делаем иерархическим (нужен один уровень иерархии).
2. Немного корректируем процедуру в форме обработки "ЗагрузкаПрограммИВерсий":
Процедура РекурсивныйПарсингСпискаКонфигураций(ДокументHTML)
ТекИмяГруппы = "";
ТекГруппа = Справочники.Программы.ПустаяСсылка();
Для Каждого ЭлДок Из ДокументHTML.ДочерниеУзлы Цикл
Если СокрЛП(ЭлДок.ТекстовоеСодержимое) = "Название" Тогда
//количество строк в таблице дистрибутивов
СписокУзловHTML = ЭлДок.РодительскийУзел.РодительскийУзел.РодительскийУзел.ДочерниеУзлы[1].ДочерниеУзлы;
КолЭлементов = СписокУзловHTML.Количество();
Для А=0 По КолЭлементов-1 Цикл
Если СписокУзловHTML[А].ДочерниеУзлы.Количество()=1 Тогда
ТекИмяГруппы = СокрЛП(СписокУзловHTML[А].ДочерниеУзлы[0].ДочерниеУзлы[0].ТекстовоеСодержимое);
КонецЕсли;
ТекЯчейка = СписокУзловHTML[А].ДочерниеУзлы[0].ДочерниеУзлы[0];
Если ТипЗнч(ТекЯчейка) = Тип("ЭлементЯкорьHTML") Тогда
Если ТекИмяГруппы<>"" Тогда
Если СокрЛП(ТекГруппа.Наименование)<>ТекИмяГруппы Тогда
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Название", ТекИмяГруппы);
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| Программы.Ссылка
|ИЗ
| Справочник.Программы КАК Программы
|ГДЕ
| Программы.НазваниеПолное ПОДОБНО &Название
| И Программы.ЭтоГруппа";
Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Если Выборка.Следующий() Тогда
ТекГруппа = Выборка.Ссылка;
Иначе
НовГруппа = Справочники.Программы.СоздатьГруппу();
НовГруппа.Наименование = ТекИмяГруппы;
НовГруппа.Записать();
ТекГруппа = НовГруппа.Ссылка;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Название = СокрЛП(ТекЯчейка.ТекстовоеСодержимое);
ГиперСсылка = ТекЯчейка.ГиперСсылка;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Название", Название);
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| Программы.Ссылка,
| Программы.Родитель
|ИЗ
| Справочник.Программы КАК Программы
|ГДЕ
| Программы.НазваниеПолное ПОДОБНО &Название
| И НЕ Программы.ЭтоГруппа";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() = 0 Тогда
НовыйСправочник = Справочники.Программы.СоздатьЭлемент();
НовыйСправочник.Наименование = Название;
НовыйСправочник.НазваниеПолное = Название;
НовыйСправочник.ГиперСсылка = ГиперСсылка;
НовыйСправочник.Родитель = ТекГруппа;
НовыйСправочник.Записать();
Загружено = Загружено + 1;
Иначе
Выборка.Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Родитель<>ТекГруппа Тогда
НовыйСправочник = Выборка.Ссылка.ПолучитьОбъект();
НовыйСправочник.Родитель = ТекГруппа;
НовыйСправочник.Записать();
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат;
КонецЕсли;
Если ЭлДок.ЕстьДочерниеУзлы() Тогда
РекурсивныйПарсингСпискаКонфигураций(ЭлДок);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать3. В самой форме перенастроить список - режим вывода: дерево, разворачивать все уровни.
Прикрепленные файлы:
(0) Да, и ещё вопрос автору: Чем пользовались для составления процедур парсинга?
Т.е. вижу по коду, что с помощью ЧтениеHTML и ПостроительDOM создавали объектную модель HTML-документа и дальше с ней работали...
Вопрос в том - с помощью какого вьювера просматривали DOM?
Т.е. вижу по коду, что с помощью ЧтениеHTML и ПостроительDOM создавали объектную модель HTML-документа и дальше с ней работали...
Вопрос в том - с помощью какого вьювера просматривали DOM?
Огромное спасибо за вашу работу. Взял за основу вашу разработку, переделал конечно структуру, версии перенес в РС, переделал справочник Программ, сделал функцию обновления, подцепил к регламенту - в итоге свои идеи воплотил в вашу разработку :)
Прикрепленные файлы:
Можно еще больше оптимизировать, в место рекурсии обработать ДокументHTML одним циклом c получением всех данных
В цикле заполняется: Название, гиперссылка, номер версии, дата выхода, планируемый номер версии, планируемая дата выхода, планируемая дата обновления данных, ознакомительный номер версии, дата выхода ознакомительной версии
В место процедуры РекурсивныйПарсингСпискаКонфигураций(ДокументHTML)
В цикле заполняется: Название, гиперссылка, номер версии, дата выхода, планируемый номер версии, планируемая дата выхода, планируемая дата обновления данных, ознакомительный номер версии, дата выхода ознакомительной версии
В место процедуры РекурсивныйПарсингСпискаКонфигураций(ДокументHTML)
Процедура ЗаполнитьДанные(ДокументHTML, ТаблицаДанных)
ТекГруппа = "";
ЭлементыDOM = ДокументHTML.ПолучитьЭлементыПоИмени("td");
Для Каждого Элемент Из ЭлементыDOM Цикл
Если Элемент.ИмяКласса = "groupColumn" Тогда
ИндексКолонки = 1;
ТекГруппа = СокрЛП(Элемент.ТекстовоеСодержимое);
Продолжить;
КонецЕсли;
Если Элемент.ИмяКласса = "nameColumn" Тогда
НоваяСтрока = ТаблицаДанных.Добавить();
НоваяСтрока.Группа = ТекГруппа;
НоваяСтрока.Название = СокрЛП(Элемент.ТекстовоеСодержимое);
Если ТипЗнч(Элемент.ДочерниеУзлы[0]) = Тип("ЭлементЯкорьHTML") Тогда
НоваяСтрока.Гиперcсылка = СокрЛП(Элемент.ДочерниеУзлы[0].Гиперссылка);
КонецЕсли;
ИндексКолонки = 3;
Продолжить;
КонецЕсли;
ИндексКолонки = ИндексКолонки + 1;
НоваяСтрока[ТаблицаДанных.Колонки[ИндексКолонки].Имя] = СокрЛП(Элемент.ТекстовоеСодержимое);
КонецЦикла;
КонецПроцедуры Показать
Добрый день.
Внедрили вашу систему в рабочую базу, все отлично. Потом решили перевести в регламентное задание и тут начались сложности: база в клиент серверном варианте. Регламентное задание запускается. Система получает JSESSIONID, но при получении страницы со списком конфигурации система ничего уже не возвращает. Подскажите куда смотреть
Внедрили вашу систему в рабочую базу, все отлично. Потом решили перевести в регламентное задание и тут начались сложности: база в клиент серверном варианте. Регламентное задание запускается. Система получает JSESSIONID, но при получении страницы со списком конфигурации система ничего уже не возвращает. Подскажите куда смотреть
Спасибо за статью. У меня возник вопрос, а как выполнить метод PATCH в объекте Httpсоединение, есть методы PUT,POST,DELETE,GET, а метод PATCH я не обнаружил и не смог воспроизвести его, хоть 1с пишет что к REST можно обращаться с помощью метода PATCH.
(43) ОН используется для замены только указанных свойств, при этом остальные свойства остаются не тронутыми, его можно заменить методом PUT , но он очищает все незаполненные поля.
Плюс еще в объекте HTTPсервисы, появилась куча методов,которыми из 1с никак не обратиться.
● GET;
● POST;
● PUT;
● DELETE;
● PATCH;
● MERGE;
● CONNECT;
● OPTIONS;
● TRACE;
● PROPFIND;
● PROPPATCH;
● MKCOL;
● COPY;
● MOVE;
● LOCK;
● UNLOCK.
Плюс еще в объекте HTTPсервисы, появилась куча методов,которыми из 1с никак не обратиться.
● GET;
● POST;
● PUT;
● DELETE;
● PATCH;
● MERGE;
● CONNECT;
● OPTIONS;
● TRACE;
● PROPFIND;
● PROPPATCH;
● MKCOL;
● COPY;
● MOVE;
● LOCK;
● UNLOCK.
Спасибо за статью. Обработка работает. Но не это главное, мне очень пригодился сам метод работы с сайтами, требующими аутентификации. Я оказывается всё делал не совсем правильно. Сэкономили мне массу времени. Ещё раз спасибо.
Разобрался! Теперь так!
&НаСервере
Функция НайтиJSESSIONID()
Попытка
//для GET-запросов
HTTPЗапрос1 = Новый HTTPЗапрос;
HTTPЗапрос1.Заголовки.Вставить("Connection", "keep-alive");
//для POST-запросов
HTTPЗапрос2 = Новый HTTPЗапрос;
HTTPЗапрос2.Заголовки.Вставить("Connection", "keep-alive");
HTTPЗапрос2.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
Соединение1 = Новый HTTPСоединение("login.1c.ru",,,,Новый ИнтернетПрокси,,Новый ЗащищенноеСоединениеOpenSSL);
//Соединение2 = Новый HTTPСоединение("users.v8.1c.ru",,,,Новый ИнтернетПрокси,,Новый ЗащищенноеСоединениеOpenSSL);
//portal.1c.ru
Соединение2 = Новый HTTPСоединение("releases.1c.ru",,,,Новый ИнтернетПрокси,,Новый ЗащищенноеСоединениеOpenSSL);
//Запрос 1
HTTPЗапрос1.АдресРесурса = "/releases.1c.ru/total";
ОтветHTTP1 = Соединение2.Получить(HTTPЗапрос1);
результат = ОтветHTTP1.КодСостояния;
JSESSIONID = ОтветHTTP1.Заголовки.Получить("Set-Cookie");
JSESSIONID = Лев(JSESSIONID, Найти(JSESSIONID, ";") - 1);
Объект.JSESSIONID = JSESSIONID;
LOCATION1 = СтрЗаменить(ОтветHTTP1.Заголовки.Получить("Location"), "https://login.1c.ru", "");
//Запрос 2
HTTPЗапрос1.АдресРесурса = LOCATION1;
ОтветHTTP2 = Соединение1.Получить(HTTPЗапрос1);
JSESSIONID1 = ОтветHTTP2.Заголовки.Получить("Set-Cookie");
JSESSIONID1 = Лев(JSESSIONID1, Найти(JSESSIONID1, ";") - 1);
inviteCode = РаспарситьinviteCode(ОтветHTTP2.ПолучитьТелоКакСтроку());
//Запрос 3
HTTPЗапрос2.АдресРесурса = "/login;"
+ СтрЗаменить(JSESSIONID1, "JSESSIONID=", "jsessionid=")
+ "?service=https%3A%2F%2Fusers.v8.1c.ru%2Fdistribution%2Fpublic%2Fsecurity_check%3Bjsessionid%3D" Показать
(50) xsazar, объясните чайнику пожалуйста, как подобным методом программно авторизоваться на login.1c.ru, затем с той же авторизацией попасть на страницу
Далее таким же методом хочу добраться до страницы (там 4 перехода):
К сожалению, не могу понять, тема для меня новая, а ваш пример не работает, возможно, что-то не так сделал, после нажатия немного думает и ничего не происходит.
Далее таким же методом хочу добраться до страницы (там 4 перехода):
К сожалению, не могу понять, тема для меня новая, а ваш пример не работает, возможно, что-то не так сделал, после нажатия немного думает и ничего не происходит.
(51) markovki, по вашим словам, можно понять, что вы ни чего не меняли в процедуре, где идет парсинг страницы релиза, а она обновилась, там то же нужно менять, поэтому и ни чего не происходит, у меня пока только есть регламентное задание, могу показать как идет парсинг страницы, но он для обработки не подойдет.
(52) xsazar, вы правы, не менял.
Просто пытаюсь более детально разобраться как происходит переход на releases.1c.ru после авторизации.
Мне казалось, что для этого необходимы только логин/пароль и кукисы c login.1c.ru.
Зачем например, парсить страницу и собственно сама переменная inviteCode...
Просто пытаюсь более детально разобраться как происходит переход на releases.1c.ru после авторизации.
Мне казалось, что для этого необходимы только логин/пароль и кукисы c login.1c.ru.
Зачем например, парсить страницу и собственно сама переменная inviteCode...
На 1С слегка изменилась авторизация. Помогли такие костыли:
В функции НайтиJSESSIONID()
1. Запрос 2
Перед JSESSIONID1 = Лев(JSESSIONID1, Найти(JSESSIONID1, ";") - 1); вставить
JSESSIONID1 = Прав(JSESSIONID1, СтрДлина(JSESSIONID1) - Найти(JSESSIONID1, "SESSION") + 1);
2. Запрос 3
HTTPЗапрос2.АдресРесурса заменить на
HTTPЗапрос2.АдресРесурса = "/login?service=https%3A%2F%2Freleases.1c.ru";
В функции НайтиJSESSIONID()
1. Запрос 2
Перед JSESSIONID1 = Лев(JSESSIONID1, Найти(JSESSIONID1, ";") - 1); вставить
JSESSIONID1 = Прав(JSESSIONID1, СтрДлина(JSESSIONID1) - Найти(JSESSIONID1, "SESSION") + 1);
2. Запрос 3
HTTPЗапрос2.АдресРесурса заменить на
HTTPЗапрос2.АдресРесурса = "/login?service=https%3A%2F%2Freleases.1c.ru";
Подскажите, пожалуйста. У нас здесь есть домены releases.1c.ru и login.1c.ru. Мы авторизуемся на login.1c.ru, шлем туда имя пользователя и пароль, а затем получаем страницу с releases.1c.ru. Куки разные. Как нас идентифицируют как одного и того же пользователя и дают доступ к releases.1c.ru?
(60)
Смотрим функцию НайтиJSESSIONID()
В первом запросе к releases.1c.ru нам присваивается JSESSIONID
Во втором запросе к login.1c.ru нам присваиваются параметры inviteCode
В третьем запросе мы отправляем inviteCode с логином-паролем и получаем ticket
В четвертом запросе мы связываем JSESSIONID и ticket
Смотрим функцию НайтиJSESSIONID()
В первом запросе к releases.1c.ru нам присваивается JSESSIONID
Во втором запросе к login.1c.ru нам присваиваются параметры inviteCode
В третьем запросе мы отправляем inviteCode с логином-паролем и получаем ticket
В четвертом запросе мы связываем JSESSIONID и ticket
Внимание! Выпущена версия 5. Оптимизирован код. Заменены методы рекурсивных парсингов на конструкции ПолучитьЭлементПоИдентификатору и ПолучитьЭлементыПоИмени. Старые функции остались закоментированными.
Спасибо коллеге Avrobus за идею! :)
Спасибо коллеге Avrobus за идею! :)
Знающие люди, подскажите, пожалуйста.
Пытаюсь авторизироваться на сайте средствами 1с:
Строку action=secure-login&login="$ЛОГИН$"&passwd="$ПАРОЛЬ$" подсмотрел снифером во время отправки данных на сервер браузером.
В
попадает заблокированная страница. Т.е. авторизацию не проходит...
Пытаюсь авторизироваться на сайте средствами 1с:
Соединение = Новый HTTPСоединение("toysland.crimea.ua");
Заголовки = Новый Соответствие;
Заголовки.Вставить("host", "toysland.crimea.ua");
Заголовки.Вставить("Connection", "keep-alive");
Заголовки.Вставить("Accept","text/html");
Заголовки.Вставить("Accept-Language", "ru");
Заголовки.Вставить("Content-Length",СтрДлина(СтрЗаменить(СтрЗаменить(action=secure-login&login="$ЛОГИН$"&passwd="$ПАРОЛЬ$","$ЛОГИН$",Объект.Пользователь),"$ПАРОЛЬ$",Объект.Пароль)));
Запрос = Новый HTTPЗапрос(ТекАдрес, Заголовки);
Запрос.УстановитьТелоИзСтроки(СтрЗаменить(СтрЗаменить(Объект.ШаблонПОСТ,"$ЛОГИН$",Объект.Пользователь),"$ПАРОЛЬ$",Объект.Пароль));
Ответ = Соединение.ОтправитьДляОбработки(Запрос); ПоказатьСтроку action=secure-login&login="$ЛОГИН$"&passwd="$ПАРОЛЬ$" подсмотрел снифером во время отправки данных на сервер браузером.
В
Ответ.ПолучитьТелоКакСтроку();попадает заблокированная страница. Т.е. авторизацию не проходит...
Подскажите, пожалуйста , как все таки получать текст страницы полученной в сжатом виде gzip. Устанавливаю Заголовок "Accept-Encoding : gzip"
По итогу HTTPОтвет.ПолучитьТелоКакСтроку() Возвращает сжатые данные
Поднял вопрос в теме
По итогу HTTPОтвет.ПолучитьТелоКакСтроку() Возвращает сжатые данные
Поднял вопрос в теме
Здравствуйте, подскажите пожалуйста, не получается авторизоваться на сайте интернет банка. Там то тоже используется HTTPS, но если при авторизации на users.v8.1c.ru в теле POST запроса отправляются незашифрованные логин/пароль, то в интернет банк отправляется шифрованный пароль, причем всегда разный. Как сформировать POST запрос на авторизацию?
Разобрался со своей проблемой, там действительно при каждой авторизации происходит шифрование пароля. Я разобрал алгоритм шифрования и на авторизацию отправляю шифрованный пароль. HTTPS соединение и сертификаты здесь не причем. Кодирование идет встроенными процедурами сайта.
Сломалось что-то.
Здесь ошибка - не получает элемент по идентификатору loginForm. Логин и пароль рабочие.
Функция РаспарситьinviteCode(Текст)
ЧтениеHTML = Новый ЧтениеHTML;
ЧтениеHTML.УстановитьСтроку(Текст);
Построитель = Новый ПостроительDOM;
ДокументHTML = Построитель.Прочитать(ЧтениеHTML);
loginForm = ДокументHTML.ПолучитьЭлементПоИдентификатору("loginForm");
inviteCode = "inviteCode=<=" + loginForm.Элементы[1].Значение
+ "&execution=" + loginForm.Элементы[2].Значение
+ "&_eventId=" + loginForm.Элементы[3].Значение
+ "&username=" + КонстантыНабор.username
+ "&password=" + КонстантыНабор.password;
//РекурсивныйПарсингСтраницыЛогина(ДокументHTML, inviteCode);
//inviteCode = inviteCode + "&username=" + КонстантыНабор.username + "&password=" + КонстантыНабор.password;
Возврат inviteCode;
КонецФункции
ПоказатьЗдесь ошибка - не получает элемент по идентификатору loginForm. Логин и пароль рабочие.
1С наверное никогда не додумается дать доступ к обновлениям через человеческий API, потому и возникают такие костыли как данная разработка.
Исправьте ошибочку в парсилке. &execution индекс 4, а не 3
&НаСервере
Функция РаспарситьinviteCode(Текст)
ЧтениеHTML = Новый ЧтениеHTML;
ЧтениеHTML.УстановитьСтроку(Текст);
Построитель = Новый ПостроительDOM;
ДокументHTML = Построитель.Прочитать(ЧтениеHTML);
loginForm = ДокументHTML.ПолучитьЭлементПоИдентификатору("loginForm");
inviteCode = "inviteCode=&username=" + КонстантыНабор.username
+ "&password=" + КонстантыНабор.password
+ "&execution=" + loginForm.Элементы[4].Значение
+ "&_eventId=submit"
+ "&geolocation="
+ "&submit=Войти"
+ "&rememberMe=on"
;
//РекурсивныйПарсингСтраницыЛогина(ДокументHTML, inviteCode);
//inviteCode = inviteCode + "&username=" + КонстантыНабор.username + "&password=" + КонстантыНабор.password;
Возврат inviteCode;
КонецФункции Показать
(85) чтобы отвязаться от индексов можно сделать перебор элементов:
loginForm = ДокументHTML.ПолучитьЭлементПоИдентификатору("loginForm");
Элементы = loginForm .Элементы;
Для Каждого Элемент Из Элементы Цикл
Если Элемент.Имя = "inviteCode" Тогда
inviteCode = Элемент.Значение;
ИначеЕсли Элемент.Имя = "execution" Тогда
execution = Элемент.Значение;
ИначеЕсли Элемент.Имя = "_eventId" Тогда
eventId = Элемент.Значение;
КонецЕсли;
КонецЦикла;
Показать
(91)
ага, в последней версии так и сделано:
ага, в последней версии так и сделано:
loginForm = ДокументHTML.ПолучитьЭлементПоИдентификатору("loginForm");
execution = "";
Для Каждого Итератор Из loginForm.Элементы Цикл
Если Итератор.Имя = "execution" Тогда
execution = Итератор.Значение;
Прервать;
КонецЕсли;
КонецЦикла;
Показать
Статья отличная!
Особенно порадовало то, что пример загрузки в базе был рабочий. ИТС легко открылся.
Очень долго не мог понять как работает вся эта пост- и гет- шняга в 1С83.
Посмотрел пример ИТС и нарисовал подобное для своей задачи.
Теперь спокойно захожу и скачиваю всё что необходимо на нужный мне сайт (https).
Гораздо быстрее и надежнее, чем собирался сделать при помощи InternetExplorer.Application.
По тому пути я дошел почти до конца, упёрся в сохранение файла, понял что окошко в IE11, предлагающее "Вы
хотите сохранить..." красивыми методами непобедимо, плюнул и пошёл разбираться с интернет запросами.
Попалась эта статья, один вечер и готово.
Единственное, маловато написано про то, как в яндекс.браузере правильно читать заголовки: откуда что брать
и куда что ложить в новом запросе. Думаю для тех кто впервые сталкивается с задачей подобного рода это лишним не было бы.
Особенно порадовало то, что пример загрузки в базе был рабочий. ИТС легко открылся.
Очень долго не мог понять как работает вся эта пост- и гет- шняга в 1С83.
Посмотрел пример ИТС и нарисовал подобное для своей задачи.
Теперь спокойно захожу и скачиваю всё что необходимо на нужный мне сайт (https).
Гораздо быстрее и надежнее, чем собирался сделать при помощи InternetExplorer.Application.
По тому пути я дошел почти до конца, упёрся в сохранение файла, понял что окошко в IE11, предлагающее "Вы
хотите сохранить..." красивыми методами непобедимо, плюнул и пошёл разбираться с интернет запросами.
Попалась эта статья, один вечер и готово.
Единственное, маловато написано про то, как в яндекс.браузере правильно читать заголовки: откуда что брать
и куда что ложить в новом запросе. Думаю для тех кто впервые сталкивается с задачей подобного рода это лишним не было бы.
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|