【蠢新学汇编】取子程序指针の四种姿势

笨来无一悟 · 发表于昨天 00:48

曾经走过的弯路邀请大家一起走走

最方便的方法是安装汇编插件直接就能取

之所以非得追求不用汇编插件的写法是因为之前写的源码发给别人别人跑不起来

有人不学汇编也不安装插件所以就很麻

哪怕我写的代码是坨屎我也要在屎上雕朵花

再次优化如下↓

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
下行地址	子程序指针
本层地址	子程序指针

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

回调测试 (&套娃测试)
回调测试 (&首参测试)
下行地址＝取下层测试地址 ()
回调测试 (下行地址)
本层测试 ({ }) ' 启动窗口创建完毕执行一次就可以了里面套的参数值为0 就获取了再返回不会继续执行没有副作用
回调测试 (本层地址)

子程序名	返回值类型	公开	备注
回调测试
参数名	类型	参考	可空	数组	备注
回调指针	子程序指针

变量名	类型	静态	数组	备注
计次	整数型
数组	整数型		0

计次循环首 (5, 计次)

加入成员 (数组, 计次)

调用子程序 (回调指针, , , 取变量地址 (数组))

计次循环尾 ()

子程序名	返回值类型	公开	备注
套娃测试
参数名	类型	参考	可空	数组	备注
参数一	整数型

套娃 ({ })

子程序名	返回值类型	公开	备注
套娃			参数任意传反正解套之后参数的指针会变成上层函数的参数指针
参数名	类型	参考	可空	数组	备注
数组	整数型				参数可以是任意类型非数值类/字节集其他类型请传局部静态变量

解套 () ' 解套之后本层子程序局部变量和参数等价于上层子程序
调试输出 (数组, “参数”)

子程序名	返回值类型	公开	备注
解套			本层转上层

置入代码 ({ 93, 139, 109, 0, 195 })
' POP EBP
' MOV EBP,[EBP]
' RET

子程序名	返回值类型	公开	备注
首参测试
参数名	类型	参考	可空	数组	备注
参数一	整数型

变量名	类型	静态	数组	备注
首变量	整数型		0	如果存在其他局部变量那就优先显式调用一次这个变量因为易语言把第一个被调用的当成 [ebp-4]

首参到首变量_获取 ()
调试输出 (首变量, “变量”)
首参到首变量_释放 ()

子程序名	返回值类型	公开	备注
首参到首变量_获取			首参须指针

置入代码 ({ 93, 139, 69, 8, 139, 0, 137, 69, 252, 195 })
' POP EBP
' MOV EAX,[EBP+8]
' MOV EAX,[EAX]
' MOV DWORD [EBP-4],EAX
' RET

子程序名	返回值类型	公开	备注
首参到首变量_释放			变量空指针

置入代码 ({ 139, 101, 0, 199, 68, 36, 252, 0, 0, 0, 0 })
' MOV ESP,[EBP]
' MOV DWORD [ESP-4],0

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

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

返回 (下层地址 ()) ' 除了局部自定义非静态别的都能获取因为局部非静态自定义数据会call一个构造函数(自定义数据类型初始化)
下层测试 (数组) ' 取指针的时候比另外三种麻烦但是效率比另外三种高

子程序名	返回值类型	公开	备注
下层测试	整数型
参数名	类型	参考	可空	数组	备注
参数一	整数型

