修改可空参数是否为空

福仔

  

子程序名	返回值类型	公开	备 注
_临时子程序

子程序1 (取现行时间 ())

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
参数	日期时间型

调试输出 (是否为空 (参数))  ' 输出 假
修改可空参数是否为空 (参数, 取反 (是否为空 (参数)), #日期时间型 )
调试输出 (是否为空 (参数))  ' 输出 真

子程序名	返回值类型	公开	备 注
修改可空参数是否为空			调用后会影响堆栈的数据, 传递的参数必须要有可空标志, 否则会影响到其他参数的值, 可能会造成崩溃
参数名	类 型	参考	可空	数组	备 注
参数	通用型				需要勾上参考, 把参数地址传递过来
是否可空	逻辑型
参数类型	整数型				没办法判断类型, 不同类型处理方式不同, 需要外部传递参数类型进来

变量名	类 型	静态	数组	备 注
ebp	整数型			回溯上一个子程序的ebp
pArg	整数型			传递过来的参数地址
pStack	整数型			从ebp里枚举的栈地址
i	整数型
pEmpty	整数型			参数可空的地址, 这个地址是参数的下一个参数, 可空参数实际是传递了两个参数, 先传递 是否传递了数据, 再传递数据
offset	整数型

ebp ＝ 0
pArg ＝ 取指针_通用型 (参数)
置入代码 ({ 139, 69, 0, 137, 69, 252 })  ' mov eax, [ebp]    mov [ebp-4], eax
' ebp+0=上一个子程序栈底地址
' ebp+4=返回地址
' 所以这里循环从8开始, 循环到1000, 相当于(1000-8)/4 个参数
变量循环首 (8, 1000, 4, i)
' 这里就处理3个部分, 一个是4个字节的数据, 一个是8个字节的数据, 另一个就是变长数据
' 4个字节包括, 字节型, 短整数型, 整数型, 小数型, 逻辑型, 子程序指针 这几种类型
' 8个字节包括 长整数, 双精度, 日期时间 这3个类型
' 剩下的都是变长参数, 只能用一块内存来存放, 然后传递地址过来
' 4/8个字节的参数都是 ebp+xx = 参数在栈上的地址, 参数在栈上的地址 -> 参数数据
' 变长参数是 ebp+xx = 参数在栈上的地址, 参数在栈上的地址 -> 存放数据的地址 -> 数据
' 所以处理变长参数这里是读了一次内存
判断 (参数类型 ＝ #整数型 或 参数类型 ＝ #字节型 或 参数类型 ＝ #短整数型 或 参数类型 ＝ #小数型 或 参数类型 ＝ #逻辑型 或 参数类型 ＝ #子程序指针型 )
' 4字节数值型,ebp+i 就是变量地址, 不能再读内存
pStack ＝ ebp ＋ i
判断 (参数类型 ＝ #文本型 或 参数类型 ＝ #字节集型 )
pStack ＝ 指针到整数 (ebp ＋ i)  ' 需要读一层内存获取参数在栈上的地址
判断 (参数类型 ＝ #长整数型 或 参数类型 ＝ #双精度小数型 或 参数类型 ＝ #日期时间型 )
' 8字节的数值型
pStack ＝ ebp ＋ i
offset ＝ 4  ' 后面计算可空地址多增加的值

输出调试文本 (“不支持传递这种数据类型”)
暂停 ()
返回 ()

如果真 (pStack ＝ pArg)  ' 相等的话就得到了这个变量在栈里的地址, +4的位置就是可空的地址
pEmpty ＝ ebp ＋ i ＋ 4 ＋ offset  ' ebp+i得到参数地址, 再+4就是下一个成员的地址
跳出循环 ()

变量循环尾 ()
如果真 (pEmpty ≠ 0)
__set (pEmpty, 0, 选择 (是否可空, 0, 1))

子程序名	返回值类型	公开	备 注
取指针_通用型	整数型		取到的是变量在栈中的地址,和 取变量地址() 一样
参数名	类 型	参考	可空	数组	备 注
变量	通用型				基本支持所有类型

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

子程序名	返回值类型	公开	备 注
__set	整数型		请确保指针的合法性,写到内存
参数名	类 型	参考	可空	数组	备 注
lpAddr	整数型				内存地址
offset	整数型				偏移
value	整数型				写入值

置入代码 ({ 139, 93, 8, 139, 77, 12, 139, 4, 25, 139, 85, 16, 137, 20, 25, 201, 194, 12, 0 })
' mov ebx,[ebp+8]
' mov ecx,[ebp+12]
' mov eax,[ebx+ecx]
' mov edx,[ebp+16]
' mov [ebx+ecx],edx
' leave
' ret 12
返回 (0)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> <br /> 子程序1 (取现行时间 ())<br /> <br /> <br /> .子程序 子程序1<br /> .参数 参数, 日期时间型, 可空<br /> <br /> 调试输出 (是否为空 (参数))  ' 输出 假<br /> 修改可空参数是否为空 (参数, 取反 (是否为空 (参数)), #日期时间型)<br /> 调试输出 (是否为空 (参数))  ' 输出 真<br /> <br /> .子程序 修改可空参数是否为空, , , 调用后会影响堆栈的数据, 传递的参数必须要有可空标志, 否则会影响到其他参数的值, 可能会造成崩溃<br /> .参数 参数, 通用型, 参考, 需要勾上参考, 把参数地址传递过来<br /> .参数 是否可空, 逻辑型<br /> .参数 参数类型, 整数型, , 没办法判断类型, 不同类型处理方式不同, 需要外部传递参数类型进来<br /> .局部变量 ebp, 整数型, , , 回溯上一个子程序的ebp<br /> .局部变量 pArg, 整数型, , , 传递过来的参数地址<br /> .局部变量 pStack, 整数型, , , 从ebp里枚举的栈地址<br /> .局部变量 i, 整数型<br /> .局部变量 pEmpty, 整数型, , , 参数可空的地址, 这个地址是参数的下一个参数, 可空参数实际是传递了两个参数, 先传递 是否传递了数据, 再传递数据 <br /> .局部变量 offset, 整数型<br /> <br /> ebp ＝ 0<br /> pArg ＝ 取指针_通用型 (参数)<br /> 置入代码 ({ 139, 69, 0, 137, 69, 252 })  ' mov eax, [ebp]    mov [ebp-4], eax<br /> <br /> <br /> ' ebp+0=上一个子程序栈底地址<br /> ' ebp+4=返回地址<br /> ' 所以这里循环从8开始, 循环到1000, 相当于(1000-8)/4 个参数<br /> .变量循环首 (8, 1000, 4, i)<br />     ' 这里就处理3个部分, 一个是4个字节的数据, 一个是8个字节的数据, 另一个就是变长数据<br />     ' 4个字节包括, 字节型, 短整数型, 整数型, 小数型, 逻辑型, 子程序指针 这几种类型<br />     ' 8个字节包括 长整数, 双精度, 日期时间 这3个类型<br />     ' 剩下的都是变长参数, 只能用一块内存来存放, 然后传递地址过来<br />     ' 4/8个字节的参数都是 ebp+xx = 参数在栈上的地址, 参数在栈上的地址 -> 参数数据<br />     ' 变长参数是 ebp+xx = 参数在栈上的地址, 参数在栈上的地址 -> 存放数据的地址 -> 数据<br />     ' 所以处理变长参数这里是读了一次内存<br />     .判断开始 (参数类型 ＝ #整数型 或 参数类型 ＝ #字节型 或 参数类型 ＝ #短整数型 或 参数类型 ＝ #小数型 或 参数类型 ＝ #逻辑型 或 参数类型 ＝ #子程序指针型)<br />         ' 4字节数值型,ebp+i 就是变量地址, 不能再读内存<br />         pStack ＝ ebp ＋ i<br />     .判断 (参数类型 ＝ #文本型 或 参数类型 ＝ #字节集型)<br />         pStack ＝ 指针到整数 (ebp ＋ i)  ' 需要读一层内存获取参数在栈上的地址<br />     .判断 (参数类型 ＝ #长整数型 或 参数类型 ＝ #双精度小数型 或 参数类型 ＝ #日期时间型)<br />         ' 8字节的数值型<br />         pStack ＝ ebp ＋ i<br />         offset ＝ 4  ' 后面计算可空地址多增加的值<br /> <br />     .默认<br />         输出调试文本 (“不支持传递这种数据类型”)<br />         暂停 ()<br />         返回 ()<br />     .判断结束<br /> <br />     .如果真 (pStack ＝ pArg)  ' 相等的话就得到了这个变量在栈里的地址, +4的位置就是可空的地址<br />         pEmpty ＝ ebp ＋ i ＋ 4 ＋ offset  ' ebp+i得到参数地址, 再+4就是下一个成员的地址<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> .如果真 (pEmpty ≠ 0)<br />     __set (pEmpty, 0, 选择 (是否可空, 0, 1))<br /> <br /> <br /> .子程序 取指针_通用型, 整数型, , 取到的是变量在栈中的地址,和 取变量地址() 一样<br /> .参数 变量, 通用型, 参考, 基本支持所有类型<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 __set, 整数型, , 请确保指针的合法性,写到内存<br /> .参数 lpAddr, 整数型, , 内存地址<br /> .参数 offset, 整数型, , 偏移<br /> .参数 value, 整数型, , 写入值<br /> <br /> 置入代码 ({ 139, 93, 8, 139, 77, 12, 139, 4, 25, 139, 85, 16, 137, 20, 25, 201, 194, 12, 0 })<br /> ' mov ebx,[ebp+8]<br /> ' mov ecx,[ebp+12]<br /> ' mov eax,[ebx+ecx]<br /> ' mov edx,[ebp+16]<br /> ' mov [ebx+ecx],edx<br /> ' leave<br /> ' ret 12<br /> 返回 (0)

没法做到更简单的, 只能在调用的时候传递参数是什么类型了, 自定义数据类型可以指定是文本型或者字节集型

刚刚问答区看到一个说dll无法加载的问题, 然后就推荐我的 https://bbs.125.la/forum.php?mod=viewthread&tid=14748469 这个帖子
然后看到楼下有人问怎么修改可空参数的可空
闲着没事, 写个子程序处理一下....

这里复制的通用型用不了, 大家可以去找个有通用型的源码复制一下
或者利用易语言助手的自动变量弄一个通用型出来, 比如 a=取字节集数据() 敲回车就能得到一个通用型变量, 自己复制一下这个变量替换到源码参数的位置就行了
修改可空参数是否为空.e (6.41 KB, 下载次数: 18)

2023-8-11 14:13 上传

点击文件名下载附件

wuya560

感谢分享！

DKSO

开源精神必须支持~

snufgpl

开源精神必须支持~

badlwolf

学习一下,谢谢分享

不知道

不错，正好需要

亿万

感谢分享

396384183

支持开源

qqmqqg

感谢分享，很给力！~

bianyuan456

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