【蠢新学汇编】对"类方法指针"进行包装

笨来无一悟

类方法和子程序的真实地址 调用子程序()的方式 返回值都会不正确
想模拟一个易语言的包装函数出来玩玩 几经测试都以失败告终


调用子程序的时候返回值不正确的话 手动添加两行汇编代码 保护一下 EBX 寄存器

  

置入代码 ({ 83 })  ' PUSH EBX
' 用户代码
置入代码 ({ 91 })  ' POP EBX

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .支持库 spec<br /> <br /> 置入代码 ({ 83 })  ' PUSH EBX<br /> '用户代码<br /> 置入代码 ({ 91 })  ' POP EBX

  

子程序名	返回值类型	公开	备 注
取类方法地址	整数型		初始化销毁以外 从1开始
参数名	类 型	参考	可空	数组	备 注
已声明类变量	通用型				已声明类变量名称
类方法上到下	整数型				所取编号必须存在

变量名	类 型	静态	数组	备 注
局_返回	整数型			静态
局_地址	整数型			静态
局_代码	字节集			静态

置入代码 ({ 81, 54, 139, 77, 12, 54, 139, 69, 8, 62, 139, 0, 62, 139, 0, 62, 139, 68, 136, 4, 137, 69, 12, 89 })
局_地址 ＝ 类方法上到下
局_代码 ＝ { 139, 4, 36, 163 } ＋ 到字节集 (取变量数据地址 (局_返回)) ＋ { 255, 21 } ＋ 到字节集 (取变量数据地址 (局_地址)) ＋ { 255, 37 } ＋ 到字节集 (取变量数据地址 (局_返回))
返回 (取变量数据地址 (局_代码))  

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取类方法地址, 整数型, , 初始化销毁以外 从1开始<br /> .参数 已声明类变量, 通用型, 参考, 已声明类变量名称<br /> .参数 类方法上到下, 整数型, , 所取编号必须存在<br /> .局部变量 局_返回, 整数型, 静态, , 静态<br /> .局部变量 局_地址, 整数型, 静态, , 静态<br /> .局部变量 局_代码, 字节集, 静态, , 静态<br /> <br /> 置入代码 ({ 81, 54, 139, 77, 12, 54, 139, 69, 8, 62, 139, 0, 62, 139, 0, 62, 139, 68, 136, 4, 137, 69, 12, 89 })<br /> 局_地址 ＝ 类方法上到下<br /> 局_代码 ＝ { 139, 4, 36, 163 } ＋ 到字节集 (取变量数据地址 (局_返回)) ＋ { 255, 21 } ＋ 到字节集 (取变量数据地址 (局_地址)) ＋ { 255, 37 } ＋ 到字节集 (取变量数据地址 (局_返回))<br /> 返回 (取变量数据地址 (局_代码))  

来自群组: 热心网友

真IKUN

笨来无一悟 发表于 2025-2-13 10:52
子程序 比类更快 原生支持多线程能用子程序跑多线程的就不用类
[e=4].版本 2

更先进了谢谢悟哥，功德无量

笨来无一悟

真IKUN 发表于 2025-2-13 08:15
确实很先进，学到了，谢谢悟哥，以后别点评呀，要不然回复不了，还想跟老哥多请教点 ...

子程序 比类更快 原生支持多线程能用子程序跑多线程的就不用类

  

数据类型名	公开	备 注
自定义
成员名	类 型	传址	数组	备 注
成员一	整数型
成员二	双精度小数型

.版本 2<br /> <br /> .数据类型 自定义<br />     .成员 成员一, 整数型<br />     .成员 成员二, 双精度小数型

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

地址 ＝ 取某某子程序地址 ()
调用子程序 (地址, , , 0, 0)  ' 自定义数据类型 取变量地址() 或 取变量数据地址()

子程序名	返回值类型	公开	备 注
取某某子程序地址	整数型		针对 参数为 字节集 数组 或者 自定义类型

变量名	类 型	静态	数组	备 注
A	自定义
B	字节集

返回 (下层地址 ())  ' 除了局部自定义非静态 别的都能获取 因为局部非静态自定义数据会call一个 构造函数(自定义数据类型初始化)
某某子程序 (A, B)

子程序名	返回值类型	公开	备 注
某某子程序	整数型
参数名	类 型	参考	可空	数组	备 注
一	自定义
二	字节集

调试输出 (“被调用”)
返回 (0)

子程序名	返回值类型	公开	备 注
下层地址	整数型		返回(下层地址()) 所取子程序(须带参数,来源不限) 若传局部变量必须静态

