求教【武林】显示队长ID代码错在哪里啊？

香干泥

基址:0012F824        5.25不变

组队资料，lwch提供 <谁能发布一下队伍的地址？>
队员信息 =[[[[[[12F824]+24]+434]+14]+位置]+偏移]     
位置=队友排位*4（排位0为队长，后面1~5，自己也会在内的）
偏移
当前血  +&h14
最大血  +&h2c
当前蓝  +&h18
最大蓝  +&h20
等级  +&h10
状态个数 +&h4C
队员ID  +&hC

Private Sub Timer1_Timer()
Dim base As Long '存放人物基地址
Dim hp As Long '存储生命值
Dim hpmax As Long '存储生命最大值
Dim mp As Long '存储真气值
Dim mpmax As Long '存储真气最大值
Dim name(31) As Byte '存放人名字符串
Dim name_temp As Long '存放人物值
Dim team As Long '存放队伍基地址
Dim team_dz As Long '队长基地址
Dim team_dz_id As Long '队长ID

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess Then
'人物信息
  ReadProcessMemory hProcess, ByVal &H0012F824, base, 4, 0&
  ReadProcessMemory hProcess, ByVal base + &H24, base, 4, 0& '得到为人物基地址，方便以后使用
  ReadProcessMemory hProcess, ByVal base + &H254, hp, 4, 0& '得到生命值
  ReadProcessMemory hProcess, ByVal base + &H26C, hpmax, 4, 0& '得到生命最大值
  ReadProcessMemory hProcess, ByVal base + &H258, mp, 4, 0& '得到真气值
  ReadProcessMemory hProcess, ByVal base + &H270, mpmax, 4, 0& '得到真气最大值
  ReadProcessMemory hProcess, ByVal base + &H3A0, name_temp, 4, 0& '得到人名的值
  ReadProcessMemory hProcess, ByVal name_temp, name(0), 32, 0& '转换字符串
   
  '队伍信息
ReadProcessMemory hProcess, ByVal base + &H24, team, 4, 0&
ReadProcessMemory hProcess, ByVal team + &H434, team, 4, 0&
ReadProcessMemory hProcess, ByVal team + &H14, team, 4, 0& '得到队伍基地址
ReadProcessMemory hProcess, ByVal team + &H0, team_dz, 4, 0& '得到队长基地址
ReadProcessMemory hProcess, ByVal team_dz + &HC, team_dz_id, 4, 0& '得到队长ID


  CloseHandle hProcess
End If
Label1.Caption = name '显示人物名称
Label2.Caption = "生命值：" & hp & "/" & hpmax '显示生命值
Label3.Caption = "真气值：" & mp & "/" & mpmax '显示真气值
Label4.Caption = "队员ID：" & team_dz_id '显示队长ID
End Sub

显示人物名称、生命值、真气值。
但显示队长ID为0。

不知道错哪里了？

19880801

队员信息 =[[[[[[12F824]+24]+434]+14]+位置]+偏移]  
中间  24  434  14 为十进制的  
ReadProcessMemory hProcess, ByVal base + &H24, team, 4, 0&
ReadProcessMemory hProcess, ByVal team + &H434, team, 4, 0&
ReadProcessMemory hProcess, ByVal team + &H14, team, 4, 0& '得到队伍基地址
ReadProcessMemory hProcess, ByVal team + &H0, team_dz, 4, 0& '得到队长基地址
这几句 你用16进制的  修改一下就应该行了

蓝雨

我没有来过这里