要怎麼找別墅任務物品ID呢?(VB)

最近才開始接觸VB，想做個飛别墅…找文找到頭都怪爆了…
…很多都是到處蒐集源碼來的囧


  Dim W2I_ROLE_BASE_ADDR As Long
  Const PW_Base = &H98B47C '動態基止
  Dim i As Integer
  Dim Mpackage As Long, Mpackagemax As Long, MpackageItem As Long, MpackageBase As Long, MpackageID As Long
    ReadProcessMemory hProcess, ByVal PW_Base, W2I_DYNAMIC_BASE_ADDR, 4, 0&  '一級基址
    ReadProcessMemory hProcess, ByVal W2I_DYNAMIC_BASE_ADDR + &H20, W2I_ROLE_BASE_ADDR, 4, 0&    '人物基址



    ReadProcessMemory hProcess, ByVal W2I_ROLE_BASE_ADDR + &HC24, Mpackage, 4, 0 '任務包裹
    ReadProcessMemory hProcess, ByVal Mpackage + &H10, Mpackagemax, 4, 0  '包裹最大容量
    ReadProcessMemory hProcess, ByVal Mpackage + &HC, MpackageItem, 4, 0 '包裹物品
    For i = 0 To Mpackagemax - 1
    ReadProcessMemory hProcess, ByVal MpackageItem + 4 * i, MpackageBase, 4, 0  '相應位置物品
    ReadProcessMemory hProcess, ByVal MpackageBase + &H8, MpackageID, 4, 0 '包裹物品ID
    Next
    Label6.Caption = MpackageID


這樣出來MpackageID不是應該要是別墅任務物品的ID嗎?
在廣海看了一堆文章，根據他們寫法，都是判定這邊接下來就要拿到任務物品ID，
但是我搞半天，試了幾隻人物都不一樣囧
請教各位大大是哪裡錯了Orz

順便在請教
#define W2I_PACK_ITEM_ADDR(i)     (*(DWORD *)(W2I_PACKAGE_ITEM_ADDR+(i)*4))             //相應位置物品基址
所謂i…
到底是什麼意思-"-|||

部分參照dece大大的教學文http://bbs.wgun.net/thread-249212-1-1.html
和廣海http://www.ghoffice.com/bbs/read-htm-tid-69884-keyword-%C8%CE%84%D5.html此篇。