易语言API调试测试源码

系统结构:debug,WaitForDebugEvent,ContinueDebugEvent,VirtualProtectEx,CloseHandle,CreateProcessA,GetStartupInfoA,ResumeThread,TerminateProcess,GetThreadContext,SetThreadContext,WriteProcessMemory,GetLastError,SuspendThread,ReadProcessMemory,

======窗口程序集1
           |  |
           |  |------ debug
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WaitForDebugEvent
           |  |
           |  |---[dll]------   ContinueDebugEvent
           |  |
           |  |---[dll]------   VirtualProtectEx
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CreateProcessA
           |  |
           |  |---[dll]------   GetStartupInfoA
           |  |
           |  |---[dll]------   ResumeThread
           |  |
           |  |---[dll]------   TerminateProcess
           |  |
           |  |---[dll]------   GetThreadContext
           |  |
           |  |---[dll]------   SetThreadContext
           |  |
           |  |---[dll]------   WriteProcessMemory
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   SuspendThread
           |  |
           |  |---[dll]------   ReadProcessMemory

调用的DLL命令:

.DLL命令 WaitForDebugEvent, 逻辑型, "kernel32", "WaitForDebugEvent"
    .参数 lpdebug_event, DbgEvent
    .参数 dwtimeout, 整数型

.DLL命令 ContinueDebugEvent, 逻辑型, "kernel32", "ContinueDebugEvent"
    .参数 dwProcessId, 整数型
    .参数 dwThreadId, 整数型
    .参数 fdwContinueStatus, 整数型

.DLL命令 VirtualProtectEx, 整数型, , "VirtualProtectEx", 公开
    .参数 要修改内存的进程句柄
    .参数 要修改内存的起始地址
    .参数 修改内存的字节
    .参数 修改后的内存属性
    .参数 修改前的内存属性的地址, , 传址

.DLL命令 CloseHandle, , , "CloseHandle", 公开
    .参数 ProcessHandle, 整数型

.DLL命令 CreateProcessA, 整数型, "kernel32.dll", "CreateProcessA"
    .参数 要执行的程序名, 整数型, , lpApplicationName，参见相关帮助
    .参数 要执行的命令行, 文本型, , lpCommandLine，参见相关帮助
    .参数 security特性参数1, 整数型, , lpProcessAttributes，参见相关帮助
    .参数 security特性参数2, 整数型, , lpThreadAttributes，参见相关帮助
    .参数 允许新进程继承当前进程的句柄, 整数型, , bInheritHandles，参见相关帮助
    .参数 参数1, 整数型, , dwCreationFlags，赋0即可
    .参数 环境指针, 整数型, , lpEnvironment，赋0即可
    .参数 新进程当前目录路径, 整数型, , lpCurrentDriectory，参见相关帮助
    .参数 创建进程时附加信息, STARTUPINFO, , lpStartupInfo，创建进程时附加信息
    .参数 新进程的进程和线程标识符, PROCESS_INFORMATION, , lpProcessInformation，参见相关帮助

.DLL命令 GetStartupInfoA, 整数型, "kernel32", "GetStartupInfoA", , 获取当前过程的启始信息
    .参数 启动信息, STARTUPINFO

.DLL命令 ResumeThread, 整数型, "kernel32", "ResumeThread", , 开始暂停的线索
    .参数 hThread, 整数型

.DLL命令 TerminateProcess, 整数型, "kernel32", "TerminateProcess", , 结束一个进程  非零表示成功，零表示失败。会设置GetLastError
    .参数 hProcess, 整数型, , 指定要中断的一个进程的句柄
    .参数 uExitCode, 整数型, , 进程的一个退出代码;

.DLL命令 GetThreadContext, 逻辑型, "kernel32", "GetThreadContext"
    .参数 hThreadId, 整数型
    .参数 线程环境, context_

.DLL命令 SetThreadContext, , "SetThreadContext", "kernel32"

.DLL命令 WriteProcessMemory, 整数型, , "WriteProcessMemory", 公开
    .参数 目标进程, 整数型
    .参数 地址, 整数型
    .参数 写入数据, 字节型, 传址
    .参数 写入长度, 整数型
    .参数 实际写入长度, 整数型

.DLL命令 GetLastError, 整数型

.DLL命令 SuspendThread, 整数型, , "SuspendThread"
    .参数 线程句柄, 整数型

.DLL命令 ReadProcessMemory, 整数型, , "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节型, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型, 传址