易语言反黄检测源码

系统结构:根据窗口句柄取进程名,取id,API_取进程ID,API_寻找顶级窗口,取进程线程标识符_,创建系统进程快照,取快照中第一个进程信息,取快照中下一个进程信息,关闭内核对象_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 根据窗口句柄取进程名
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 取id
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_取进程ID
           |  |
           |  |---[dll]------   API_寻找顶级窗口
           |  |
           |  |---[dll]------   取进程线程标识符_
           |  |
           |  |---[dll]------   创建系统进程快照
           |  |
           |  |---[dll]------   取快照中第一个进程信息
           |  |
           |  |---[dll]------   取快照中下一个进程信息
           |  |
           |  |---[dll]------   关闭内核对象_

调用的DLL命令:

.DLL命令 API_取进程ID, 整数型, "user32", "GetWindowThreadProcessId", , 通过窗口句柄获取进程ID
    .参数 窗口句柄, 整数型, , 要获取其进程ID的窗口的句柄
    .参数 进程ID, 整数型, 传址, 用于装载获取到的进程ID的变量

.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$(rttitle, cnt), 0, "RTMain title";

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

.DLL命令 创建系统进程快照, 整数型, , "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型, , 获取系统进程列表或获取当前进程快照时可以设为0 

.DLL命令 取快照中第一个进程信息, 整数型, , "Process32First"
    .参数 hSnapshot, 整数型, , 快照返回的句柄
    .参数 lppe, PROCESSENTRY32

.DLL命令 取快照中下一个进程信息, 整数型, , "Process32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

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