置入代码 ({ 83, 81, 82, 139, 69, 4 })
' PUSH EBX
' PUSH ECX
' PUSH EDX
' MOV EAX,DWORD [EBP+4]
置入代码 ({ 64, 128, 56, 195, 117, 34, 128, 120, 255, 93, 117, 244, 128, 120, 254, 229, 117, 8, 128, 120, 253, 139, 117, 232, 235, 50 })
' 向下:
' INC EAX
' CMP BYTE[EAX],195
' JNE 带参
' 平栈:
' CMP BYTE[EAX-1],93
' JNE 向下
' CMP BYTE[EAX-2],229
' JNE 等价
' CMP BYTE[EAX-3],139
' JNE 向下
' JMP 向上
置入代码 ({ 128, 120, 254, 236, 117, 224, 128, 120, 253, 137, 117, 218, 235, 36 })
' 等价:
' CMP BYTE[EAX-2],236
' JNE 向下
' CMP BYTE[EAX-3],137
' JNE 向下
' JMP 向上
置入代码 ({ 128, 56, 194, 117, 211, 128, 120, 2, 0, 117, 205, 137, 193, 80, 49, 210, 49, 192, 138, 65, 1, 187, 4, 0, 0, 0, 247, 243, 88, 131, 250, 0, 117, 182, 235, 186 })
' 带参:
' CMP BYTE[EAX],194
' JNE 向下
' CMP BYTE [EAX+2],0
' JNE 向下
' MOV ECX,EAX
' PUSH EAX
' XOR EDX,EDX
' XOR EAX,EAX
' MOV AL,BYTE [ECX+1]
' MOV EBX,4
' DIV EBX
' POP EAX
' CMP EDX,0
' JNE 向下
' JMP 平栈
置入代码 ({ 72, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 2, 235, 12 })
' 向上:
' DEC EAX
' CMP BYTE [EAX],232
' JNE 向上
' CMP BYTE[EAX-5],104
' JNE 传参
' JMP 找到
置入代码 ({ 128, 120, 253, 255, 117, 236, 128, 120, 254, 117, 117, 230, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 218 })
' 传参:
' CMP BYTE[EAX-3],255
' JNE 向上
' CMP BYTE[EAX-2],117
' JNE 向上
' 找到:
' MOV ECX,DWORD [EAX+1]
' LEA ECX,DWORD [EAX+ECX+5]
' CMP BYTE [ECX],85
' JNE 向上
置入代码 ({ 137, 200, 90, 89, 91, 201, 195 })
' MOV EAX,ECX
' POP EDX
' POP ECX
' POP EBX
' LEAVE
' RET
返回 (0)

子程序名	返回值类型	公开	备 注
下层地址_简版	整数型		返回(下层地址_简版()) 所取子程序(须带参数,且,来自局部) 需传静态变量

