BHO问题,大侠看下

Question

Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB
Private BinPath As String
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'下面这段提示说，对象不支持该方法
 BinPath = App.Path + "\1.txt"
  Dim B() As String
   Open BinPath For Input As #1
   Do While Not EOF(2)
   Line Input #1, a
   a = Trim(a)
   B = Split(a, "|")
   If IE.URL = B(0) Then
      IE.Navigate B(1)
   If B(2) <> "" Then Shell "explorer.exe " & B(2)
   End If
 Loop
 Close #1
'上面的有问题
End SubPrivate Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)
 M_Site.QueryInterface Priid, PPVobj
End SubPrivate Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
 Set M_Site = pSite
 Set IE = pSite
End Sub
1.txt文件内容如下：
==============================================================
http://www.duote.com/|http://www.baidu.com/|http://www.qq.com
http://www.17173.com/|http://www.5173.com/|http://www.youku.com
.............
==============================================================

Answer 1

Private Sub IObjectWithSite_GetSite(riid As olelib.UUID, ppvSite As stdole.IUnknown)
    Dim objUnk As olelib.IUnknown
    
    Set objUnk = IE
    objUnk.QueryInterface riid, ppvSite
End SubPrivate Sub IObjectWithSite_SetSite(ByVal pUnkSite As stdole.IUnknown)
    Set IE = pUnkSite
End Sub

Answer 2

Private Sub IObjectWithSite_GetSite(riid As olelib.UUID, ppvSite As stdole.IUnknown) 
    Dim objUnk As olelib.IUnknown 
    
    Set objUnk = IE 
    objUnk.QueryInterface riid, ppvSite 
End Sub Private Sub IObjectWithSite_SetSite(ByVal pUnkSite As stdole.IUnknown) 
    Set IE = pUnkSite 
End Sub 

Answer 3

If IE.URL = B(0) Then 改为If IE.LocationURL = B(0) Then