易语言超强的终止程序进程源码例程

系统结构:枚举窗口句柄,API_投递消息,API_获得窗口关联进程ID,API_取进程快照,API_枚举父窗口,API_快照中获取进程列表,API_遍历快照中进程列表,API_关闭内核对象,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 枚举窗口句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_投递消息
           |  |
           |  |---[dll]------   API_获得窗口关联进程ID
           |  |
           |  |---[dll]------   API_取进程快照
           |  |
           |  |---[dll]------   API_枚举父窗口
           |  |
           |  |---[dll]------   API_快照中获取进程列表
           |  |
           |  |---[dll]------   API_遍历快照中进程列表
           |  |
           |  |---[dll]------   API_关闭内核对象

调用的DLL命令:

.DLL命令 API_投递消息, 整数型, "user32", "PostMessageA", , 将一条消息投递到指定窗口的消息队列。投递的消息会在Windows事件处理过程中得到处理。在那个时候，会随同投递的消息调用指定窗口的窗口函数。特别适合那些不需要立即处理的窗口消息的发送  如消息投递成功，则返回TRUE（非零）。会设置GetLastError
    .参数 hwnd, 整数型, , 接收消息的那个窗口的句柄。如设为HWND_BROADCAST，表示投递给系统中的所有顶级窗口。如设为零，表示投递一条线程消息（参考PostThreadMessage）
    .参数 wMsg, 整数型, , 消息标识符
    .参数 wParam, 整数型, , 具体由消息决定
    .参数 lParam, 整数型, , 具体由消息决定;

.DLL命令 API_获得窗口关联进程ID, 整数型, "user32", "GetWindowThreadProcessId", , ;    获取与指定窗口关联在一起的一个进程和线程标识符  拥有窗口的线程的标识符
    .参数 hwnd, 整数型, , 指定窗口句柄;
    .参数 lpdwProcessId, 整数型, 传址, 指定一个变量，用于装载拥有那个窗口的一个进程的标识符

.DLL命令 API_取进程快照, 整数型, , "CreateToolhelp32Snapshot", , CreateToolhelp32Snapshot
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 API_枚举父窗口, 整数型, "user32.dll", "EnumWindows", , 枚举窗口列表中的所有父窗口（顶级和被所有窗口）  非零表示成功，零表示失败
    .参数 函数指针, 子程序指针, , 指向为每个子窗口都调用的一个函数的指针。用AddressOf运算符获得函数在标准模式下的地址
    .参数 自定义数值, 整数型, , 在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的;

.DLL命令 API_快照中获取进程列表, 整数型, , "Process32First", , Process32First
    .参数 hSnapShot, 整数型
    .参数 uProcess, 进程信息

.DLL命令 API_遍历快照中进程列表, 整数型, , "Process32Next", , Process32Next
    .参数 hSnapShot, 整数型
    .参数 uProcess, 进程信息

.DLL命令 API_关闭内核对象, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;