易语言APIHOOK源码

系统结构:ApiHook,UnHook,OpenProcess,CloseHandle,CopyMemory,WriteProcessMemory,ReadProcessMemory,GetProcAddress,VirtualFreeEx,VirtualAllocEx,GetModuleHandleA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ ApiHook
           |  |
           |  |------ UnHook
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   WriteProcessMemory
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   VirtualFreeEx
           |  |
           |  |---[dll]------   VirtualAllocEx
           |  |
           |  |---[dll]------   GetModuleHandleA

调用的DLL命令:

.DLL命令 OpenProcess, 整数型, "kernel32"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwProcessId, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32"
    .参数 hObject, 整数型

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 字节型, 传址
    .参数 Source, 整数型, 传址
    .参数 Length, 整数型

.DLL命令 WriteProcessMemory, 整数型, "kernel32"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节型, 数组
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

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

.DLL命令 GetProcAddress, 整数型, "kernel32"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 VirtualFreeEx, 整数型, "kernel32"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 dwFreeType, 整数型

.DLL命令 VirtualAllocEx, 整数型, "kernel32"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型
    .参数 flProtect, 整数型

.DLL命令 GetModuleHandleA, 整数型, "kernel32"
    .参数 lpModuleName, 文本型