易语言完整挂机锁源码

系统结构:低级钩子回调函数,进程_进程名称取进程ID,进程_进程是否存在,进程_进程是否存在2,Api_设置钩子,Api_释放钩子,CallNextHookEx,外部_获得程序句柄,取创建32位帮助工具快照_,关闭内核对象_,打开进程_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 低级钩子回调函数
           |  |
           |  |------ 进程_进程名称取进程ID
           |  |
           |  |------ 进程_进程是否存在
           |  |
           |  |------ 进程_进程是否存在2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   Api_设置钩子
           |  |
           |  |---[dll]------   Api_释放钩子
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   外部_获得程序句柄
           |  |
           |  |---[dll]------   取创建32位帮助工具快照_
           |  |
           |  |---[dll]------   _第一个进程句柄
           |  |
           |  |---[dll]------   关闭内核对象_
           |  |
           |  |---[dll]------   _下一个进程句柄
           |  |
           |  |---[dll]------   打开进程_

调用的DLL命令:

.DLL命令 Api_设置钩子, 整数型, , "SetWindowsHookExA"
    .参数 HookType, 整数型
    .参数 pHookProc, 子程序指针
    .参数 hInstance, 整数型
    .参数 ThreadID, 整数型

.DLL命令 Api_释放钩子, 整数型, , "UnhookWindowsHookEx"
    .参数 hHook, 整数型

.DLL命令 CallNextHookEx, 整数型, , "CallNextHookEx"
    .参数 hHook, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 外部_获得程序句柄, 整数型, , "GetModuleHandleA"
    .参数 模块名, 整数型

.DLL命令 取创建32位帮助工具快照_, 整数型, "kernel32.dll", "CreateToolhelp32Snapshot", , 取进程信息
    .参数 标志, 整数型, , lFlags
    .参数 进程标识符, 整数型, , lProcessID

.DLL命令 _第一个进程句柄, 整数型, "KERNEL32.DLL", "Process32First"
    .参数 hSnapshot, 整数型
    .参数 lppe, _进程信息型1

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

.DLL命令 _下一个进程句柄, 整数型, "KERNEL32.DLL", "Process32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, _进程信息型1

.DLL命令 打开进程_, 整数型, "kernel32.dll", "OpenProcess", , 将句柄返回给过程对象
    .参数 进程对象, 整数型, , dwDesiredAccess
    .参数 继承句柄, 整数型, , bInheritHandle
    .参数 进程标识符, 整数型, , dwProcessId