Question

VB中webbrowser加载的页面，通过多个途径打开，如默认浏览器，webbrowser2等

VB的form中，webbrowser1加载一网页文件，该文件包含多个超链接，形式如：<a href=" http://hi.baidu.com" target=_blank>空间-新窗口</a><a href="MyLink:// http://baike.baidu.com" target=_blank>百科</a> 需要实现的功能：当点击以http开头的地址有target=_blank属性时，则在默认浏览器中打开，当点击以MyLink://开头的地址有target=_blank属性时，则在webbrowser2中打开 这个功能自己摸索了几天，一点结果都没有，恳请各位帮下忙，万分感激@！！！

Answer 1

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = True
Dim srcURL
Dim sss
Dim newURL
sss = WebBrowser1.document.activeElement.href
newURL = Mid(sss, 9) '从第三位开始截取
MsgBox newURL
If Left(newURL, 4) <> "http" Then
ShellExecute 0&, "Open", sss, "", App.Path, 1
Else
Set ppDisp = WebBrowser2.Application
WebBrowser2.Navigate2 newURL
End If
'屏蔽脚本错误
WebBrowser1.Silent = True
WebBrowser2.Silent = TrueEnd Sub