закрыть всплывающее окно с помощью shdocvw?

Question

Я использовал для закрытия всплывающих окон в VBA, используя следующий код:

    Dim k As New shdocvw.ShellWindows   ' close menu window
    Dim c As WebBrowser
    For Each c In k
    If c.LocationURL = "http://specificsite.com/x.html" Then c.Quit()
    Next

Вы видите, я должен проверить, было ли открыто всплывающее окно, а затем закройте его.

Я перешел на VB.NET e2010, и он не работает.

Я нашел, как обрабатывать события и использовать NewWindow для отмены открытия всплывающего окна.

К сожалению, отмена вместо закрытия после открытия приводит к ошибке сценария JavaScript на главной странице.

Как это можно решить?

Answer 1

Я работал над подобным проектом, который я использовал shdocvw, вы можете найти его здесь

Вы также можете найти этот полезный проект, использующий c #, но вы можете конвертировать его в VBНажмите Здесь