易语言模块基址获取源码

系统结构:GetModuleBaseAddress,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ GetModuleBaseAddress
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   _Module32First
           |  |
           |  |---[dll]------   _OpenProcess
           |  |
           |  |---[dll]------   _GetWindowThreadProcessId
           |  |
           |  |---[dll]------   _CloseHandle
           |  |
           |  |---[dll]------   _Module32Next
           |  |
           |  |---[dll]------   _FindWindowA

调用的DLL命令:

.DLL命令 _CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 _Module32First, 整数型, , "Module32First"
    .参数 hSnapshot, 整数型
    .参数 LPME, MODULEENTRY32

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

.DLL命令 _GetWindowThreadProcessId, 整数型, , "GetWindowThreadProcessId"
    .参数 hwnd, 整数型
    .参数 lpdwProcessId, 整数型, 传址

.DLL命令 _CloseHandle, 整数型, , "CloseHandle"
    .参数 PID, 整数型, , 进程PID

.DLL命令 _Module32Next, 逻辑型, , "Module32Next"
    .参数 hSnapshot, 整数型
    .参数 LPME, MODULEENTRY32

.DLL命令 _FindWindowA, 整数型, , "FindWindowA"
    .参数 lpClassName, 文本型
    .参数 lpWindowsName, 文本型