Возможно ли открыть всплывающее окно в WebBrowser2?

[ala-x]

Возможно ли блокировать всплывающие окна,типа что б всплывающее окно грузилось в компоненте WebBrowser2???

[VBTerminator]

Возможно ли блокировать всплывающие окна,типа что б всплывающее окно грузилось в компоненте WebBrowser2???

"Перекрой воду, чтобы я мог помыться"?

[ala-x]

Это шутка ?Подскажите пожалуйста

[VBTerminator]

Да шутка, но она отражает противоречие в твоём посте.

Возможно ли блокировать всплывающие окна,типа что б всплывающее окно грузилось в компоненте WebBrowser2???

Ты хочешь блокировать всплывающие окна, чтобы они могли грузиться в компоненте, в котором отображение всплывающих окон заблокировано.

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

[ala-x]

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

[dr.MIG]

А где (в чём) просматривается этот "основной сайт"?

[arvitaly]

создай массив веббраузеров и добавляй или удаляй во время открытия или закрытия страницы
load webbrowser(1)
unload webbrowser(1)

[ala-x]

А где (в чём) просматривается этот "основной сайт"?

Сайты просматриваются в компоненте WebBrowser1...Всплывающее окно нужно запихнуть в ту же форму в компонент WebBrowser2

[arvitaly]

Подключи в Project->References(Проект->Ссылки) библиотеку Microsoft HTML Object Library, на форму добавь 2 webbrowser: webbrowser1 и webbrowser2
Код формы

Код: Выделить всё

Private WithEvents mHTMLDocument As MSHTML.HTMLDocument

Private Sub Form_Load()
    WebBrowser1.navigate "http://bbs.vbstreets.ru/"
    While WebBrowser1.document Is Nothing
        DoEvents
    Wend
    Set mHTMLDocument = WebBrowser1.document
End Sub

Private Function mHTMLDocument_onclick() As Boolean

    If LCase(mHTMLDocument.activeElement.tagName) = "a" Then
        If LCase(mHTMLDocument.activeElement.getAttribute("target")) = "_blanc" Then
            WebBrowser2.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        Else
            WebBrowser1.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        End If
    End If
End Function

[dr.MIG]

И как поможет данное решение, которое работает при щелчке на ссылке и которое кстати подробно обсуждалось не так давно?
Здесь надо обрабатывать событие открытия нового окна.

[ala-x]

Код: Выделить всё

Private Function mHTMLDocument_onclick() As Boolean

    If LCase(mHTMLDocument.activeElement.tagName) = "a" Then
        If LCase(mHTMLDocument.activeElement.getAttribute("target")) = "_blanc" Then
            WebBrowser2.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        Else
            WebBrowser1.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        End If
    End If
End Function

Этот код тоже в форму или в модуль? Потому что в форме не срабатывает открытие в WebBrowser2

[arvitaly]

В форму а что происходит

[ala-x]

Всплывающее окно открывается в том же WebBrowsere1 а второй как был пустой так и остаётся пустым(WebBrowser2)
Не даёт возможность просматривать сайт

[arvitaly]

Ну так потому что ты наверное жмешь не на всплывающую ссылку

Код: Выделить всё

        If LCase(mHTMLDocument.activeElement.getAttribute("target")) = "_blanc" Then
            WebBrowser2.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        Else
            WebBrowser1.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        End If

замени на

Код: Выделить всё

            WebBrowser2.Navigate2 HTMLDocument.activeElement.getAttribute("href")

[ala-x]

Ну так потому что ты наверное жмешь не на всплывающую ссылку

Код: Выделить всё

        If LCase(mHTMLDocument.activeElement.getAttribute("target")) = "_blanc" Then
            WebBrowser2.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        Else
            WebBrowser1.Navigate2 mHTMLDocument.activeElement.getAttribute("href")
        End If

замени на

Код: Выделить всё

            WebBrowser2.Navigate2 HTMLDocument.activeElement.getAttribute("href")

Ну я же не знаю какая там у них всплывающая....Не я всё правильно жму на ту которая раньше в эксплорере открывалась.Но теперь в том же браузере открывается.

[arvitaly]

И как поможет данное решение, которое работает при щелчке на ссылке и которое кстати подробно обсуждалось не так давно?

хм, не видел

Здесь надо обрабатывать событие открытия нового окна.

и точно ведь

Код: Выделить всё

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set ppDisp = Me.WebBrowser2.Object
End Sub

[ala-x]

И как поможет данное решение, которое работает при щелчке на ссылке и которое кстати подробно обсуждалось не так давно?

хм, не видел

Здесь надо обрабатывать событие открытия нового окна.

и точно ведь

Код: Выделить всё

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set ppDisp = Me.WebBrowser2.Object
End Sub

СПАСИБО!!! ПОМОГЛО не много криво но всё таки что то

[ala-x]

А можно сделать чтоб эти окна в WebBrowser2 закрывались сами???Потому что там часто порносайты бывают

[arvitaly]

В смысле сами кто должен определить порносайт там или нет? ЫЫЫ если только анализировать html на ключевые поля

[ala-x]

В смысле сами кто должен определить порносайт там или нет? ЫЫЫ если только анализировать html на ключевые поля

ну или задать размер WebBrowser2 а то окна его растягивают

[Xcode]

Сделай его невидимым.

[ala-x]

Сделай его невидимым.

Премного благодарен!!!!Спасибо!!!!

[dr.MIG]

Странное какое-то решение оказалось -- отобразить всплывающее окно во втором веб-браузере, чтобы потом его скрыть . Так может легче вообще не отображать его нигде, тогда и скрывать не придется.