看流星社区

 找回密码
 注册账号
查看: 2904|回复: 0

[VB] [分享]天龙八部 地面包数据分析

[复制链接]

该用户从未签到

发表于 2013-5-9 09:35:03 | 显示全部楼层 |阅读模式
地面包的ID必须要用二叉树遍历,以下是VB递归遍历部分源码:
3个类型区分出地面包:语言说不清,看代码:
if (lei=&H7DD458 and lei3=7 and lei2=0) then
   就是地面包
end if
lei的值(&H7DD458)和基址一样随游戏更新会改变,具体判断方法是
在野外打一个怪,有地面包掉落,看lei3=7 lei2=0时,lei的值就是判断标志
多说几句:这个判断很重要,lei3=7 and lei2=0只是怪物身上掉落的物品,那四绝庄
闫墨和庞企放出的炸弹也是属于"掉落物品",要是也去捡,不是找死吗?

    readProcessMemory hprocess, ByVal (lpBaseAddr), ByVal VarPtr(addr), 4, 0&
    readProcessMemory hprocess, ByVal (addr + &H58), ByVal VarPtr(cc), 4, 0&
    readProcessMemory hprocess, ByVal (cc + &H4), ByVal VarPtr(dd), 4, 0&
    Call VisitTNT(dd, hprocess)
Sub VisitTNT(root As Long, hprocess As Long)
   
    Dim lei2 As Long, lei1 As Long, lei As Long
    Dim cc As Long, xx As Single, dd As Long,  lei3 As Long, idd As Long, yy As Single, xue As Single
    Dim left1 As Long, right1 As Long
    Dim flag1 As Byte
    readProcessMemory hprocess, ByVal (root + &H15), ByVal VarPtr(flag1), 1, 0&   
    readProcessMemory hprocess, ByVal (root + &H8), ByVal VarPtr(right1), 4, 0&
    readProcessMemory hprocess, ByVal (root + &H0), ByVal VarPtr(left1), 4, 0&
    readProcessMemory hprocess, ByVal (root + &H10), ByVal VarPtr(dd), 4, 0&    'dd =EAX+10
    If flag1 = 0 Then
               
        readProcessMemory hprocess, ByVal (dd + 0), ByVal VarPtr(lei), 4, 0&           '类型1
        readProcessMemory hprocess, ByVal (dd + &H34), ByVal VarPtr(idd), 4, 0&         'id      
            
        readProcessMemory hprocess, ByVal (dd + &H2C), ByVal VarPtr(cc), 4, 0&
        readProcessMemory hprocess, ByVal (cc + &H18), ByVal VarPtr(lei3), 4, 0&       '类型3: 3 怪和宝宝  7 包 8 矿,草 11 玩家
       '-------------------------------------------------------------------------
        readProcessMemory hprocess, ByVal (dd + &H1DC), ByVal VarPtr(cc), 4, 0&
        readProcessMemory hprocess, ByVal (cc + &H4), ByVal VarPtr(cc), 4, 0&
        '------------------------------------------------------------------------
        readProcessMemory hprocess, ByVal (cc + 8), ByVal VarPtr(xue), 4, 0&          '血量
        readProcessMemory hprocess, ByVal (cc + &H4c), ByVal VarPtr(lei2), 4, 0&      '类型2 :-1 宝宝,0 包草矿,1少林 2明教 3丐帮   
      
        Call VisitTNT(left1, hprocess)        
        Call VisitTNT(right1, hprocess)
    End If   
End Sub
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 00:34

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表