易语言枚举IE插件源码

易语言枚举IE插件源码

.版本 2
.支持库 iext

.程序集 窗口程序集1

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

枚举IE插件 ()

.子程序 枚举IE插件

列表框_插件.全部删除 ()
BHO ()
ActiveX插件 ()

.子程序 ActiveX插件
.局部变量 输出值, 类型_枚举注册表, , "0"
.局部变量 部_循环次数, 整数型
.局部变量 部_循环计次, 整数型
.局部变量 键值, 字节集
.局部变量 索引, 整数型

EC_枚举注册表 (2, “Software\Microsoft\Windows\CurrentVersion\Ext\Stats”, 假, 输出值, &回调2)
处理事件 ()
部_循环次数 ＝ 取数组成员数 (输出值)
.计次循环首 (部_循环次数, 部_循环计次)
    索引 ＝ 列表框_插件.插入表项 (, “ActiveX插件”, , , , )
    列表框_插件.置标题 (索引, 2, 取文本注册项 (1, “CLSID\” ＋ 输出值 [部_循环计次].项目路径 ＋ “InprocServer32\”, ))
    列表框_插件.置标题 (索引, 3, 输出值 [部_循环计次].项目路径)
    列表框_插件.置标题 (索引, 1, 取文本注册项 (1, “CLSID\” ＋ 输出值 [部_循环计次].项目路径 ＋ “”, ))
.计次循环尾 ()

.子程序 回调2
.参数 参数_枚举数量, 整数型



.子程序 插件回调
.参数 参数_枚举数量, 整数型



.子程序 BHO
.局部变量 输出值, 类型_枚举注册表, , "0"
.局部变量 部_循环次数, 整数型
.局部变量 部_循环计次, 整数型
.局部变量 键值, 字节集
.局部变量 索引, 整数型

EC_枚举注册表 (3, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\BROWSER HELPER OBJECTS”, 假, 输出值, &插件回调)
处理事件 ()
部_循环次数 ＝ 取数组成员数 (输出值)
.计次循环首 (部_循环次数, 部_循环计次)
    索引 ＝ 列表框_插件.插入表项 (, “浏览器BHO插件”, , , , )
    列表框_插件.置标题 (索引, 3, 输出值 [部_循环计次].项目路径)
    列表框_插件.置标题 (索引, 2, 取文本注册项 (1, “CLSID\” ＋ 输出值 [部_循环计次].项目路径 ＋ “InprocServer32\”, ))
    列表框_插件.置标题 (索引, 1, 取文本注册项 (1, “CLSID\” ＋ 输出值 [部_循环计次].项目路径 ＋ “”, ))
.计次循环尾 ()

@易语言入门教程