易语言生成藏头诗源码

系统结构:geties,GetClassName,RegisterWindowMessage,SendMessageTimeout,ObjectFromLresult,FindWindowExA,

======窗口程序集1
           |  |
           |  |------ geties
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _选择框2_被单击
           |  |
           |  |------ _选择框3_被单击
           |  |
           |  |------ _选择框4_被单击
           |  |
           |  |------ _单选框1_被单击
           |  |
           |  |------ _单选框2_被单击
           |  |
           |  |------ _超文本浏览框1_载入完毕
           |  |
           |  |------ _超文本浏览框1_已就绪
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   RegisterWindowMessage
           |  |
           |  |---[dll]------   SendMessageTimeout
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   FindWindowExA

调用的DLL命令:

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

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

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

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", "ObjectFromLresult", , 　
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象

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