【首发】调用易语言支持库里的命令，指针操纵（纯核心库，By超级用户）

1185384801

Hi！大家好！我是超级用户！首先来看一张图：
哈哈本图亮点可多了哦（都圈出来了拉）
调用易语言支持库里的命令这个看起来好像很深奥一样（本程序受到“SalHe”大佬的启发写出来的），其实不然
曾经我记得有人发过一个C#调用易库的，于是我干脆发个易调用的Demo吧！
首先取得易命令指针地址：

  

子程序名	返回值类型	公开	备 注
取指定函数地址_入口	整数型
参数名	类 型	参考	可空	数组	备 注
支持库信息入口	整数型				GetNewInf 函数地址
命令索引	整数型

变量名	类 型	静态	数组	备 注
ret	整数型

如果真 (支持库信息入口 ＞ 0)
ret ＝ Call (支持库信息入口, , )  ' 取得支持库信息指针
ret ＝ 取指定函数地址_指针 (ret, 命令索引)
返回 (ret)

子程序名	返回值类型	公开	备 注
取指定函数地址_指针	整数型
参数名	类 型	参考	可空	数组	备 注
支持库信息指针	整数型
命令索引	整数型

变量名	类 型	静态	数组	备 注
ret	整数型

如果真 (支持库信息指针 ＞ 0)
ret ＝ 支持库信息指针  ' 取得支持库信息指针
ret ＝ 指针到整数 (ret ＋ 4 �� (28 － 1))  ' 第 28 个成员就是第一个命令的地址
ret ＝ 指针到整数 (ret ＋ 4 �� (命令索引 － 1))
返回 (ret)

子程序名	返回值类型	公开	备 注
取运行目录_外部	文本型

变量名	类 型	静态	数组	备 注
句柄	整数型
类_库操作	类_库操作
返回值	数据结构
p	类_指针
结果	文本型

句柄 ＝ 类_库操作.取核心库模块句柄 ()
句柄 ＝ GetProcAddress (句柄, “GetNewInf”)
句柄 ＝ 类_库操作.取指定函数地址_入口 (句柄, 66)  ' 66是取运行目录在支持库中命令的索引

.版本 2<br /> <br /> .子程序 取指定函数地址_入口, 整数型, 公开<br /> .参数 支持库信息入口, 整数型, , GetNewInf 函数地址<br /> .参数 命令索引, 整数型<br /> .局部变量 ret, 整数型<br /> <br /> .如果真 (支持库信息入口 ＞ 0)<br />     ret ＝ Call (支持库信息入口, , )  ' 取得支持库信息指针<br />     ret ＝ 取指定函数地址_指针 (ret, 命令索引)<br /> .如果真结束<br /> 返回 (ret)<br /> <br /> .子程序 取指定函数地址_指针, 整数型, 公开<br /> .参数 支持库信息指针, 整数型<br /> .参数 命令索引, 整数型<br /> .局部变量 ret, 整数型<br /> <br /> .如果真 (支持库信息指针 ＞ 0)<br />     ret ＝ 支持库信息指针  ' 取得支持库信息指针<br />     ret ＝ 指针到整数 (ret ＋ 4 × (28 － 1))  ' 第 28 个成员就是第一个命令的地址<br />     ret ＝ 指针到整数 (ret ＋ 4 × (命令索引 － 1))<br /> .如果真结束<br /> 返回 (ret)<br /> .版本 2<br /> <br /> .子程序 取运行目录_外部, 文本型<br /> .局部变量 句柄, 整数型<br /> .局部变量 类_库操作, 类_库操作<br /> .局部变量 返回值, 数据结构<br /> .局部变量 p, 类_指针<br /> .局部变量 结果, 文本型<br /> <br /> 句柄 ＝ 类_库操作.取核心库模块句柄 ()<br /> 句柄 ＝ GetProcAddress (句柄, “GetNewInf”)<br /> 句柄 ＝ 类_库操作.取指定函数地址_入口 (句柄, 66)  ' 66是取运行目录在支持库中命令的索引

取得了易支持库命令地址后，我们来分析下易库：

  

子程序名	返回值类型	公开	备 注
易库命令子程序基本结构
参数名	类 型	参考	可空	数组	备 注
返回值指针	整数型
参数数目	整数型
首参数指针	整数型

.版本 2<br /> <br /> .子程序 易库命令子程序基本结构<br /> .参数 返回值指针, 整数型<br /> .参数 参数数目, 整数型<br /> .参数 首参数指针, 整数型

这是结构，返回值指针传入一个“数据结构”，参数数目不说了，然后传入参数指针（整合版本）
那么这样慢慢逆就可以了，但是返回的是指针而不是数据怎么办？别急，我们就需要用到下面的制作万能转换：

  

