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) Debug.Print URL If InStr(1, URL, "button://", vbTextCompare) > 0 Then '分析协议的代码 Cancel = True End If End Sub这样就成了你的协议,定成这样:button://xxxxxx后面的xxxxxx就自己指定一下吧.还需要写个分析指令的过程,不过这个应该比较简单,自己搞定吧....
Debug.Print URL
If InStr(1, URL, "button://", vbTextCompare) > 0 Then
'分析协议的代码
Cancel = True
End If
End Sub这样就成了你的协议,定成这样:button://xxxxxx后面的xxxxxx就自己指定一下吧.还需要写个分析指令的过程,不过这个应该比较简单,自己搞定吧....
NewWindow2之后也要用BeforeNavigate2获得网址
当然也可以实现用ICustomDoc挂接IDocHostUIHandler,把链接目标设置为javascript函数,通过window.external访问应用程序
http://blog.csdn.net/technofantasy/archive/2003/08/29/2964.aspx