易语言拦截网页弹窗源码

系统结构:documentFromDOM,IsIEServerWindow,EnumChildProc,API_ObjectFromLresult,API_RegisterWindowMessage,API_ZeroMemory,API_SendMessageTimeout,API_LocalSize,API_EnumChildWindows,API_GetClassName,API_CopyMemory,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _超文本浏览框1_即将打开新窗口
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ documentFromDOM
           |  |
           |  |------ _超文本浏览框1_载入完毕
           |  |
           |  |------ IsIEServerWindow
           |  |
           |  |------ EnumChildProc
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_ObjectFromLresult
           |  |
           |  |---[dll]------   API_RegisterWindowMessage
           |  |
           |  |---[dll]------   API_ZeroMemory
           |  |
           |  |---[dll]------   API_SendMessageTimeout
           |  |
           |  |---[dll]------   API_LocalSize
           |  |
           |  |---[dll]------   API_EnumChildWindows
           |  |
           |  |---[dll]------   API_GetClassName
           |  |
           |  |---[dll]------   API_CopyMemory

调用的DLL命令:

.DLL命令 API_ObjectFromLresult, 整数型, "OLEACC.DLL", "ObjectFromLresult", , 　
    .参数 lResult, 整数型
    .参数 riid, UUID, 传址
    .参数 wParam, 整数型
    .参数 ppvObject, 对象, 传址

.DLL命令 API_RegisterWindowMessage, 整数型, "user32", "RegisterWindowMessageA", , 获取分配给一个字串标识符的消息编号　&C000 到 &FFFF之间的一个消息编号。零意味着出错
    .参数 lpString, 文本型, , 注册消息的名字;  

.DLL命令 API_ZeroMemory, , "kernel32.dll", "RtlZeroMemory", , 将一块内存置零　
    .参数 Destination, UUID
    .参数 Length, 整数型

.DLL命令 API_SendMessageTimeout, 整数型, "user32", "SendMessageTimeoutA", , 向窗口发送一条消息。如窗口位于不同的线程中，则利用这个函数可以指定一个超时值，以便在另一个进程挂起的时候防止调用进程也永远挂起　成功时返回TRUE，失败时返回FALSE。会设置GetLastError
    .参数 hwnd, 整数型, , 要接收消息的一个窗口的句柄
    .参数 msg, 整数型
    .参数 wParam, 整数型, , 由消息决定
    .参数 lParam, 整数型, , 由消息决定
    .参数 fuFlags, 整数型, , 下述常数的一个或多个;SMTO_ABORTIFHUNG：如目标进程挂起，则函数立即返回;SMTO_BLOCK：除非函数返回，否则调用线程不能处理消息;SMTO_NORMAL：允许调用线程处理消息，同时保持函数继续执行
    .参数 uTimeout, 整数型, , 超时值，采用毫秒为单位
    .参数 lpdwResult, 整数型, 传址, 用于装载函数结果的一个变量;

.DLL命令 API_LocalSize, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小　
    .参数 hMem, UUID

.DLL命令 API_EnumChildWindows, 整数型, "user32", "EnumChildWindows", , 为指定的父窗口枚举子窗口　非零表示成功，零表示失败
    .参数 父窗口句柄, 整数型, , 欲枚举子窗口的父窗口的句柄
    .参数 函数指针, 整数型, , 为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址
    .参数 自定义值, 整数型, , 在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during enumeration. The meaning of this value is defined by the programmer.）;  

.DLL命令 API_GetClassName, 整数型, "user32", "GetClassNameA", , 为指定的窗口取得类名　以字节数表示的类名长度；排除最后的空中止字符。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获得类名的那个窗口的句柄
    .参数 缓冲区, 文本型, , 随同类名载入的缓冲区。预先至少必须分配nMaxCount+1个字符
    .参数 缓冲区长度, 整数型, , 由lpClassName提供的缓冲区长度;

.DLL命令 API_CopyMemory, , "kernel32", "RtlMoveMemory", , 　
    .参数 pDest, 整数型
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型