窗口程序集名	保 留	保 留	备 注
类_指针
变量名	类 型	数组	备 注
集_原地址	整数型	0
集_目的地址	整数型	0
集_自动还原	逻辑型
集_已还原	逻辑型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

集_自动还原 ＝ 真

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

如果真 (集_自动还原 且 取反 (集_已还原))
还原 ()

子程序名	返回值类型	公开	备 注
自动还原	逻辑型
参数名	类 型	参考	可空	数组	备 注
值	逻辑型

如果真 (取反 (是否为空 (值)))
集_自动还原 ＝ 值
返回 (集_自动还原)

子程序名	返回值类型	公开	备 注
到数据
参数名	类 型	参考	可空	数组	备 注
源数据指针	整数型
目的变量地址	整数型

加入成员 (集_原地址, 指针到数据 (源数据指针, 目的变量地址))
加入成员 (集_目的地址, 目的变量地址)
集_已还原 ＝ 假

子程序名	返回值类型	公开	备 注
还原

变量名	类 型	静态	数组	备 注
n1	整数型

计次循环首 (取数组成员数 (集_原地址), n1)
释放指针数据 (集_目的地址 [n1], 集_原地址 [n1])
计次循环尾 ()
集_已还原 ＝ 真

子程序名	返回值类型	公开	备 注
取指针_通用型	整数型
参数名	类 型	参考	可空	数组	备 注
变量	通用型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
指针到数据	整数型		返回值为目的变量原数据地址
参数名	类 型	参考	可空	数组	备 注
源数据指针	整数型
目的变量地址	整数型

置入代码 ({ 139, 69, 12, 255, 48, 255, 117, 8, 143, 0, 88, 201, 194, 8, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
释放指针数据
参数名	类 型	参考	可空	数组	备 注
变量地址	整数型
原数据地址	整数型

置入代码 ({ 139, 69, 8, 255, 117, 12, 143, 0 })

.版本 2<br /> <br /> .程序集 类_指针<br /> .程序集变量 集_原地址, 整数型, , "0"<br /> .程序集变量 集_目的地址, 整数型, , "0"<br /> .程序集变量 集_自动还原, 逻辑型<br /> .程序集变量 集_已还原, 逻辑型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 集_自动还原 ＝ 真<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> .如果真 (集_自动还原 且 取反 (集_已还原))<br />     还原 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 自动还原, 逻辑型, 公开<br /> .参数 值, 逻辑型, 可空<br /> <br /> .如果真 (取反 (是否为空 (值)))<br />     集_自动还原 ＝ 值<br /> .如果真结束<br /> 返回 (集_自动还原)<br /> <br /> .子程序 到数据, , 公开<br /> .参数 源数据指针, 整数型<br /> .参数 目的变量地址, 整数型<br /> <br /> 加入成员 (集_原地址, 指针到数据 (源数据指针, 目的变量地址))<br /> 加入成员 (集_目的地址, 目的变量地址)<br /> 集_已还原 ＝ 假<br /> <br /> .子程序 还原, , 公开<br /> .局部变量 n1, 整数型<br /> <br /> .计次循环首 (取数组成员数 (集_原地址), n1)<br />     释放指针数据 (集_目的地址 [n1], 集_原地址 [n1])<br /> .计次循环尾 ()<br /> 集_已还原 ＝ 真<br /> .版本 2<br /> <br /> .子程序 取指针_通用型, 整数型<br /> .参数 变量, 通用型<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> 返回 (0)<br /> .版本 2<br /> <br /> .子程序 指针到数据, 整数型, , 返回值为目的变量原数据地址<br /> .参数 源数据指针, 整数型<br /> .参数 目的变量地址, 整数型<br /> <br /> 置入代码 ({ 139, 69, 12, 255, 48, 255, 117, 8, 143, 0, 88, 201, 194, 8, 0 })<br /> 返回 (0)<br /> <br /> .子程序 释放指针数据<br /> .参数 变量地址, 整数型<br /> .参数 原数据地址, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 255, 117, 12, 143, 0 })

呵呵仙大神曾经写过一个易版指针，这个呢，则是汇编版本的哦
好的，那么我们就大胆调用吧！

最后还是那句老话：源码回复下载！！
最后说一句：如果你觉得可以的话，请：
一下(点2下又不会扣分，而且还会加精币哦！！！加精币哦！！！)，源码回复下载！！
执行命令.e (25.55 KB, 下载次数: 181)

2018-7-17 11:00 上传

点击文件名下载附件

the68

感谢分享

french007

大神 能hook 支持库里面的命令吗

kirisame

thanks for sharing

2442295093

我天啊，我居然看不懂这是干嘛的

小码人

超级用户很棒，加油，支持你！

陈道友

3Q楼主分享

bustvr

谢谢分享高精源码,来学习了.

wzx17520394175

路过下载，拿来研究

a1140141768

学习了。。。。。。。。

2229755358

路过下载，拿来研究