借助易语言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)