- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2011-4-14 14:44:37
|
显示全部楼层
ReadProcessMemory hProcess, ByVal DYNAMIC_BASE_ADDR, dynamic_base, 4, 0&
ReadProcessMemory hProcess, ByVal dynamic_base + &H20, role_base, 4, 0&
ReadProcessMemory hProcess, ByVal role_base + &HC44, pack_base, 4, 0&
ReadProcessMemory hProcess, ByVal pack_base + &H10, pack_count, 4, 0&
ReadProcessMemory hProcess, ByVal pack_base + &HC, pack_addr, 4, 0&
For i = 0 To pack_count - 1
ReadProcessMemory hProcess, ByVal pack_addr + i * 4, pack_addr_n, 4, 0&
If pack_addr_n > 0 Then
ReadProcessMemory hProcess, ByVal pack_addr_n + &H4, pack_type, 4, 0&
ReadProcessMemory hProcess, ByVal pack_addr_n + &H8, pack_id, 4, 0&
ReadProcessMemory hProcess, ByVal pack_addr_n + &H14, pack_item_count, 4, 0&
Select Case pack_type
Case 0, 3
NamePy1 = &HDC
NamePy2 = &HC
Case 2
NamePy1 = &HC8
NamePy2 = &H8
Case 6
NamePy1 = &HCC
NamePy2 = &HC
Case 7
NamePy1 = &HD0
NamePy2 = &H4
Case 8, 9, 23
NamePy1 = &H54
NamePy2 = &HC
Case 11
NamePy1 = &HC8
NamePy2 = &HC
Case 15
NamePy1 = &HE4
NamePy2 = &HC
Case 10, 13, 16, 19, 20, 27, 29, 31, 39
NamePy1 = &H4C
NamePy2 = &H4
Case 17
NamePy1 = &H4C
NamePy2 = &H8
Case 26
NamePy1 = &H3C
NamePy2 = &HC
Case 36
NamePy1 = &HB8
NamePy2 = &H4
Case Else
NamePy1 = &HC8
NamePy2 = &H8
End Select
ReadProcessMemory hProcess, ByVal pack_addr_n + NamePy1, NameAddr, 4, 0
ReadProcessMemory hProcess, ByVal NameAddr + NamePy2, pack_item_name(0), 64, 0
pack_item_name1 = Left$(pack_item_name, 64)
pack_item_name1 = KillChr0(Trim(pack_item_name1))
End If
Next i |
|