使用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你可以找到它here

你也可以找到这个有用的，这是使用c＃，但你可以将它转换为VB点击Here