0

При выполнении WebBrowser1.Navigate(Trim(edit1.Text)) программа выдает сообщение, что весьма раздражает и не удобно каждый раз разрешать выполнение((

введите сюда описание изображения

Как мне автоматически без участия пользователя всегда разрешать выполнение?

5
  • Предупреждение не про js, а про сертификат.
    – zed
    29 мая 2019 в 11:39
  • Правильно выдаёт. В том и суть окошка, чтобы уведомить пользователя, что его могут или пытаются взломать. Скрыв его, вы сделаете только хуже.
    – andreymal
    29 мая 2019 в 13:42
  • Мне не скрывать нужно, а согласиться! Может это важно, я пытаюсь загрузить веб интерфейс сетевого принтера
    – dev
    29 мая 2019 в 15:16
  • в список доверенных сайтов добавить мб? это вам в настройки IE надо
    – teran
    29 мая 2019 в 19:12
  • Добавлял, но к сожалению не помогло((
    – dev
    30 мая 2019 в 8:42

1 ответ 1

0

В итоге не нашел адекватного решения на Delphi и решил данный вопрос средствами AuotIt

Вот скрипт, может кому пригодится

$sTitle = 'Предупреждение системы безопасности' ;заголовок окна
$hWin = WinWait($sTitle, '', 5);ждем 5 сек. окно
If Not $hWin Then
    MsgBox(16, 'Error', 'Нет окна');если окна нет - сообщение об ошибке и выход
    Exit
EndIf
ControlClick($hWin, '', '[CLASS:Button; INSTANCE:1]');клик по кнопке

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.