易语言通过序列号取API函数地址源码

系统结构:序列号取API,十六到十,十到十六,LoadLibrary,ImageDirectoryEntryToData,GetProcAddress,GetProcAddress_,FreeLibrary,ReadProcessMemory,wvsprintf,GetModuleHandleA,StrToIntEx,

======程序集1
           |  |
           |  |------ 序列号取API
           |  |
           |  |------ 十六到十
           |  |
           |  |------ 十到十六
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LoadLibrary
           |  |
           |  |---[dll]------   ImageDirectoryEntryToData
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetProcAddress_
           |  |
           |  |---[dll]------   FreeLibrary
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   wvsprintf
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   StrToIntEx

调用的DLL命令:

.DLL命令 LoadLibrary, 整数型, "kernel32.dll", "LoadLibraryA"
    .参数 文件名, 文本型

.DLL命令 ImageDirectoryEntryToData, 整数型, "imagehlp"
    .参数 Base, 整数型, , 模块句柄
    .参数 MappedAsImage, 逻辑型, , 真
    .参数 DirectoryEntry, , , 恒量:IMAGE_DIRECTORY_ENTRY_IMPORT,1
    .参数 Size, 整数型, 传址, IMAGE_IMPORT_DESCRIPTOR数组的大小

.DLL命令 GetProcAddress, 整数型, "kernel32.dll", , , GetProcAddress
    .参数 库句柄
    .参数 函数名, 文本型

.DLL命令 GetProcAddress_, 整数型, "kernel32.dll", "GetProcAddress", , GetProcAddress
    .参数 库句柄, 整数型
    .参数 函数名, 整数型

.DLL命令 FreeLibrary, 整数型, "kernel32.dll"
    .参数 库句柄

.DLL命令 ReadProcessMemory, 整数型, , "ReadProcessMemory", 公开, 读内存
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型, , 内存地址
    .参数 lpBuffer, 字节集, 传址, 数据指针
    .参数 nSize, 整数型, , 长度
    .参数 lpNumberOfBytesWritten, 整数型, , 实际写出长度

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

.DLL命令 GetModuleHandleA, 整数型, , "GetModuleHandleA"
    .参数 文件名, 文本型

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