Автоматизация входа в систему веб-страницы с использованием скриптов на Delphi

Delphi , Интернет и Сети , Браузер

В современном мире автоматизация рутинных задач является неотъемлемой частью повышения эффективности работы. Одной из таких задач может быть автоматизированный вход в систему веб-страницы, например, для выполнения определенных действий на сайте. В данной статье мы рассмотрим, как можно автоматизировать процесс входа в систему на примере сайта www.soccerproject.com с использованием языка программирования Object Pascal в среде разработки Delphi.

Проблема

При попытке входа в систему на упомянутом сайте пользователь столкнулся с проблемой, связанной с отсутствием у кнопки отправки формы обработчика события click() или идентификатора. Также было отмечено, что попытка выполнения привязанного к этой кнопке JavaScript-кода не увенчалась успехом.

Решение

Для решения проблемы была предложена следующая стратегия:

1. Открытие целевой страницы с помощью компонента TWebBrowser.
2. Ожидание полной загрузки страницы с помощью события DocumentComplete.
3. Автоматическое заполнение полей ввода логина и пароля.
4. Отправка формы для выполнения входа.

Исходный код содержал некоторые недочеты, такие как неоправданное ожидание в цикле и использование функции wait(), которая просто задерживала выполнение на 200 миллисекунд.

Оптимизированный код

В ответе на проблему был представлен оптимизированный код, который устраняет лишние задержки и корректно обрабатывает заполнение полей ввода и отправку формы:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
  CurrentBrowser: IWebBrowser2;
  TopBrowser: IWebBrowser2;
  Document: OleVariant;
  Doc3 :  IHTMLDocument3;
  Frm  :  IHtmlFormElement;
begin
  CurrentBrowser := pDisp as IWebBrowser2;
  TopBrowser := WebBrowser1.DefaultInterface;
  if Assigned(CurrentBrowser) and Assigned(TopBrowser) then
  begin
    if CurrentBrowser = TopBrowser then
    begin
      Doc3 := CurrentBrowser.Document as IHTMLDocument3;
      // Удаление обработчика события для избежания рекурсии
      WebBrowser1.OnDocumentComplete := nil;
      Doc3.getElementById('login').setAttribute('value', 'ВашЛогин', 0);
      Doc3.getElementById('password').setAttribute('value', 'ВашПароль', 0);
      Frm := Doc3.getElementById('indexform') as IHtmlFormElement;
      if Assigned(Frm) then
        Frm.submit;
    end;
  end;
end;

Альтернативные подходы

В качестве альтернативы было предложено использовать метод Navigate с параметром PostData, который позволяет отправить данные на сервер, имитируя поведение формы. Это может быть более удобным и оптимизированным решением для некоторых случаев.

Заключение

Автоматизация входа в систему веб-страницы с помощью скриптов на Delphi может быть выполнена различными способами. Важно понимать особенности целевого сайта и правильно настроить скрипты для корректной работы. В данной статье мы рассмотрели один из возможных подходов, а также альтернативные решения, которые могут быть использованы в зависимости от конкретной ситуации.

Создано по материалам из источника по ссылке.

Автоматизация входа в систему веб-страницы с использованием скриптов на Delphi для упрощения процедуры доступа к сайту.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::