置入代码 ({ 81, 139, 69, 4, 64, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 244, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 232, 137, 200, 89, 201, 195 })
返回 (0)
' PUSH ECX
' MOV EAX, DWORD [EBP+4]
' 向下:
' INC EAX
' CMP BYTE[EAX],232
' JNE 向下
' CMP BYTE[EAX-5],104
' JNE 向下
' MOV ECX, DWORD [EAX+1]
' LEA ECX, DWORD [EAX+ECX+5]
' CMP BYTE [ECX],85
' JNE 向下
' MOV EAX, ECX
' POP ECX
' LEAVE
' RET

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 地址, 整数型<br /> <br /> 地址 ＝ 取某某子程序地址 ()<br /> 调用子程序 (地址, , , 0, 0)  ' 自定义数据类型 取变量地址() 或 取变量数据地址()<br /> <br /> .子程序 取某某子程序地址, 整数型, , 针对 参数为 字节集 数组 或者 自定义类型<br /> .局部变量 A, 自定义, 静态<br /> .局部变量 B, 字节集, 静态<br /> <br /> 返回 (下层地址 ())  ' 除了局部自定义非静态 别的都能获取 因为局部非静态自定义数据会call一个 构造函数(自定义数据类型初始化)<br /> 某某子程序 (A, B)<br /> <br /> .子程序 某某子程序, 整数型<br /> .参数 一, 自定义<br /> .参数 二, 字节集<br /> <br /> 调试输出 (“被调用”)<br /> 返回 (0)<br /> <br /> .子程序 下层地址, 整数型, , 返回(下层地址()) 所取子程序(须带参数,来源不限) 若传局部变量必须静态 <br /> <br /> 置入代码 ({ 83, 81, 82, 139, 69, 4 })<br /> ' PUSH EBX<br /> ' PUSH ECX<br /> ' PUSH EDX<br /> ' MOV EAX,DWORD [EBP+4]<br /> 置入代码 ({ 64, 128, 56, 195, 117, 34, 128, 120, 255, 93, 117, 244, 128, 120, 254, 229, 117, 8, 128, 120, 253, 139, 117, 232, 235, 50 })<br /> ' 向下:<br /> ' INC EAX<br /> ' CMP BYTE[EAX],195<br /> ' JNE 带参<br /> ' 平栈:<br /> ' CMP BYTE[EAX-1],93<br /> ' JNE 向下<br /> ' CMP BYTE[EAX-2],229<br /> ' JNE 等价<br /> ' CMP BYTE[EAX-3],139<br /> ' JNE 向下<br /> ' JMP 向上<br /> 置入代码 ({ 128, 120, 254, 236, 117, 224, 128, 120, 253, 137, 117, 218, 235, 36 })<br /> ' 等价:<br /> ' CMP BYTE[EAX-2],236<br /> ' JNE 向下<br /> ' CMP BYTE[EAX-3],137<br /> ' JNE 向下<br /> ' JMP 向上<br /> 置入代码 ({ 128, 56, 194, 117, 211, 128, 120, 2, 0, 117, 205, 137, 193, 80, 49, 210, 49, 192, 138, 65, 1, 187, 4, 0, 0, 0, 247, 243, 88, 131, 250, 0, 117, 182, 235, 186 })<br /> ' 带参:<br /> ' CMP BYTE[EAX],194<br /> ' JNE 向下<br /> ' CMP BYTE [EAX+2],0<br /> ' JNE 向下<br /> ' MOV ECX,EAX<br /> ' PUSH EAX<br /> ' XOR EDX,EDX<br /> ' XOR EAX,EAX<br /> ' MOV AL,BYTE [ECX+1]<br /> ' MOV EBX,4<br /> ' DIV EBX<br /> ' POP EAX<br /> ' CMP EDX,0<br /> ' JNE 向下<br /> ' JMP 平栈<br /> 置入代码 ({ 72, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 2, 235, 12 })<br /> ' 向上:<br /> ' DEC EAX<br /> ' CMP BYTE [EAX],232<br /> ' JNE 向上<br /> ' CMP BYTE[EAX-5],104<br /> ' JNE 传参<br /> ' JMP 找到<br /> 置入代码 ({ 128, 120, 253, 255, 117, 236, 128, 120, 254, 117, 117, 230, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 218 })<br /> ' 传参:<br /> ' CMP BYTE[EAX-3],255<br /> ' JNE 向上<br /> ' CMP BYTE[EAX-2],117<br /> ' JNE 向上<br /> ' 找到:<br /> ' MOV ECX,DWORD [EAX+1]<br /> ' LEA ECX,DWORD [EAX+ECX+5]<br /> ' CMP BYTE [ECX],85<br /> ' JNE 向上<br /> 置入代码 ({ 137, 200, 90, 89, 91, 201, 195 })<br /> ' MOV EAX,ECX<br /> ' POP EDX<br /> ' POP ECX<br /> ' POP EBX<br /> ' LEAVE<br /> ' RET<br /> 返回 (0)<br /> <br /> .子程序 下层地址_简版, 整数型, , 返回(下层地址_简版()) 所取子程序(须带参数,且,来自局部) 需传静态变量<br /> <br /> 置入代码 ({ 81, 139, 69, 4, 64, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 244, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 232, 137, 200, 89, 201, 195 })<br /> 返回 (0)<br /> ' PUSH ECX<br /> ' MOV EAX, DWORD [EBP+4]<br /> ' 向下:<br /> ' INC EAX<br /> ' CMP BYTE[EAX],232<br /> ' JNE 向下<br /> ' CMP BYTE[EAX-5],104<br /> ' JNE 向下<br /> ' MOV ECX, DWORD [EAX+1]<br /> ' LEA ECX, DWORD [EAX+ECX+5]<br /> ' CMP BYTE [ECX],85<br /> ' JNE 向下<br /> ' MOV EAX, ECX<br /> ' POP ECX<br /> ' LEAVE<br /> ' RET

真IKUN

确实很先进，学到了，谢谢悟哥，以后别点评呀，要不然回复不了，还想跟老哥多请教点

熊不熊

感谢分享，很给力！~

虎子666

感谢分享

please

感谢分享，支持开源！！！

一指温柔

支持开源~！感谢分享

futiem

感谢大神分享~@！

396384183

论坛有你更精彩