[IT]VB语言解决web引用弹出浏览器窗口与js错误警告提示

我们在使用VB语言的webbrowser控件来引用网页的时候，会遇到一个令人头疼的问题，一些网页的a标签中写的是新窗口打开，也就是target="blank",那么这种情况在我们编译的软件中打开网页链接就会跳出网页框架，而且往往调用的是用户的默认浏览器，这样会给我们带来很大的不便，那么我们该如何解决这种情况的问题的。

一、解决浏览器跳出的问题

这个只需要在代码中加入如下段：

Private Sub Web_DownloadBegin()
Web.Silent = True
End Sub
Private Sub Web_DownloadComplete()
Web.Silent = True
End Sub

当然，这里的web是重命名过的，注意替换成你所需要的。

二、解决js错误弹窗警告问题

很多网页由于特效要求，对ie浏览器的兼容性不好，VB自然调用的浏览器就是默认的ie浏览器，那么在运行过程中就会遇到弹窗提示问题，那么怎么屏蔽掉这个弹窗呢？

也是需要一段代码

Private Sub Form_Load()
Set Web_V1 = Web.Object
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
Web.Navigate URL
End Sub

这样，两个问题就搞定了。