Народ помогите с кодом.
цель такова: есть сайт там есть авторизация, так вот мне нужно соединится с сайтом заплолнить форму авторизации и там забрать данные (причем с некольких страниц) и все это должно быть без всяких форм в фоновом режиме. Как этого добится? желательно без
Было бы замечательно если кто нибудь примерчик показал.
Заранее спасибо.
цель такова: есть сайт там есть авторизация, так вот мне нужно соединится с сайтом заплолнить форму авторизации и там забрать данные (причем с некольких страниц) и все это должно быть без всяких форм в фоновом режиме. Как этого добится? желательно без
Соединение = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");Было бы замечательно если кто нибудь примерчик показал.
Заранее спасибо.
По теме из базы знаний
- Как продавать, не продавая? Сарафан для 1с-ника
- Загрузка курсов любых валют. "Экзотические", не котируемые центробанками.
- Как заработать миллион или История успешного сотрудничества
- Сравнительный анализ вариантов интеграции между системами
- Внесение изменений в выгрузку торгового каталога из 1С: УПП (обычные формы, платформа 8.3) на сайт с помощью стандартной обработки 1С Битрикс
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Процедура ЗайтиНаПочтуНажатие(Элемент)
ИЕ = Новый COMОбъект("InternetExplorer.Application");
ИЕ.Visible = истина;
//ИЕ.Silent = ложь;
ИЕ.Navigate("http://mail.yandex.ru/");
Пока ИЕ.readyState < 4 цикл
ВвестиСтроку("","ждем",1,истина);
КонецЦикла;
ИЕДок = ИЕ.Document;
Форма = ИЕДок.forms(0);
попытка
Форма.all["login"].value ="Vasya";
Форма.all["passwd"].value ="123456";
Форма.submit();
пока ИЕ.Busy()=истина цикл
ВвестиСтроку("","ждем",1,истина);
конецЦикла;
// Предупреждение(ИЕДок.body.Text);
Предупреждение(ИЕДок.body.innerHTML);
исключение
Сообщить("Исключение");
конецПопытки;
КонецПроцедуры Показать
получаем вот этого снегиря:
адрес самого рисунка такой:
а у объекта HTTPСоединение есть соответсвенно параметры Имя пользователя и Пароль
адрес самого рисунка такой:
Процедура HTTPНажатие(Элемент)
сервер ="img-fotki.yandex.ru";
ИмяФайлаИсточника ="/get/5/dtma.f/0_57d9_5ee8bb89_L.jpeg";
Соединение=Новый HTTPСоединение(Сервер);
ИмяВременногоФайла ="c:\снегирь.jpeg";
Соединение.Получить(ИмяФайлаИсточника, ИмяВременногоФайла);
КонецПроцедурыа у объекта HTTPСоединение есть соответсвенно параметры Имя пользователя и Пароль
Новый HTTPСоединение(<Сервер>, <Порт>, <Имя пользователя>, <Пароль>, <Прокси>, <Защищенное соединение>)Сергей Плешаков пишет:
Код
Процедура ЗайтиНаПочтуНажатие(Элемент)
ИЕ = Новый COMОбъект("InternetExplorer.Application");
ИЕ.Visible = истина;
//ИЕ.Silent = ложь;
ИЕ.Navigate("http://mail.yandex.ru/");
Пока ИЕ.readyState < 4 цикл
ВвестиСтроку("","ждем",1,истина);
КонецЦикла;
ИЕДок = ИЕ.Document;
Форма = ИЕДок.forms(0);
попытка
Форма.all["login"].value ="Vasya";
Форма.all["passwd"].value ="123456";
Форма.submit();
пока ИЕ.Busy()=истина цикл
ВвестиСтроку("","ждем",1,истина);
конецЦикла;
// Предупреждение(ИЕДок.body.Text);
Предупреждение(ИЕДок.body.innerHTML);
исключение
Сообщить("Исключение");
конецПопытки;
КонецПроцедуры
ПоказатьКод
Процедура ЗайтиНаПочтуНажатие(Элемент)
ИЕ = Новый COMОбъект("InternetExplorer.Application");
ИЕ.Visible = истина;
//ИЕ.Silent = ложь;
ИЕ.Navigate("http://mail.yandex.ru/");
Пока ИЕ.readyState < 4 цикл
ВвестиСтроку("","ждем",1,истина);
КонецЦикла;
ИЕДок = ИЕ.Document;
Форма = ИЕДок.forms(0);
попытка
Форма.all["login"].value ="Vasya";
Форма.all["passwd"].value ="123456";
Форма.submit();
пока ИЕ.Busy()=истина цикл
ВвестиСтроку("","ждем",1,истина);
конецЦикла;
// Предупреждение(ИЕДок.body.Text);
Предупреждение(ИЕДок.body.innerHTML);
исключение
Сообщить("Исключение");
конецПопытки;
КонецПроцедуры
Этот код мне больше подходит, но есть проблема когда создается объект открывается окно с броузером, как можно все это в фоне делать. что бы без всяких видых окошек и действий было?
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот