开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2919|回复: 5
收起左侧

[易语言纯源码] API纯源码不带任何模块

[复制链接]
结帖率:0% (0/4)
发表于 2017-2-3 12:35:59 | 显示全部楼层 |阅读模式   四川省成都市
分享源码
界面截图: -
是否带模块: 纯源码
备注说明: -
.版本 2

.子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用

' 版本 2
' DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory", , ""
' .参数 Destination, 文本型, 传址 数组, "类型为通用型,请在调试时调整其类型"
' .参数Source, 整数型, , "类型为通用型,请在调试时调整其类型"
' .参数 Length, 整数型, , ""

.子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用



.子程序 全局分配分配, 整数型, 公开, GlobalAlloc
.参数 标志, 整数型, , wFlags
.参数 字节, 整数型, , dwBytes

返回 (全局分配分配_ (标志, 字节))


.子程序 释放内存分配, 整数型, 公开, GlobalFree
.参数 内存句柄, 整数型, ,  hMem  

返回 (释放内存分配_ (内存句柄))


.子程序 锁住全局内存块, 文本型, 公开, GlobalLock
.参数 内存句柄, 整数型, , hMem

返回 (锁住全局内存块_ (内存句柄))


.子程序 解锁全局内存块, 整数型, 公开, GlobalUnlock
.参数 内存句柄, 整数型, , hMem

返回 (解锁全局内存块_ (内存句柄))


.子程序 拷贝内存, 文本型, 公开, RtlMoveMemory
.参数 源缓冲区, 字节型, 数组, Source
.局部变量 返回, 文本型

返回 = 取空白文本 (取数组成员数 (源缓冲区))
拷贝内存_ (返回, 源缓冲区, 取数组成员数 (源缓冲区))
返回 (返回)

.子程序 填充内存, 文本型, 公开, $(b) RtlFillMemory
.参数 目的内存, 文本型, , Destination
.参数 填充内容, 字节型, , Fill 例子:取代码("A",)


RtlFillMemory (目的内存, 取文本长度 (目的内存), 填充内容)

返回 (目的内存)

.子程序 内存清零, , 公开, RtlZeroMemory
.参数 目的内存, 文本型, , Destination
.参数 长度, 整数型, , Length


内存清零_ (目的内存, 长度)


.子程序 写内存字节集, 整数型, 公开, WriteProcessMemory写内存 失败返回0 返回值
.参数 进程的句柄, 整数型, , hProcess , 进程的句柄 使用函数 OpenProcess() 返回。
.参数 内存地址, 整数型, , lpBaseAddress,内存地址
.参数 写入数据, 字节集, , lpBuffer, 数据指针  本参数的类型也能是“字节”型。
.参数 数据的长度, 整数型, , nSize,长度   取字节集长度 (数据)
.参数 实际数据的长度, 整数型, , lpNumberOfBytesWritten实际写出长度  一般填写WriteProcessMemory 返回值为0则忽略。
.局部变量 返回, 整数型

返回 = WriteProcessMemory_ (进程的句柄, 内存地址, 写入数据, 数据的长度, 实际数据的长度)

返回 (返回)

.子程序 写内存十六进制路径名, 逻辑型, 公开, 成功返回真 失败返回假
.参数 完整的路径名, 文本型, , 完整的路径名 比如:c:\1.exe
.参数 地址, 文本型, , 例子:地址:0049500B
.参数 修改指令, 文本型, , 例子 修改指令:9090
.局部变量 进程句柄, 整数型
.局部变量 内存地址, 整数型
.局部变量 写入数据, 字节集
.局部变量 返回, 整数型
.局部变量 最终返回, 逻辑型
.局部变量 启动信息数据, 启动信息数据
.局部变量 创建进程返回数据类型, 创建进程返回数据类型


' 进程对象一般设为 2035711  权限 bInheritHandle  一般可以填写0

' GetPriorityClipboardFormat
创建进程_ (完整的路径名, “”, 0, 0, 假, 0, “”, 0, 启动信息数据, 创建进程返回数据类型)

进程句柄 = 创建进程返回数据类型.hProcess


' 最重要一步了 修改内存

内存地址 = 十六进制文本到内存地址整数 (地址)
写入数据 = 十六进制文本到字节集 (修改指令)

返回 = 写内存字节集_ (进程句柄, 内存地址, 写入数据, 取字节集长度 (写入数据), 返回)

' 逻辑型的 默认为假  取反为真
.如果真 (返回 ≠ 0)
    最终返回 = 真

.如果真结束

关闭句柄 (进程句柄)



返回 (最终返回)


.子程序 写内存十六进制进程句柄, 逻辑型, 公开, 成功返回真 失败返回假
.参数 进程句柄, 整数型, , 例子:进程句柄:168
.参数 地址, 文本型, , 例子:地址:0049500B
.参数 修改指令, 文本型, , 例子 修改指令:9090
.局部变量 内存地址, 整数型
.局部变量 写入数据, 字节集
.局部变量 返回, 整数型
.局部变量 最终返回, 逻辑型
.局部变量 启动信息数据, 启动信息数据
.局部变量 创建进程返回数据类型, 创建进程返回数据类型


内存地址 = 十六进制文本到内存地址整数 (地址)
写入数据 = 十六进制文本到字节集 (修改指令)

返回 = 写内存字节集_ (进程句柄, 内存地址, 写入数据, 取字节集长度 (写入数据), 返回)

' 逻辑型的 默认为假  取反为真
.如果真 (返回 ≠ 0)
    最终返回 = 真

.如果真结束

关闭句柄 (进程句柄)



返回 (最终返回)


.子程序 读文本内存, 文本型, 公开, 返回文本 ReadProcessMemory
.参数 进程的句柄, 整数型, , hProcess , 进程的句柄
.参数 内存地址, 整数型, , lpBaseAddress,内存地址
.局部变量 返回, 整数型
.局部变量 字节集, 字节集

字节集 = 取空白字节集 (255)
返回 = 读内存数据_ (进程的句柄, 内存地址, 字节集, 取字节集长度 (字节集), 返回)

返回 (到文本 (字节集))

API.rar

102.63 KB, 下载次数: 44, 下载积分: 精币 -2 枚


结帖率:0% (0/1)
发表于 2017-3-2 07:51:44 | 显示全部楼层   江苏省常州市
不知道怎么用而已
回复 支持 反对

使用道具 举报

结帖率:0% (0/4)

签到天数: 5 天

 楼主| 发表于 2017-2-8 22:38:11 | 显示全部楼层   四川省成都市
飞浪 发表于 2017-2-6 17:51
感谢。。。。 学习。。。。

不客气 欢迎关注
回复 支持 反对

使用道具 举报

结帖率:0% (0/4)

签到天数: 5 天

 楼主| 发表于 2017-2-8 22:37:15 | 显示全部楼层   四川省成都市
Joker4tb 发表于 2017-2-3 12:37
第三层的API表示很wuli

这个是个很好的列子 已经被加精过了  那里无理了  只是你用不着那个过程
回复 支持 反对

使用道具 举报

结帖率:29% (2/7)
发表于 2017-2-6 17:51:25 | 显示全部楼层   河北省保定市
感谢。。。。 学习。。。。
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 6 天

发表于 2017-2-3 12:37:53 | 显示全部楼层   湖南省郴州市
第三层的API表示很wuli
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表