Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Преодоление проблемы диалогового окна в WebBrouser / 3 сообщений из 3, страница 1 из 1
11.11.2007, 16:32
    #34930762
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преодоление проблемы диалогового окна в WebBrouser
Суть программы в следующем:
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
11.11.2007, 16:39
    #34930767
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преодоление проблемы диалогового окна в WebBrouser
Прошу прощения: не WebBrouser, а WebBrowser
...
Рейтинг: 0 / 0
11.11.2007, 19:36
    #34930885
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преодоление проблемы диалогового окна в WebBrouser
Блин,сам допер.
Код: 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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Преодоление проблемы диалогового окна в WebBrouser / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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