[delphi]发段完美国际注入跑路call 全部原代码1

 我才学DELPHI 两天  真是头疼呐
现在卡到选怪上了 以下是我的vb 代码

'----怪物信息---------------------------------------------
    ReadProcessMemory hProcess, ByVal W2i_Base, ECXI, 4, 0
    ReadProcessMemory hProcess, ByVal ECXI + &H8, eax, 4, 0
    ReadProcessMemory hProcess, ByVal eax + &H24, ECXI, 4, 0  '怪物指针
    ReadProcessMemory hProcess, ByVal ECXI + &H14, GwSL, 4, 0  '读出怪物数量
    ReadProcessMemory hProcess, ByVal ECXI + &H24, tmp1, 4, 0  '读出怪物数组的最大值
    ReadProcessMemory hProcess, ByVal ECXI + &H18, tmp2, 4, 0  '读出怪物列表的首地址
    '---------------------------------------------------------
    GwJll = 100
    ListView1.ListItems.Clear '清空ListView
   
    Do While (i < 768)
       
        ReadProcessMemory hProcess, ByVal tmp2 + 4 * i, eax, 4, 0          '读取怪物偏移
       
        If eax > 0 Then
            ReadProcessMemory hProcess, ByVal eax + &H4, eax, 4, 0          '读取怪物信息指针
            ReadProcessMemory hProcess, ByVal eax + &H134, GwHP, 4, 0      '怪物当前血值
            ReadProcessMemory hProcess, ByVal eax + &H14C, GwHPMAX, 4, 0    '怪物血值上限
            ReadProcessMemory hProcess, ByVal eax + &H124, GwLv, 2, 0      '怪物等级
            ReadProcessMemory hProcess, ByVal eax + &H3C, GwX, 4, 0        '怪物X坐标
            ReadProcessMemory hProcess, ByVal eax + &H44, GwY, 4, 0        '怪物Y坐标
            ReadProcessMemory hProcess, ByVal eax + &H40, GwZ, 4, 0        '怪物Z坐标
            ReadProcessMemory hProcess, ByVal eax + &H254, GwJl, 4, 0      '人与怪物距离
            ReadProcessMemory hProcess, ByVal eax + &H120, GwClass, 4, 0    '怪物类别
            ReadProcessMemory hProcess, ByVal eax + &HB4, GwZl, 4, 0        '怪物种类  6为怪，7为NPC，9为宠物 A为GM
            ReadProcessMemory hProcess, ByVal eax + &H11C, GwId, 4, 0      '怪物ID
            '----怪物名称------------------------------
            ReadProcessMemory hProcess, ByVal eax + &H230, ECXI, 4, 0      '读取怪物名称首地址 武林&H20C 完美&H230
            ReadProcessMemory hProcess, ByVal ECXI, GwNameb(0), 64, 0      '怪物名称
            Gwname = Left$(GwNameb, 64)
            Gwname = KillChr0(Trim(Gwname))
            '------------------------------------------
            Me.Caption = "周围怪物数量:" & CStr(GwSL)
            If GwLv <> 0 Then
             
                If GwZl = 6 Then
                    Set item = ListView1.ListItems.Add(, "ID" & CStr(i), Gwname) '写入表格
                    item.SubItems(1) = GwLv
                    item.SubItems(2) = CStr(Int(400 + (GwX / 10))) & " / " & CStr(Int(550 + (GwY / 10))) & " ↑ " & CStr(Int(GwZ / 10))
                    item.SubItems(3) = CStr(GwJl) 'CStr(Int(GwJl / 10))