易语言取模块基址源码

系统结构:取进程模块,读模块基址,十六转十进制,十转十六进制,wvsprintf,StrToIntEx,

======程序集1
           |  |
           |  |------ 取进程模块
           |  |
           |  |------ 读模块基址
           |  |
           |  |------ 十六转十进制
           |  |
           |  |------ 十转十六进制
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _创建快照
           |  |
           |  |---[dll]------   _关闭对象
           |  |
           |  |---[dll]------   _下一个模块
           |  |
           |  |---[dll]------   _第一个模块
           |  |
           |  |---[dll]------   wvsprintf
           |  |
           |  |---[dll]------   StrToIntEx

调用的DLL命令:

.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 _关闭对象, 整数型, "kernel32.dll", "CloseHandle", , kernel32.dll
    .参数 对象句柄, 整数型

.DLL命令 _下一个模块, 整数型, , "Module32Next"
    .参数 hSnapshot, 整数型
    .参数 lpme, 模块信息型

.DLL命令 _第一个模块, 整数型, , "Module32First", , 第一个模块，查找模块
    .参数 快照句柄, 整数型
    .参数 模块信息, 模块信息型

.DLL命令 wvsprintf, 整数型, "user32.dll", "wvsprintfA"
    .参数 lpstr, 文本型
    .参数 lpcstr, 文本型
    .参数 OptionalArguments, 整数型, 传址

.DLL命令 StrToIntEx, 整数型, "shlwapi.dll", "StrToIntExA"
    .参数 pszString, 文本型
    .参数 dwFlags, 整数型
    .参数 piRet, 整数型, 传址