动态调用易语言命令源码

系统结构:子程序指针到整数型,动态调用子程序____,CALL,复制库信息_API,赋值对象_API,填充对象内存_API,复制命令信息_API,FreeLibrary,写入整数_API,IsBadReadPtr,VirtualProtect,LoadLibraryA,GetProcAddress,GetModuleHandleA,取对象指针_API,取整数指针_API,取命令指针_API,取文本指针_API,取字节集指针_API,读出整数_API,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 子程序指针到整数型
           |  |
           |  |------ 动态调用子程序____
           |  |
           |  |------ CALL
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   复制库信息_API
           |  |
           |  |---[dll]------   赋值对象_API
           |  |
           |  |---[dll]------   填充对象内存_API
           |  |
           |  |---[dll]------   复制命令信息_API
           |  |
           |  |---[dll]------   FreeLibrary
           |  |
           |  |---[dll]------   写入整数_API
           |  |
           |  |---[dll]------   IsBadReadPtr
           |  |
           |  |---[dll]------   VirtualProtect
           |  |
           |  |---[dll]------   LoadLibraryA
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   取对象指针_API
           |  |
           |  |---[dll]------   取整数指针_API
           |  |
           |  |---[dll]------   取命令指针_API
           |  |
           |  |---[dll]------   取文本指针_API
           |  |
           |  |---[dll]------   取字节集指针_API
           |  |
           |  |---[dll]------   读出整数_API

调用的DLL命令:

.DLL命令 复制库信息_API, , , "RtlMoveMemory"
    .参数 Destination, 库信息
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 赋值对象_API, , , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 对象
    .参数 Length, 整数型

.DLL命令 填充对象内存_API, , "kernel32.dll", "RtlFillMemory"
    .参数 目的内存, 对象, , Destination
    .参数 长度, 整数型, , Length
    .参数 填充内容, 字节型, , Fill

.DLL命令 复制命令信息_API, , , "RtlMoveMemory"
    .参数 Destination, CMD_INFO
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 FreeLibrary, 逻辑型
    .参数 hLibModule, 整数型

.DLL命令 写入整数_API, , , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型, 传址
    .参数 Length, 整数型

.DLL命令 IsBadReadPtr, 整数型, , "IsBadReadPtr"
    .参数 addr, 整数型
    .参数 size, 整数型

.DLL命令 VirtualProtect, 逻辑型, , "VirtualProtect", , VirtualProtect (指针, 1, 64, old)
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

.DLL命令 LoadLibraryA, 整数型, , "LoadLibraryA"
    .参数 lpFileName, 文本型

.DLL命令 GetProcAddress, 整数型, , "GetProcAddress"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 GetModuleHandleA, 整数型, , "GetModuleHandleA"
    .参数 lpModuleName, 整数型

.DLL命令 取对象指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的整数, 对象, 传址, 一定要传址
    .参数 欲取其指针的整数, 对象, 传址, 一定要传址.重复一次,骗骗Windows:)
    .参数 保留, 整数型, , 0

.DLL命令 取整数指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 整数型, 传址
    .参数 欲取其指针的变量, 整数型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 取命令指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, MDATA_INF, 传址
    .参数 欲取其指针的变量, MDATA_INF, 传址
    .参数 保留, 整数型, , 0

.DLL命令 取文本指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 文本型, 传址
    .参数 欲取其指针的变量, 文本型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 取字节集指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 字节集
    .参数 欲取其指针的变量, 字节集
    .参数 保留, 整数型, , 0

.DLL命令 读出整数_API, , , "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型