易语言在外部浏览器加广告源码

系统结构:IE添加广告,取IE对象,取IE句柄,ObjectFromLresult,RegisterWindowMessageA,SendMessageTimeoutA,FindWindowExA,GetClassName,GetWindowTextA,

======窗口程序集1
           |  |
           |  |------ IE添加广告
           |  |
           |  |------ 取IE对象
           |  |
           |  |------ 取IE句柄
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   SendMessageTimeoutA
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindowTextA

调用的DLL命令:

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", "ObjectFromLresult"
    .参数 lRes
    .参数 IID, 字节集
    .参数 n
    .参数 pDispatch, 对象

.DLL命令 RegisterWindowMessageA, 整数型, , "RegisterWindowMessageA"
    .参数 消息文本, 文本型

.DLL命令 SendMessageTimeoutA, , , "SendMessageTimeoutA"
    .参数 hwnd
    .参数 msg
    .参数 wParam
    .参数 lParam
    .参数 fuFlags
    .参数 uTimeout
    .参数 lpdwResult, , 传址

.DLL命令 FindWindowExA, 整数型
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 整数型
    .参数 lpsz2, 整数型

.DLL命令 GetClassName, , , "GetClassNameA"
    .参数 h, 整数型
    .参数 t, 文本型, 传址
    .参数 n, 整数型

.DLL命令 GetWindowTextA, 整数型, "user32.dll", "GetWindowTextA", 公开, 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）　复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 文本, 文本型, 传址, 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 文本长度, 整数型, , lp缓冲区的长度;