haidaoni 发表于 2014-10-18 23:59:00

问道遍历NPC心得

hwnd = Plugin.Window.MousePoint()
Dim 基址, 一级偏移, 中间的缝隙
基址 = Plugin.Memory.Read32Bit(Hwnd, &H00169700)
TracePrint hex(基址)
一级偏移 = Plugin.Memory.Read32Bit(hwnd, 基址 + &H20)
TracePrint hex(一级偏移)
中间的缝隙 = Plugin.Memory.Read32Bit(hwnd, 一级偏移 + 4)
TracePrint hex(中间的缝隙)
call 遍历怪物(中间的缝隙)
/////////////////////////////////
Function 遍历怪物(除却巫山)
    TracePrint hex(除却巫山)
    Dim 室隆, 对象, 怪物命运, 左边的唇, 右边的唇,怪物贵姓
    室隆 = Plugin.Memory.Read8Bit(hwnd, 除却巫山 + &H21)
    TracePrint hex(实隆)
    If 实隆 = 0 Then
      逃跑 = Plugin.Memory.Read32Bit(hwnd, 除却巫山 + &H1g)
      TracePrint hex(逃跑)
      怪物命运 = Plugin.Memory.Read32Bit(hwnd, 逃跑 + &H8)
      TracePrint hex(怪物命运)
      怪物贵姓 = Plugin.Memory.ReadString(hwnd, 逃跑 + &H134, 16)
      TracePrint 怪物贵姓
      左边的唇 = Plugin.Memory.Read32Bit(hwnd, 怪物基址 + 0)
      遍历怪物 (左边的唇)
      右边的唇 = Plugin.Memory.Read32Bit(hwnd, 怪物基址 + &H8)
      遍历怪物 (右边的唇)
    Else
    End If
End Function

haidaoni 发表于 2014-10-19 00:04:24

左边的唇 = Plugin.Memory.Read32Bit(hwnd, 怪物基址 + 0)
总觉得这个+0好像不太妥，但又不知道那里不妥。遍历流程基本上就这个样，基址和偏移是不对的。今天才弄出来的，非常不完善。希望能对迷茫的朋友有所帮助.

haidaoni 发表于 2014-10-19 00:11:36

进入循环有个CALL，里面是二叉树遍历结构，建议看看这方面的教程。

haidaoni 发表于 2014-10-19 00:15:26

:)求大神教教如果出老君应该怎样解决？市面上的辅助是验证报警，还是远程代答？论坛有提到通过内存解决，不知是怎么回事，求教教思路啊:dizzy:
页: [1]
查看完整版本: 问道遍历NPC心得