借助易语言InternetExplorer事件和ShellWindows事件1 实现置外部IE广告（假BHO）

声明 本例子 分两个部分 一个是摘抄 彬哥的 一部分摘抄一个老鸟的（名字给忘记了）

.版本 2
.支持库 shdocvw
.支持库 WebBrowser
.支持库 spec

.程序集 窗口程序集1
.程序集变量 a, 对象
.程序集变量 IE窗口, InternetExplorer
.程序集变量 shell, ShellWindows

.子程序 __启动窗口_创建完毕

shell.挂接事件 (ShellWindows事件1)
a ＝ IE窗口.GetDocument ()
IE窗口.挂接事件 (InternetExplorer事件)

.子程序 增加广告
.参数 网页文档, 对象
.局部变量 广告对象, 对象
.局部变量 网页源码, 文本型

广告对象 ＝ 网页文档.对象型方法 (“getElementById”, “myad”)
.如果真 (广告对象.是否为空 () ＝ 假)
    返回 ()
.如果真结束
网页源码 ＝ 网页文档.读对象型属性 (“body”, ).读文本属性 (“innerHTML”, )
网页源码 ＝ #常量_广告代码 ＋ 网页源码

.子程序 _时钟1_周期事件
.局部变量 n, 整数型
.局部变量 Path, 文本型

n ＝ shell.Count － 1
调试输出 (n)
IE窗口.获取 (shell.Item (n))
.如果真 (IE窗口.是否为空 ())
    信息框 (“获取IE窗口失败！”, 0, )
    返回 ()
.如果真结束

输出调试文本 (IE窗口.LocationURL)
' ==========================================================
增加广告 (a)
' 输出调试文本 (Path)