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