调试输出 (参数一, “下层”)
返回 (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
返回 (&下层地址)

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

置入代码 ({ 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 })
返回 (&下层地址_简版)
' 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

子程序名	返回值类型	公开	备注
本层测试
参数名	类型	参考	可空	数组	备注
参数一	整数型

本层地址 (本层地址) ' 本层地址 ( ) 里面的参数数值为0就执行获取地址取得地址之后绕行非0则继续正常执行
调试输出 (参数一, “本层”)

子程序名	返回值类型	公开	备注
本层地址			参数只接受整数型子程序指针
参数名	类型	参考	可空	数组	备注
为零则取	通用型				程序集变量或全局变量

置入代码 ({ 139, 85, 8, 139, 2, 133, 192, 117, 53, 54, 139, 69, 0, 62, 139, 64, 4, 62, 3, 64, 252, 137, 2, 201, 90, 131, 196, 4 })
' MOV EDX,[EBP+8]
' MOV EAX,[EDX]
' TEST EAX,EAX
' JNE 不取
' MOV EAX, DWORD PTR SS:[EBP]
' MOV EAX, DWORD PTR DS:[EAX+4]
' ADD EAX, DWORD PTR DS:[EAX-4]
' MOV DWORD [EDX],EAX
' LEAVE
' POP EDX
' ADD ESP,4
置入代码 ({ 66, 128, 58, 139, 117, 250, 128, 122, 1, 229, 117, 244, 128, 122, 2, 93, 117, 238, 128, 122, 3, 195, 117, 2, 255, 226, 128, 122, 3, 194, 117, 224, 255, 226, 201, 194, 4, 0 })
' 循环:
' INC EDX
' CMP BYTE [EDX],139
' JNE 循环
' CMP BYTE [EDX+1],229
' JNE 循环
' CMP BYTE [EDX+2],93
' JNE 循环
' CMP BYTE [EDX+3],195
' JNE 有参
' JMP EDX
' 有参:
' CMP BYTE [EDX+3],194
' JNE 循环
' JMP EDX
' 不取:
' LEAVE
' RET 4

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

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 下行地址, 子程序指针<br />
.程序集变量 本层地址, 子程序指针<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
回调测试 (&套娃测试)<br />
<br />
回调测试 (&首参测试)<br />
<br />
下行地址 ＝ 取下层测试地址 ()<br />
回调测试 (下行地址)<br />
<br />
本层测试 ({  })  ' 启动窗口创建完毕 执行一次 就可以了 里面套的参数值为0 就获取了再返回 不会继续执行 没有副作用<br />
回调测试 (本层地址)<br />
<br />
.子程序 回调测试<br />
.参数 回调指针, 子程序指针<br />
.局部变量 计次, 整数型<br />
.局部变量 数组, 整数型, , "0"<br />
<br />
.计次循环首 (5, 计次)<br />
    加入成员 (数组, 计次)<br />
    调用子程序 (回调指针, , , 取变量地址 (数组))<br />
.计次循环尾 ()<br />
<br />
.子程序 套娃测试<br />
.参数 参数一, 整数型<br />
<br />
套娃 ({  })<br />
<br />
.子程序 套娃, , , 参数任意传 反正解套之后参数的指针会变成上层函数的参数指针<br />
.参数 数组, 整数型, 数组, 参数可以是任意类型 非数值类/字节集 其他类型请传局部静态变量<br />
<br />
解套 ()  ' 解套之后 本层子程序 局部变量 和 参数 等价于上层子程序<br />
调试输出 (数组, “参 数”)<br />
<br />
.子程序 解套, , 公开, 本层转上层<br />
<br />
置入代码 ({ 93, 139, 109, 0, 195 })<br />
' POP EBP<br />
' MOV EBP,[EBP]<br />
' RET<br />
<br />
.子程序 首参测试<br />
.参数 参数一, 整数型<br />
.局部变量 首变量, 整数型, , "0", 如果存在其他局部变量 那就优先显式调用一次这个变量 因为易语言把第一个被调用的当成 [ebp-4]<br />
<br />
首参到首变量_获取 ()<br />
调试输出 (首变量, “变 量”)<br />
首参到首变量_释放 ()<br />
<br />
.子程序 首参到首变量_获取, , 公开, 首参须指针<br />
<br />
置入代码 ({ 93, 139, 69, 8, 139, 0, 137, 69, 252, 195 })<br />
' POP EBP<br />
' MOV EAX,[EBP+8]<br />
' MOV EAX,[EAX]<br />
' MOV DWORD [EBP-4],EAX<br />
' RET<br />
<br />
.子程序 首参到首变量_释放, , 公开, 变量空指针<br />
<br />
置入代码 ({ 139, 101, 0, 199, 68, 36, 252, 0, 0, 0, 0 })<br />
' MOV ESP,[EBP]<br />
' MOV DWORD [ESP-4],0<br />
<br />
.子程序 取下层测试地址, 子程序指针, , 针对 参数为 字节集 数组 或者 自定义类型<br />
.局部变量 数组, 整数型, 静态, "0"<br />
<br />
返回 (下层地址 ())  ' 除了局部自定义非静态 别的都能获取 因为局部非静态自定义数据会call一个 构造函数(自定义数据类型初始化)<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 />
返回 (&下层地址)<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 />
返回 (&下层地址_简版)<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<br />
<br />
.子程序 本层测试<br />
.参数 参数一, 整数型, 数组<br />
<br />
本层地址 (本层地址)  ' 本层地址 ( ) 里面的参数 数值为0就执行获取地址 取得地址之后绕行 非0则继续正常执行<br />
调试输出 (参数一, “本 层”)<br />
<br />
.子程序 本层地址, , 公开, 参数只接受 整数型 子程序指针<br />
.参数 为零则取, 通用型, 参考, 程序集变量 或 全局变量<br />
<br />
置入代码 ({ 139, 85, 8, 139, 2, 133, 192, 117, 53, 54, 139, 69, 0, 62, 139, 64, 4, 62, 3, 64, 252, 137, 2, 201, 90, 131, 196, 4 })<br />
' MOV EDX,[EBP+8]<br />
' MOV EAX,[EDX]<br />
' TEST EAX,EAX<br />
' JNE 不取<br />
' MOV EAX, DWORD PTR SS:[EBP]<br />
' MOV EAX, DWORD PTR DS:[EAX+4]<br />
' ADD EAX, DWORD PTR DS:[EAX-4]<br />
' MOV DWORD [EDX],EAX<br />
' LEAVE<br />
' POP EDX<br />
' ADD ESP,4<br />
置入代码 ({ 66, 128, 58, 139, 117, 250, 128, 122, 1, 229, 117, 244, 128, 122, 2, 93, 117, 238, 128, 122, 3, 195, 117, 2, 255, 226, 128, 122, 3, 194, 117, 224, 255, 226, 201, 194, 4, 0 })<br />
' 循环:<br />
' INC EDX<br />
' CMP BYTE [EDX],139<br />
' JNE 循环<br />
' CMP BYTE [EDX+1],229<br />
' JNE 循环<br />
' CMP BYTE [EDX+2],93<br />
' JNE 循环<br />
' CMP BYTE [EDX+3],195<br />
' JNE 有参<br />
' JMP EDX<br />
' 有参:<br />
' CMP BYTE [EDX+3],194<br />
' JNE 循环<br />
' JMP EDX<br />
' 不取:<br />
' LEAVE<br />
' RET 4

来自群组: 热心网友

year1970 · 发表于 6 小时前

感谢分享

bianyuan456 · 发表于 12 小时前

请问楼主，为啥我复制代码编译，提示
错误(4): 没有找到名为“通用型”的数据类型。
而直接下载你的源码，编译就能运行，为啥呢！？
通用型的类型怎么会没有呢！？请楼主给我解答一下，我给楼主加精币！谢谢

bianyuan456 · 发表于 12 小时前

已经顶贴，感谢您对论坛的支持！

亿万 · 发表于昨天 20:34

感谢分享

Yecate · 发表于昨天 16:58

看来推广汇编插件任重道远

天雨时晴 · 发表于昨天 12:33

太过分了在屎上雕花?
屎不要面子吗?

小虎来了 · 发表于昨天 11:21

感谢你给易语言造轮子！

trynew002 · 发表于昨天 10:18

happyweeks365 发表于 2025-4-13 09:06
666666666666666666

我也要在屎上雕朵花

1184798949 · 发表于昨天 09:44

感谢分享

		自动登录	找回密码
密码			注册

[易语言纯源码] 【蠢新学汇编】取子程序指针の四种姿势

评分

本帖被以下淘专辑推荐:

点评

点评

浏览过的版块

[易语言纯源码] 【蠢新学汇编】取子程序指针 の 四种姿势

评分

本帖被以下淘专辑推荐:

点评

点评

浏览过的版块

[易语言纯源码] 【蠢新学汇编】取子程序指针の四种姿势