易语言取本程序线程源码

系统结构:子程序1,CreateToolhelp32Snapshot,GetWindowThreadProcessId,Thread32First,Thread32Next,CloseHandle,OpenThread,GetCurrentThreadId,TerminateThread,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 子程序1
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   Thread32First
           |  |
           |  |---[dll]------   Thread32Next
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   OpenThread
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   TerminateThread

调用的DLL命令:

.DLL命令 CreateToolhelp32Snapshot, 整数型, "KERNEL32.DLL", "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 GetWindowThreadProcessId, 整数型, "user32", "GetWindowThreadProcessId"
    .参数 hwnd, 整数型
    .参数 lpdwProcessId, 整数型, 传址

.DLL命令 Thread32First, 整数型, "KERNEL32.DLL", "Thread32First"
    .参数 hSnapshot, 整数型
    .参数 lpte, THREADENTRY32

.DLL命令 Thread32Next, 整数型, "KERNEL32.DLL", "Thread32Next"
    .参数 hSnapshot, 整数型
    .参数 lpte, THREADENTRY32

.DLL命令 CloseHandle, , "Kernel32"
    .参数 hPass, 整数型

.DLL命令 OpenThread, 整数型, "kernel32.dll", "OpenThread"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 GetCurrentThreadId, 整数型, "kernel32", "GetCurrentThreadId"

.DLL命令 TerminateThread, 整数型, "kernel32", "TerminateThread"
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型