我想用ｖｂ做一个小型触屏系统，请问怎样才能去除链接时弹出的广告页呢？急，在线等。。。

Question

这个系统很简单，其实也就是做一个浏览器，可是我不知道怎样才能去除打开网页时弹出的广告页。。各位有什么好的代码吗？？？我急啊！！在线等待哦。

Answer 1

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1Private Sub Form_Load()
    Set Web_V1 = WebBrowser1.Object
      WebBrowser1.Navigate2 "http://www.applevb.com/"
End SubPrivate Sub Form_Unload(Cancel As Integer)
    End
End SubPrivate 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
    WebBrowser1.Navigate URL
End Sub
代码是用来关闭弹出的窗口

Answer 2

楼上的代码不行会使主窗口跳转到弹出窗口的URL，不信试试。

Answer 3

http://expert.csdn.net/Expert/topic/2195/2195537.xml?temp=.4863703

Answer 4

我在楼上提供的那页里看过了，不行呀！！
用他的办法，
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)    Cancel = True
End Sub
是可以屏蔽广告，但同时也屏蔽了其它的链接呀！！这样不好