易语言子程序地址保护源码

系统结构:消息框子程序,关CODE段写保护,VirtualProtectEx,OpenProcess,VirtualQueryEx,GetCurrentProcessId,CloseHandle,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 消息框子程序
           |  |
           |  |------ 关CODE段写保护
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   VirtualProtectEx
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   VirtualQueryEx
           |  |
           |  |---[dll]------   GetCurrentProcessId
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 VirtualProtectEx, 整数型, , "VirtualProtectEx"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

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

.DLL命令 VirtualQueryEx, 整数型, , "VirtualQueryEx"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 info, 整数型, 传址 数组
    .参数 dwLength, 整数型

.DLL命令 GetCurrentProcessId, 整数型, , "GetCurrentProcessId"

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