|
发表于 2012-9-8 22:51:36
|
显示全部楼层
.版本 2
.子程序 遍历身边
.局部变量 人物原始基址, 整数型
.局部变量 ebx保存, 整数型
.局部变量 次数, 整数型
.局部变量 遍历, 整数型
.局部变量 edi值, 整数型
.局部变量 怪的死活, 整数型
.局部变量 怪的类型, 整数型
.局部变量 怪的距离, 整数型
.局部变量 名称, 字节集
.局部变量 名称2, 文本型
.局部变量 物品ID, 整数型
.局部变量 次数2, 整数型
列表框1.清空 ()
列表框3.清空 ()
' mov eax,[0F4543C]
API读内整数 (进程句柄, 十六到十 (“100CEDC”), 人物原始基址, 4, 0)
' mov ebx,0f45444
' API读内整数 (进程句柄, 十六到十 (“100CEE4”), ebx保存, 4, 0)
' mov [ebx],eax
ebx保存 = 人物原始基址
' mov ecx,5
' s:
API读内整数 (进程句柄, 十六到十 (“01037D50”), 次数, 4, 0)
次数 = 次数 + 20
.计次循环首 (次数, )
次数2 = 次数2 + 1
' mov eax,[ebx]
人物原始基址 = ebx保存
遍历 = 人物原始基址 - 十六到十 (“0dc”)
' mov eax,[eax+0c]
API读内整数 (进程句柄, 人物原始基址 + 十六到十 (“0c”), 人物原始基址, 4, 0)
' mov [ebx],eax
ebx保存 = 人物原始基址
API读内整数 (进程句柄, 遍历 + 十六到十 (“1c”), 怪的死活, 4, 0)
名称2 = 转换Unicode转Ansi (名称)
' lea edi,[eax-0dc]
API读内整数 (进程句柄, 遍历, 怪的类型, 4, 0)
.如果真 (怪的类型 = 15768644)
.如果真 (次数2 ≠ 2)
API读内整数 (进程句柄, 遍历 + 十六到十 (“0f8”), 物品ID, 4, 0)
列表框1.加入项目 (到文本 (物品ID), )
.如果真结束
名称 = 取空白字节集 (12)
API读内存字节集 (进程句柄, 人物原始基址 + 十六到十 (“38”), 名称, 12, 0)
列表框3.加入项目 (到文本 (名称2), )
.如果真结束
.计次循环尾 ()
|
|