VB的WebBrowser防止多iframe执行多次DocumentComplete事件

Private Sub WebBrowser1_DocumentComplete(ByVal pDispAs Object, URL As Variant)

        If Not (pDisp Is WebBrowser1.Object) Then Exit Sub

        If URL = "http://www.xyserver.com"Then

                MsgBox “这个是我们需要的网址：http://www.xyserver.com”

        End If
End Sub

-----------------------------以上代码可防止多iframe执行多次DocumentComplete事件------------------------------