易语言HTML列表源码

系统结构:去浏览器边框,去浏览器滚动条,取IES句柄,取IES对象,FindWindowEx,GetClassName,RegisterWindowMessage,SendMessageTimeOut,RegisterWindowMessageA,SendMessageTimeoutA,ObjectFromLresult2,GetWindowRect,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮4_被单击
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 去浏览器边框
           |  |
           |  |------ 去浏览器滚动条
           |  |
           |  |------ 取IES句柄
           |  |
           |  |------ 取IES对象
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   RegisterWindowMessage
           |  |
           |  |---[dll]------   SendMessageTimeOut
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   SendMessageTimeoutA
           |  |
           |  |---[dll]------   ObjectFromLresult2
           |  |
           |  |---[dll]------   GetWindowRect

调用的DLL命令:

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hwnd, 整数型
    .参数 child, 整数型
    .参数 class, 整数型
    .参数 caption, 整数型

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA"
    .参数 窗口句柄, 整数型
    .参数 缓冲区, 文本型, 传址
    .参数 缓冲区长度, 整数型

.DLL命令 RegisterWindowMessage, 整数型, , "RegisterWindowMessageA"
    .参数 msg, 文本型

.DLL命令 SendMessageTimeOut, 整数型, "user32.dll", "SendMessageTimeoutA"
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 整数型
    .参数 ext1, 整数型
    .参数 ext2, 整数型
    .参数 lres, 整数型, 传址

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

.DLL命令 SendMessageTimeoutA, 整数型, , , , [彬]泪闯天涯增加
    .参数 MSG, 整数型
    .参数 hwnd, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型
    .参数 fuFlags, 整数型
    .参数 uTimeout, 整数型
    .参数 lpdwResult, 整数型, 传址

.DLL命令 ObjectFromLresult2, 整数型, "OLEACC.DLL", "ObjectFromLresult", , [彬]泪闯天涯增加
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_