2

我曾经使用以下代码关闭 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 出现脚本错误。

如何解决？

4

1 回答 1

1

我正在从事与我使用 shdocvw 类似的项目，你可以在这里找到它

你也可以发现这个使用 c# 很有帮助，但你可以将它转换成 VB 点击这里

于 2011-09-22T17:40:54.917 回答