蜘蛛多线程模块易语言源码

系统结构:蜘蛛_创建线程,蜘蛛_创建远程线程,蜘蛛_运行线程,蜘蛛_暂停线程,蜘蛛_退出线程,蜘蛛_关闭线程句柄,蜘蛛_强制结束线程,蜘蛛_取线程返回值,蜘蛛_创建临界区,蜘蛛_删除临界区,蜘蛛_进入临界区,蜘蛛_离开临界区,蜘蛛_取当前线程ID,API_创建线程,API_创建远程线程,API_启动线程,API_挂起线程,API_退出当前线程,API_终止任意线程,API_取线程退出码,API_关闭线程句柄,API_创建临界区,API_删除临界区,API_进入临界区,API_离开临界区,API_取当前线程ID,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 蜘蛛_创建线程
           |  |
           |  |------ 蜘蛛_创建远程线程
           |  |
           |  |------ 蜘蛛_运行线程
           |  |
           |  |------ 蜘蛛_暂停线程
           |  |
           |  |------ 蜘蛛_退出线程
           |  |
           |  |------ 蜘蛛_关闭线程句柄
           |  |
           |  |------ 蜘蛛_强制结束线程
           |  |
           |  |------ 蜘蛛_取线程返回值
           |  |
           |  |------ 蜘蛛_创建临界区
           |  |
           |  |------ 蜘蛛_删除临界区
           |  |
           |  |------ 蜘蛛_进入临界区
           |  |
           |  |------ 蜘蛛_离开临界区
           |  |
           |  |------ 蜘蛛_取当前线程ID
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_创建线程
           |  |
           |  |---[dll]------   API_创建远程线程
           |  |
           |  |---[dll]------   API_启动线程
           |  |
           |  |---[dll]------   API_挂起线程
           |  |
           |  |---[dll]------   API_退出当前线程
           |  |
           |  |---[dll]------   API_终止任意线程
           |  |
           |  |---[dll]------   API_取线程退出码
           |  |
           |  |---[dll]------   API_关闭线程句柄
           |  |
           |  |---[dll]------   API_创建临界区
           |  |
           |  |---[dll]------   API_删除临界区
           |  |
           |  |---[dll]------   API_进入临界区
           |  |
           |  |---[dll]------   API_离开临界区
           |  |
           |  |---[dll]------   API_取当前线程ID

调用的DLL命令:

.DLL命令 API_创建线程, 整数型, "kernel32.dll", "CreateThread", , 在当前进程内创建一条线程
    .参数 继承属性, 整数型, , 值：0
    .参数 堆栈大小, 整数型, , 如果为0,那么线程的堆栈大小和主线程使用的大小相同
    .参数 执行子程序, 子程序指针
    .参数 传递参数, 整数型
    .参数 线程状态, 整数型, , 设置线程被创建后的状态,如果为0表示,创建后立即运行,如果为4,表示线程被创建后处于挂起状态。
    .参数 线程ID, 整数型, 传址, 提供一个整数型变量，用来接收创建成功后的线程ID.线程ID在系统范围内是唯一的.如果不提供，请置0

.DLL命令 API_创建远程线程, 整数型, "kernel32.dll", "CreateRemoteThread", , 在目标进程(非当前进程)内创建一条线程
    .参数 进程句柄, 整数型, , 将要创建线程的目标进程句柄
    .参数 继承属性, 整数型, , 值：0
    .参数 堆栈大小, 整数型, , 如果为0,那么线程的堆栈大小和主线程使用的大小相同
    .参数 执行子程序, 子程序指针
    .参数 传递参数, 整数型
    .参数 线程状态, 整数型, , 设置线程被创建后的状态,如果为0表示,创建后立即运行,如果为4,表示线程被创建后处于挂起状态。
    .参数 线程ID, 整数型, 传址, 提供一个整数型变量，用来接收创建成功后的线程ID.线程ID在系统范围内是唯一的.如果不提供，请置0

.DLL命令 API_启动线程, 整数型, "Kernel32.dll", "ResumeThread"
    .参数 线程句柄, 整数型

.DLL命令 API_挂起线程, 整数型, "Kernel32.dll", "SuspendThread"
    .参数 线程句柄, 整数型

.DLL命令 API_退出当前线程, 整数型, "Kernel32.dll", "ExitThread", , 成功则返回非零值，零表示失败。
    .参数 线程退出码, 整数型, , 线程的退出码，可以使用 API_取线程退出码 函数获取此退出码。

.DLL命令 API_终止任意线程, 整数型, "Kernel32.dll", "TerminateThread", , 成功则返回非零值，零表示失败。此函数官方建议,非特殊情况不要使用.
    .参数 线程句柄, 整数型, , 将要被关闭的线程句柄
    .参数 线程退出码, 整数型, , 线程的退出码，可以使用 API_取线程退出码 函数获取此退出码。

.DLL命令 API_取线程退出码, 整数型, "Kernel32.dll", "GetExitCodeThread"
    .参数 线程句柄, 整数型, , 想获取退出代码的一个线程的句柄
    .参数 线程退出码, 整数型, 传址, 用于装载线程退出代码的一个长整数变量。如线程尚未中断，则设为常数259

.DLL命令 API_关闭线程句柄, 整数型, "kernel32.dll", "CloseHandle", , , 关闭一个内核对象，非零表示成功，零表示失败。会设置GetLastError
    .参数 线程句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 API_创建临界区, 整数型, "kernel32.dll", "InitializeCriticalSection"
    .参数 许可证结构, 多线程临界区, 传址

.DLL命令 API_删除临界区, 整数型, "kernel32.dll", "LeaveCriticalSection"
    .参数 临界区结构, 多线程临界区, 传址

.DLL命令 API_进入临界区, , "kernel32.dll", "EnterCriticalSection", , 进入许可区
    .参数 lpCriticalSection, 多线程临界区, 传址

.DLL命令 API_离开临界区, , "kernel32.dll", "LeaveCriticalSection", , 退出许可区
    .参数 lpCriticalSection, 多线程临界区, 传址

.DLL命令 API_取当前线程ID, 整数型, "kernel32.dll", "GetCurrentThreadId", , ,