vb浏览器打开出现错误，请大神帮忙看看！ - 编程论坛

#2

wube2013-01-17 17:47

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

只有本站会员才能查看附件，请登录

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

只有本站会员才能查看附件，请登录

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

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

#3

一键游2013-01-30 10:12

以下是引用wube在2013-1-17 17:47:55的发言：

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

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

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

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

谢谢大哥我搞定了

#4

klsw2013-05-06 15:05

回复 3楼一键游

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

#5

风吹过b2013-05-06 18:34

我上次写的代码好像是这样的,忘了丢哪里了.好像帝国远征那个辅助里用到的.

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
set WebBrowser1.object = ppdisp
End Sub

可以试试这种的.

#6

klsw2013-05-06 21:55

回复 5楼风吹过b

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

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

#7

风吹过b2013-05-07 08:40

刚差了一下，我记反了。

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

#8

klsw2013-05-07 15:28

回复 7楼风吹过b

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

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

#9

风吹过b2013-05-07 17:52

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

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

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

#10

klsw2013-05-12 16:17

回复 7楼风吹过b

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

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

#11

一键游2013-07-13 21:19

我没用vb搞了