ÔÚÏßµÈVB BHOÅжÏÍøÒ³ÍêÈ«¼ÓÔØ

Õý³£ÔÚWebBrowser1_DocumentCompleteÅжÏÈçÏÂ
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = "http://www.youku.com" Then
  If pDisp Is WebBrowser1.Object Then MsgBox "Ò³Ãæ¼ÓÔØÍê³É"
End If
End Sub

Èç¹ûÖ±½ÓÔÚWebBrowser1_DocumentCompleteʼþÖÐдmsgbox "Ò³Ãæ¼ÓÔØÍê³É" ¾Í»á³öÏÖ¶à´Îmsgbox

ÍøÉÏÕÒÔ­Òò˵ ijЩÍøÕ¾¶¼ÊǶà¸ö¿ò¼Üÿ¸ö¿ò¼ÜÏÂÔØÍê³É¶¼»Ø´¥·¢DocumentCompleteʼþ

µ«ÊÇÎÒÔÚVB дµÄBHOÖÐÓÃȴûÓÐ.object ÇëÎÊBHOÖÐÈçºÎÅжϰ¡£¿
¸¶´úÂëÈçÏÂ:
ÒýÓÃÁË Microsoft Internet Controls
Option Explicit
Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If IE.LocationURL = "http://www.youku.com" Then
  If pDisp Is IE.Object Then MsgBox "Ò³Ãæ¼ÓÔØÍê³É" 'ûÓÐobjectÇë¸ßÊÖ½â¾ö
End If

Private Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)
M_Site.QueryInterface Priid, PPVobj
End Sub

Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
Set M_Site = pSite
Set IE = pSite
End Sub
лл°¡

---

ÒýÓà Microsoft Internet Controls ºó¾ÍûÓÐÁËWebBrowser