易语言内存映射类模块源码

系统结构:创建映射,打开文件_,取颗粒数,映射内存,读基址,释放内存,关闭文件_,写入字节集,移动读写位置_,读位置指针,删除字节集,映射_创建,关闭句柄,映射_置内存,写字节集,映射_释放内存,API_读字节集内存,取低层平台信息_,api_打开文件_,GetLastError,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======类_内存映射
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建映射
           |  |
           |  |------ 打开文件_
           |  |
           |  |------ 取颗粒数
           |  |
           |  |------ 映射内存
           |  |
           |  |------ 读基址
           |  |
           |  |------ 释放内存
           |  |
           |  |------ 关闭文件_
           |  |
           |  |------ 写入字节集
           |  |
           |  |------ 移动读写位置_
           |  |
           |  |------ 读位置指针
           |  |
           |  |------ 删除字节集
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   映射_创建
           |  |
           |  |---[dll]------   关闭句柄
           |  |
           |  |---[dll]------   映射_置内存
           |  |
           |  |---[dll]------   写字节集
           |  |
           |  |---[dll]------   映射_释放内存
           |  |
           |  |---[dll]------   API_读字节集内存
           |  |
           |  |---[dll]------   取低层平台信息_
           |  |
           |  |---[dll]------   api_打开文件_
           |  |
           |  |---[dll]------   GetLastError

调用的DLL命令:

.DLL命令 映射_创建, 整数型, , "CreateFileMappingA"
    .参数 hFile, 整数型
    .参数 lpFileMappingAttributes, 整数型
    .参数 flProtect, 整数型
    .参数 dwMaximumSizeHigh, 整数型, , CreateFileMapping
    .参数 dwMaximumSizeLow, 整数型, , 文件映射的最大长度的低32位。如这个参数和dwMaximumSizeHigh都是零，就用磁盘文件的实际长度
    .参数 lpName, 文本型, , 指定文件映射对象的名字。如存在这个名字的一个映射，函数就会打开它。用vbNullString创建一个无名的文件映射

.DLL命令 关闭句柄, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 映射_置内存, 整数型, "kernel32.dll", "MapViewOfFile"
    .参数 hFileMappingObject, 整数型, , 返回的文件映像对象句柄
    .参数 dwDesiedAccess, 整数型, , 映射对象的文件数据的访问方式，而且同样要与CreateFileMapping()函数所设置的保护属性相匹配
    .参数 dwFileOffsetHigh, 整数型, , 文件中映射起点的高32位地址
    .参数 dwFileOffsetLow, 整数型, , 文件中映射起点的低32位地址
    .参数 dwNumberOfBytesToMap, 整数型, , 指定映射文件的字节数

.DLL命令 写字节集, 整数型, "kernel32.dll", "WriteProcessMemory"
    .参数 hProcess, 整数型
    .参数 内存地址, 整数型
    .参数 数据指针, 字节集, 传址
    .参数 长度, 整数型
    .参数 实际写出长度, 整数型

.DLL命令 映射_释放内存, 整数型, "kernel32.dll", "UnmapViewOfFile"
    .参数 lpBaseAddress, 整数型, , 提供内存基址

.DLL命令 API_读字节集内存, 整数型, "kernel32.dll", "ReadProcessMemory", , 非0表示成功
    .参数 hProcess, 整数型, , 进程的句柄
    .参数 lpBaseAddress, 整数型, , 写入进程的位置
    .参数 lpBuffer, 字节集, 传址, 提供字节集变量用来存放数据当前存放的地址
    .参数 nSize, 整数型, , 数据的长度
    .参数 lpNumberOfBytesWritten, 整数型, , 实际数据长度

.DLL命令 取低层平台信息_, 整数型, "kernel32", "GetSystemInfo", , ,
    .参数 系统信息, 系统信息_

.DLL命令 api_打开文件_, 整数型, "kernel32.dll", "OpenFile", , ,
    .参数 文件名, 文本型, , lpFileName，欲打开文件的名字
    .参数 文件操作结果, 文件结构信息_, 传址, lpReOpenBuff，文件操作结果
    .参数 操作方式, 整数型, , wStyle，操作方式

.DLL命令 GetLastError, 整数型, , "GetLastError"