能让webbrowser下的链接点击打开的时候,弹出网页不要用ie而改用chrome弹出么

能让webbrowser上的链接点击打开的时候,弹出网页不要用ie而改用chrome弹出么?
本帖最后由 clintonus 于 2011-10-18 14:29:27 编辑 能让webbrowser上弹出的网页不要用ie而改用chrome弹出么?
改默认浏览器显然没用的,试过了.
------最佳解决方案--------------------

引用:

大侠们 哪里有关于 拦截 从webbrowser里面弹出网页 的url 的资料?帮贴下,多谢了!!!

就那两行代码，都给你了，怕你不知道还专门用vb code引用起来了。。。。
------其他解决方案--------------------

引用:

能让webbrowser上弹出的网页不要用ie而改用chrome弹出么?
改默认浏览器显然没用的,试过了.

你在webbrowser中打开，那么默认都是交给webbrowser处理，所以它应该都是ie之类的浏览器打开了。
有个办法就是拦截url，然后自己调用chrome打开，在WebBrowser1_BeforeNavigate2处理。

cancel=true

shell "chome的exe文件的全路径 " & url,1

------其他解决方案--------------------

引用:

引用:
能让webbrowser上弹出的网页不要用ie而改用chrome弹出么?
改默认浏览器显然没用的,试过了.
你在webbrowser中打开，那么默认都是交给webbrowser处理，所以它应该都是ie之类的浏览器打开了。
有个办法就是拦截url，然后自己调用chrome打开，在WebBrowser1_BeforeNavigate2处理。

VB ……

还真的有招啊?我以为根本不可能.

拦截url 要学习下了.
多谢!
------其他解决方案--------------------
大侠们 哪里有关于 拦截 从webbrowser里面弹出网页 的url 的资料?帮贴下,多谢了!!!
------其他解决方案--------------------
我是把google放webbrowser里面了,然后我想在点击打开这些google的搜索结果的时候用chrome来打开而不是ie,因为chrome快.
------其他解决方案--------------------

引用:

就那两行代码，都给你了，怕你不知道还专门用vb code引用起来了。。。。
现在这样:

Private Sub Command1_Click()

WebBrowser1.Navigate "www.baidu.com"

End Sub


Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

Cancel = True

Shell "C:\chrome.exe " & URL, 1

End Sub

这个代码会使webbrowser1本身不访问("显示")任何网页,也就是我第一次按下command1的时候就直接用chrome打开网页了.但是我想要的效果是我在webbrowser1中用baidu.com搜索,只是那个搜索结果页面上的一个个结果链我要调用chrome打开,不知道要怎么改一下?
例子:我webbrowser1用百度搜索出"美国大使"的结果有100条,其中的具体的一条我是想用chrome打开的.但是前面的"调用百度搜索"这个过程,我不想用chrome,而是要用webbrowser1.
万分感谢!
------其他解决方案--------------------

引用:

引用:
就那两行代码，都给你了，怕你不知道还专门用vb code引用起来了。。。。
现在这样:
VB code


Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal p……

可以用if判断URL。
------其他解决方案--------------------

引用:

引用:
就那两行代码，都给你了，怕你不知道还专门用vb code引用起来了。。。。
现在这样:
VB code


Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal p……

要学会思考，你可以用msgbox url看看它的规律，那些链接的前缀一般都是固定的，这样加下判断就行了。