本帖最後由 death0239 於 2010-11-13 10:43 編輯
ReadProcessMemory hProcess, ByVal role_addr + &HC50, back, 4, 0& '包裹基址
ReadProcessMemory hProcess, ByVal back + &H10, backmax, 4, 0&
ReadProcessMemory hProcess, ByVal back + &HC, back1, 4, 0& '背包首址
List1.Clear
For i = 0 To backmax - 1
ReadProcessMemory hProcess, ByVal back1 + &H4 * i, item1, 4, 0& '物品偏移 i第幾個格子
If item1 > 0 Then
ReadProcessMemory hProcess, ByVal item1 + &H4, itemtype, 4, 0&
ReadProcessMemory hProcess, ByVal item1 + &H8, itemid, 4, 0&
If itemid > 8606 And itemid < 8622 And itemtype = 9 Then
ReadProcessMemory hProcess, ByVal itemid, wpname(0), 32, 0&
List1.AddItem.Index wpname '列出物品名稱
End If
End If
Next i
我的logic不大好...有大大能解釋下嗎?? 用vb寫的 |