我用vb写个浏览器
打开一个新的网页出现错误


显示我这段代码出错代码如下：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub

虽没用过～但是从解释上来看～
WebBrowser1.Document 传回一个对象～

而WebBrowser1.Navigate2 第一个参数要的应该是字串～

推测中间要再用个变量做转换～
例如:
Set A = WebBrowser1.Document
B=A.activeElement.href
WebBrowser1.Navigate2 B

我先说没用过这控件喔～
只是依据型态做推测与法～

谢谢 大哥 我搞定了

能分享下代码吗？？同样的问题哟，还没解决。

我上次写的代码好像是这样的,忘了丢哪里了.好像 帝国远征 那个辅助 里用到的.
 
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True                           
set WebBrowser1.object = ppdisp
End Sub

可以试试这种的.

又出现450错误？求救！其他还要设置吗？

[ 本帖最后由 klsw 于 2013-5-6 22:01 编辑 ]

刚差了一下，我记反了。

Private Sub Web1_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error Resume Next
    Set ppDisp = WebBrowser2.Object              'webbrowser2 是一个新的窗口
End Sub

感谢老大及时回复。回家试试看行不？
另外还想问2个问题：
1、如何用VB屏蔽优酷、搜狐、奇艺等在线视频的广告？
2、VB窗口置顶了，如何让在VB里面的Webbrowser网页中点击下载出现的对话框始终保持在该窗口前面？（现在我的老是在当前窗口下面，每次要把该窗口移开才看得到）

[ 本帖最后由 klsw 于 2013-5-7 15:34 编辑 ]

1、如何用VB屏蔽优酷、搜狐、奇艺等在线视频的广告？
在每个链接被打开时，会触发 开始下载的事件，在这个事件里处理。
我没弄过。

2、VB窗口置顶了，如何让在VB里面的Webbrowser网页中点击下载出现的对话框始终保持在该窗口前面？（现在我的老是在当前窗口下面，每次要把该窗口移开才看得到）
如果是网页自己的 下载对话框，那估计没多大办法。只能findwindow ，然后提前，比较麻烦。
要么你就自己写 开始下载事件，然后在这个事件里自己处理文件下载。

都得靠你自己测试。没去用过。目前 没有测试环境了。WIN7，不想装VB6 了。

这样是可以了，但是也有一点问题。一些有声音的广告网页不会弹出来，但会出现声音。如何在不弹出网页的同时，禁止出现声音？
另外，如何用VB 实现清除IE缓存而不清除COOKIE？VB能实现自定义IE缓存地址吗？

[ 本帖最后由 klsw 于 2013-5-12 16:19 编辑 ]