|
发表于 2013-12-25 23:08:54
|
显示全部楼层
广东省潮州市
[e]
.版本 2
.支持库 iext
.局部变量 次数, 整数型
.局部变量 计次, 整数型
.局部变量 临时表项, 整数型
.局部变量 计次1, 整数型
.局部变量 Memory, 整数型
.局部变量 value, 长整数型
.局部变量 btx, 变体型
.局部变量 length, 整数型
.局部变量 byte, 字节集
次数 = 到数值 (编辑框2.内容) - 到数值 (编辑框1.内容) + 1
.计次循环首 (次数, 计次)
value = 到长整数 (编辑框1.内容) + 计次
length = 取字节集长度 (到字节集 (value)) + 8
Memory = GlobalAlloc (0, length)
WriteProcessMemory (-1, Memory, 到文本 (value), length, 0)
临时表项 = 超级列表框1.插入表项 (, , , , , )
byte = 取空白字节集 (length)
RtlMoveMemory (byte, Memory, length)
超级列表框1.置标题 (临时表项, 0, 到文本 (byte))
byte = { }
GlobalFree (Memory)
.计次循环尾 ()
[/e]
|
|