Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As 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事件------------------------------