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事件------------------------------
原文链接：https://www.f2er.com/vb/261402.html