易語言模塊基址獲取源碼

系統結構: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, 文本型