易语言防程序被调试源码

系统结构:取系统进程列表_,特定目录,取模块路径,关闭自身进程,NtQuerySystemInformation,LocalAlloc,CopyMemory_SYSTEM_PROCESSES,LocalFree,WToM,LocalSize,CreateToolhelp32Snapshot,Module32First,获取特别文件夹位置_,从列表id取路径_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取系统进程列表_
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 特定目录
           |  |
           |  |------ 取模块路径
           |  |
           |  |------ 关闭自身进程
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NtQuerySystemInformation
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   CopyMemory_SYSTEM_PROCESSES
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   _取窗口进程ID
           |  |
           |  |---[dll]------   _终止进程
           |  |
           |  |---[dll]------   _打开进程
           |  |
           |  |---[dll]------   WToM
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Module32First
           |  |
           |  |---[dll]------   获取特别文件夹位置_
           |  |
           |  |---[dll]------   从列表id取路径_

调用的DLL命令:

.DLL命令 NtQuerySystemInformation, 整数型, "ntdll.dll"
    .参数 SystemInformationClass, 整数型
    .参数 SystemInformation, 整数型
    .参数 SystemInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址

.DLL命令 LocalAlloc, 整数型, "kernel32", "LocalAlloc"
    .参数 wFlags, 整数型
    .参数 wBytes, 整数型

.DLL命令 CopyMemory_SYSTEM_PROCESSES, , "kernel32", "RtlMoveMemory"
    .参数 Destination, SYSTEM_PROCESSES
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 LocalFree, 整数型, "kernel32", "LocalFree"
    .参数 hMem, 整数型

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

.DLL命令 _终止进程, 整数型, , "TerminateProcess"
    .参数 id
    .参数 a

.DLL命令 _打开进程, 整数型, "kernel32.dll", "OpenProcess"
    .参数 访问级别, 整数型, , 2035711完全访问
    .参数 子进程继承, 整数型, , 0为子进程继承
    .参数 进程ID, 整数型, , 要打开的进程标识

.DLL命令 WToM, 整数型, "kernel32.dll", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 整数型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 整数型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 LocalSize, 整数型, "kernel32", "LocalSize"
    .参数 hMem, SYSTEM_PROCESSES

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 Module32First, 整数型, , "Module32First"
    .参数 hsnap, 整数型
    .参数 mod, 模块信息

.DLL命令 获取特别文件夹位置_, 整数型, "shell32.dll", "SHGetSpecialFolderLocation"
    .参数 窗口句柄, 整数型, , hwndOwner
    .参数 文件夹位置, 整数型, , nFolder
    .参数 结构, 项目标识符列表_, 传址, pIdl

.DLL命令 从列表id取路径_, 整数型, "shell32.dll", "SHGetPathFromIDListA", , $(b)
    .参数 结构指针, 整数型, , pIdl
    .参数 路径, 文本型, 传址, pszPath