使用shdocvw关闭弹出窗口？

我以前使用下面的代码以关闭VBA弹出窗口：使用shdocvw关闭弹出窗口？

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脚本错误。

这怎么解决？

来源

2011-09-22 Paulo Bueno

我是工作在类似类型的项目，我用SHDOCVW你可以找到它here

你也可以发现这个有用的，这是使用C＃，但你可以把它转换成VB点击Here

来源

2011-09-22 17:40:54

两者似乎的如我所说的使用NewWindow事件，不应该使用，因为'主'页面基于弹出窗口给出一个错误消息触发jscript，至于IE是IE，我不能让沉默。 –

使用shdocvw关闭弹出窗口？

回答

相关问题