置入代码装逼系列之 - 选择执行子程序

福仔

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
变量	逻辑型
执行子程序返回的结果	整数型

变量 ＝ 信息框 (“确定钮=执行第一个子程序,取消钮执行第二个子程序”, #是否钮, , ) ＝ #是钮
执行子程序返回的结果 ＝ 汇编_选择子程序 (变量, &测试子程序1, &测试子程序2, “测试传递的参数”, 121007124)
信息框 (“我是执行子程序后返回的结果:” ＋ 到文本 (执行子程序返回的结果), 0, , )

子程序名	返回值类型	公开	备 注
汇编_选择子程序	整数型
参数名	类 型	参考	可空	数组	备 注
用作判断的逻辑值	逻辑型				如果该值为真，将执行第一个子程序，否则将执行第二个子程序。
欲执行子程序1	子程序指针
欲执行子程序2	子程序指针
测试参数1	通用型
测试参数2	通用型

置入代码 ({ 102, 139, 77, 8, 102, 129, 249, 1, 0, 117, 17, 139, 69, 12, 139, 77, 20, 139, 85, 24, 82, 81, 255, 208, 201, 194, 4, 0, 139, 69, 16, 139, 77, 20, 139, 85, 24, 82, 81, 255, 208, 201, 194, 4, 0 })
' mov cx,[ebp+08]
' cmp cx,1
' jne demo
' mov eax,[ebp+12]
' mov ecx,[ebp+20]
' mov edx,[ebp+24]
' push edx
' push ecx
' call eax
' leave
' ret 4
' demo:
' mov eax,[ebp+16]
' mov ecx,[ebp+20]
' mov edx,[ebp+24]
' push edx
' push ecx
' call eax
' leave
' ret 4
返回 (0)

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

信息框 (“我是参数子程序1” ＋ #换行符 ＋ “第一个参数是:” ＋ 到文本 (测试参数1) ＋ #换行符 ＋ “第二个参数是:” ＋ 到文本 (测试参数2) ＋ #换行符 ＋ “我的返回值是999”, 0, , )
返回 (999)

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

信息框 (“我是参数子程序2:” ＋ #换行符 ＋ “第一个参数是:” ＋ 到文本 (测试参数1) ＋ #换行符 ＋ “第二个参数是:” ＋ 到文本 (测试参数2) ＋ #换行符 ＋ “我的返回值是888”, 0, , )
返回 (888)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 变量, 逻辑型<br /> .局部变量 执行子程序返回的结果, 整数型<br /> <br /> 变量 ＝ 信息框 (“确定钮=执行第一个子程序,取消钮执行第二个子程序”, #是否钮, , ) ＝ #是钮<br /> 执行子程序返回的结果 ＝ 汇编_选择子程序 (变量, &测试子程序1, &测试子程序2, “测试传递的参数”, 121007124)<br /> 信息框 (“我是执行子程序后返回的结果:” ＋ 到文本 (执行子程序返回的结果), 0, , )<br /> <br /> .子程序 汇编_选择子程序, 整数型<br /> .参数 用作判断的逻辑值, 逻辑型, , 如果该值为真，将执行第一个子程序，否则将执行第二个子程序。<br /> .参数 欲执行子程序1, 子程序指针<br /> .参数 欲执行子程序2, 子程序指针<br /> .参数 测试参数1, 通用型<br /> .参数 测试参数2, 通用型<br /> <br /> 置入代码 ({ 102, 139, 77, 8, 102, 129, 249, 1, 0, 117, 17, 139, 69, 12, 139, 77, 20, 139, 85, 24, 82, 81, 255, 208, 201, 194, 4, 0, 139, 69, 16, 139, 77, 20, 139, 85, 24, 82, 81, 255, 208, 201, 194, 4, 0 })<br /> ' mov cx,[ebp+08]<br /> ' cmp cx,1<br /> ' jne demo<br /> ' mov eax,[ebp+12]<br /> ' mov ecx,[ebp+20]<br /> ' mov edx,[ebp+24]<br /> ' push edx<br /> ' push ecx<br /> ' call eax<br /> ' leave<br /> ' ret 4<br /> ' demo:<br /> ' mov eax,[ebp+16]<br /> ' mov ecx,[ebp+20]<br /> ' mov edx,[ebp+24]<br /> ' push edx<br /> ' push ecx<br /> ' call eax<br /> ' leave<br /> ' ret 4<br /> 返回 (0)<br /> <br /> .子程序 测试子程序1, 整数型<br /> .参数 测试参数1, 文本型<br /> .参数 测试参数2, 整数型<br /> <br /> 信息框 (“我是参数子程序1” ＋ #换行符 ＋ “第一个参数是:” ＋ 到文本 (测试参数1) ＋ #换行符 ＋ “第二个参数是:” ＋ 到文本 (测试参数2) ＋ #换行符 ＋ “我的返回值是999”, 0, , )<br /> 返回 (999)<br /> <br /> .子程序 测试子程序2, 整数型<br /> .参数 测试参数1, 文本型<br /> .参数 测试参数2, 整数型<br /> <br /> 信息框 (“我是参数子程序2:” ＋ #换行符 ＋ “第一个参数是:” ＋ 到文本 (测试参数1) ＋ #换行符 ＋ “第二个参数是:” ＋ 到文本 (测试参数2) ＋ #换行符 ＋ “我的返回值是888”, 0, , )<br /> 返回 (888)

脱裤子放P系列, 根据第一个参数给的值来判断执行哪个子程序,跟易语言里的选择命令差不多
初学汇编,代码有点乱

廿六

福仔啥时候换头像了，爷青结

1369469202

提示找不到通用型

1150129654

6666666666666666666666

Engeng

为什么你可以定义通用型

苏烟式

直接调用寄存器

1. mov cx,[ebp+08]
   
2. cmp cx,1
   
3. jne demo1
   
4. push [ebp+24]
   
5. push [ebp+20]
   
6. call [ebp+12]
   
7. jmp demo2
   
8. demo1:
   
9. push [ebp+24]
   
10. push [ebp+20]
    
11. call [ebp+16]
    
12. demo2:
    
13. leave
    
14. ret 4

复制代码

う网淅乄

福仔 发表于 2017-1-11 15:37
我觉得判断方便,不过置入代码可以装逼....

的确装逼

福仔

う网淅乄 发表于 2017-1-11 15:25
其实可以用判断来实现...

我觉得判断方便,不过置入代码可以装逼....

う网淅乄

leiyh 发表于 2017-1-11 14:28
这个完善下 刚好能弥补 多项选择()处理子程序的不足

其实可以用判断来实现...

leiyh

这个完善下 刚好能弥补 多项选择()处理子程序的不足