powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Преодоление проблемы диалогового окна в WebBrouser
3 сообщений из 3, страница 1 из 1
Преодоление проблемы диалогового окна в WebBrouser
    #34930762
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Суть программы в следующем:
C использованием WebBrouser заходим в аккаунт по https:// и считываем информацию.
Далее необходимо из аккаунта выйти.
Дается команда вида:
Form2.WebBrowser1.Navigate "https://myaccount.com/clx/index.php?part=logoff"
При переходе на эту страницу возникает диалоговое окно:

Windows Internet Explorer
Просматриваемая WEB-страница пытается закрыть это окно.Закрыть окно?
Да? Нет?

Соответственно код "End" не выполняется пока вручную не нажмешь что-нибудь. Если "End" выполнится до появления этого окна, то все пройдет корректно, но если слишком быстро, то корректного выхода из аккаунта не произойдет.

Если последней команды Form2.WebBrowser1.Navigate "https://myaccount.com/clx/index.php?part=logoff" вообще не давать, то не произойдет корректного выхода из аккаунта и удаленная система будет считать, что пользователь не вышел, соотв. возникнут проблемы при след. входе в этот или другой аккаунт.
В идеале в этом окне надо нажать "нет" ибо у программы есть опция сразу итти в другой аккаунт, т.е. надо произвести корректное отключение от системы с возможностью последующего входа.

Есть ли идеи, как избавиться от этого окна или как там "нажать" кнопку "нет" (sendkeys не помогает, т.к. окно похоже стопорит работу любого кода моей программы)???
...
Рейтинг: 0 / 0
Преодоление проблемы диалогового окна в WebBrouser
    #34930767
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прошу прощения: не WebBrouser, а WebBrowser
...
Рейтинг: 0 / 0
Преодоление проблемы диалогового окна в WebBrouser
    #34930885
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин,сам допер.
Код: plaintext
1.
2.
3.
4.
5.
Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
    If ITER =  4  Then 'проверка условия, что именно в нужном месте процесса
        Cancel = True
        End 'если больше ничего делать не надо
    End If
End Sub
Двух зайцев убил:
1) Диалоговое окно не появляется
2) команда на "закрытие окна" не выполняется
И от сервера отключается...
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Преодоление проблемы диалогового окна в WebBrouser
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]