|
|
提醒：若下载的软件是收费的"请不要付款"，可能是骗子，请立即联系本站举报，执意要付款被骗后本站概不负责。(任何交易请走第三方中介，请勿直接付款交易以免被骗！切记).
以下给出无bug自由Type程序
.版本 2
.子程序 自由TYpe, 字节集, , 返回12字节数据段
.参数 属性结构, 属性结构, 数组
.参数 指定地址, , 可空
.局部变量 d1
.局部变量 d2
.局部变量 d3
.局部变量 d4
.局部变量 s1
.局部变量 s2
.局部变量 s3
.局部变量 s4
.如果 (是否为空 (指定地址))
内存操作.打开进程 (进程ID)
d1 ＝ 内存操作.创建内存 (4096)
.否则
d1 ＝ 指定地址 ' 空白地址
.如果结束
d4 ＝ d1 ＋ 取数组成员数 (属性结构) × 68 ' 表明一个结构是68字节?
.计次循环首 (取数组成员数 (属性结构), s1) ' s1是属性结构的递增变量
d2 ＝ d4 ' d2是d4的备份算是前一个
d4 ＝ d4 ＋ 取数组成员数 (属性结构 [s1].整数段) × 20 ' d4递增？整数段的乘20？一个整数段是多少字节？属性结构[].整数段是20字节
内存操作.写整数 (d1 ＋ (s1 － 1) × 68, d1 ＋ 16 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 16 ＋ (s1 － 1) × 68, d1 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 4 ＋ (s1 － 1) × 68, d2)
内存操作.写整数 (d1 ＋ 8 ＋ (s1 － 1) × 68, d4)
内存操作.写整数 (d1 ＋ 12 ＋ (s1 － 1) × 68, d4)
内存操作.写整数 (d1 ＋ 20 ＋ (s1 － 1) × 68, d1 ＋ 36 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 36 ＋ (s1 － 1) × 68, d1 ＋ 20 ＋ (s1 － 1) × 68)
.计次循环首 (取数组成员数 (属性结构 [s1].整数段), s2)
内存操作.写整数 (d2, d2 ＋ 16)
内存操作.写整数 (d2 ＋ 16, d2)
内存操作.写整数 (d2 ＋ 4, d4)
.计次循环首 (取数组成员数 (属性结构 [s1].整数段 [s2].参数), s3)
内存操作.写整数 (d4, 属性结构 [s1].整数段 [s2].参数 [s3])
d4 ＝ d4 ＋ 4
.计次循环尾 ()
内存操作.写整数 (d2 ＋ 8, d4)
内存操作.写整数 (d2 ＋ 12, d4)
d2 ＝ d2 ＋ 20
.计次循环尾 ()
d2 ＝ d4
d4 ＝ d4 ＋ 取数组成员数 (属性结构 [s1].小数段) × 20
内存操作.写整数 (d1 ＋ 24 ＋ (s1 － 1) × 68, d2)
内存操作.写整数 (d1 ＋ 28 ＋ (s1 － 1) × 68, d4)
内存操作.写整数 (d1 ＋ 32 ＋ (s1 － 1) × 68, d4)
.计次循环首 (取数组成员数 (属性结构 [s1].小数段), s2)
d3 ＝ d4
d4 ＝ d4 ＋ 取数组成员数 (属性结构 [s1].小数段 [s2].小数) × 20
内存操作.写整数 (d2, d2 ＋ 16)
内存操作.写整数 (d2 ＋ 16, d2)
内存操作.写整数 (d2 ＋ 4, d3)
内存操作.写整数 (d2 ＋ 8, d4)
内存操作.写整数 (d2 ＋ 12, d4)
d2 ＝ d2 ＋ 20
.计次循环首 (取数组成员数 (属性结构 [s1].小数段 [s2].小数), s3)
内存操作.写整数 (d3, d3 ＋ 16)
内存操作.写整数 (d3 ＋ 16, d3)
内存操作.写整数 (d3 ＋ 4, d4)
.计次循环首 (取数组成员数 (属性结构 [s1].小数段 [s2].小数 [s3].参数), s4)
内存操作.写小数 (d4, 属性结构 [s1].小数段 [s2].小数 [s3].参数 [s4])
d4 ＝ d4 ＋ 4
.计次循环尾 ()
内存操作.写整数 (d3 ＋ 8, d4)
内存操作.写整数 (d3 ＋ 12, d4)
d3 ＝ d3 ＋ 20
.计次循环尾 ()
.计次循环尾 ()
内存操作.写整数 (d1 ＋ 40 ＋ (s1 － 1) × 68, d1 ＋ 56 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 56 ＋ (s1 － 1) × 68, d1 ＋ 40 ＋ (s1 － 1) × 68)
.计次循环尾 ()
返回 (到字节集 (d1) ＋ 到字节集 (到整数 (d1 ＋ 取数组成员数 (属性结构) × 68)) ＋ 到字节集 (到整数 (d1 ＋ 取数组成员数 (属性结构) × 68)))
联系我时，请说是在 挂海论坛 上看到的，谢谢！ |
上一篇： 高中毕业，学易语言可以吗？下一篇： XNF刷图源码8.20
免责声明：
1、本主题所有言论和图片纯属会员个人意见，与本论坛立场无关。一切关于该内容及资源商业行为与www.52ghai.com无关。
2、本站提供的一切资源内容信息仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。
3、本站信息来自第三方用户，非本站自制，版权归原作者享有，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑或手机中彻底删除上述内容。
4、如果您喜欢该程序，请支持正版，购买注册，得到更好的正版服务。如有侵犯你版权的，请邮件与我们联系删除（邮箱:xhzlw@foxmail.com），本站将立即改正。
|
好评
贡献
海币
交易币
发表于 2015-8-20 19:35:42
收藏
转播
淘帖
支持
反对
提升卡
置顶卡
变色卡
千斤顶
照妖镜