易语言高级信息框模块源码

系统结构:高级信息框_线程版,处理线程,模块_建立线程,模块_运行线程,模块_中止线程,模块_线程是否结束,API_MessageBox,API_寻找顶级窗口,API_寻找子窗口,API_取得窗口信息,API_SetWindowLong,API_创建线程,API_销毁线程,API_执行线程,API_取中止线程退出代码,API_取前台窗口,API_取得类名称,API_取窗口标题,API_设置窗口标题,API_发送消息,API_清除窗口,SetTimer,API_判断窗口句柄,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 高级信息框_线程版
           |  |
           |  |------ 处理线程
           |  |
           |  |------ _取窗口标题
           |  |
           |  |------ 模块_建立线程
           |  |
           |  |------ 模块_运行线程
           |  |
           |  |------ 模块_中止线程
           |  |
           |  |------ 模块_线程是否结束
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_MessageBox
           |  |
           |  |---[dll]------   API_寻找顶级窗口
           |  |
           |  |---[dll]------   API_寻找子窗口
           |  |
           |  |---[dll]------   API_取得窗口信息
           |  |
           |  |---[dll]------   API_SetWindowLong
           |  |
           |  |---[dll]------   API_创建线程
           |  |
           |  |---[dll]------   API_销毁线程
           |  |
           |  |---[dll]------   API_执行线程
           |  |
           |  |---[dll]------   API_取中止线程退出代码
           |  |
           |  |---[dll]------   API_取前台窗口
           |  |
           |  |---[dll]------   API_取得类名称
           |  |
           |  |---[dll]------   API_取窗口标题
           |  |
           |  |---[dll]------   API_设置窗口标题
           |  |
           |  |---[dll]------   API_发送消息
           |  |
           |  |---[dll]------   API_清除窗口
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   API_判断窗口句柄

调用的DLL命令:

.DLL命令 API_MessageBox, 整数型, "user32", "MessageBoxA", , 建立消息框窗体　
    .参数 hwnd, 整数型
    .参数 lpText, 文本型
    .参数 lpCaption, 文本型
    .参数 wType, 整数型

.DLL命令 API_寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）　找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&, cnt&Dim rttitle As  * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left, 0, "RTMain title";

.DLL命令 API_寻找子窗口, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口　找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
    .参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
    .参数 欲搜索的类名1, 文本型, , 欲搜索的类名。零表示忽略
    .参数 欲搜索的类名2, 文本型, , 欲搜索的类名。零表示忽略;

.DLL命令 API_取得窗口信息, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息　由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 API_创建线程, 整数型, , "CreateThread", , 生成线程成功，CreateThread函数返回新线程的句柄。否则返回NULL。线程执行完毕后自动退出（除非进入的是循环）。
    .参数 lpThreadAttributes, 整数型, , 线程的security属性，缺省为0
    .参数 dwStackSize, 整数型, , 线程的堆栈大小，为0时与进程相同
    .参数 lpStartAddress, 子程序指针, , 线程函数的起始地址
    .参数 lpParameter, 整数型, , 传递线程的上下文,可以传递一个整数型参数。
    .参数 dwCreationFlags, 整数型, , 0：创建线程后立即启动，相反的是标志位CREATE_SUSPENDED，这样您需要稍后显示地让该线程运行（可设为－1）
    .参数 lpThreadId, 整数型, 传址, 内核给新生成的线程分配的线程ID

.DLL命令 API_销毁线程, , , "TerminateThread", , 强行中止线程。
    .参数 hThread, 整数型, , CreateThread函数返回的线程句柄
    .参数 dwExitCode, 整数型

.DLL命令 API_执行线程, , , "ResumeThread", , 执行挂起的线程，执行完毕后线程自动退出
    .参数 线程句柄, 整数型, , CreateThread函数返回的线程句柄

.DLL命令 API_取中止线程退出代码, 整数型, "kernel32", "GetExitCodeThread", , 获取一个已中止线程的退出代码  非零表示成功，零表示失败。会设置GetLastError
    .参数 线程句柄, 整数型, , 想获取退出代码的一个线程的句柄
    .参数 退出代码, 整数型, 传址, 用于装载线程退出代码的一个长整数变量。如线程尚未中断，则设为常数STILL_ACTIVE;

.DLL命令 API_取前台窗口, 整数型, "user32", "GetForegroundWindow", , 获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口　前台窗口的句柄

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

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

.DLL命令 API_设置窗口标题, 整数型, "user32", "SetWindowTextA", , 设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）　非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 要设置文字的窗口的句柄
    .参数 窗口标题, 文本型, , 要设到hwnd窗口中的文字;

.DLL命令 API_发送消息, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 API_清除窗口, 整数型, "user32", "DestroyWindow", , 破坏（即清除）指定的窗口以及它的所有子窗口（在vb里使用：用处不大。原文：it ;    is unlikely to be of much use.）　非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲清除的窗口的句柄;

.DLL命令 SetTimer, 整数型, , "SetTimer"
    .参数 hwnd, 整数型
    .参数 event, 整数型
    .参数 out, 整数型
    .参数 lpTimerFunc, 整数型

.DLL命令 API_判断窗口句柄, 整数型, "user32", "IsWindow", , 判断一个窗口句柄是否有效　非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 待检查窗口的句柄;