尋求選怪等問題解答

請大大指點一下，
1.選怪傳入的值是否是以下圖檔中id的內容呢？
    Private Sub Call_setMons(ByVal monsSN As Long)
        Dim asm As New Project1.Class1      '使用 clsASM 類別模組
        With asm                  '  asm
            .Pushad()
            .Push(monsSN)
            '.Mov_EDI(monsSN)
            .Mov_EAX_DWORD_Ptr(PW_Base)   'Const PW_Base As Integer = &H97AC9C
            .Mov_ECX_DWORD_Ptr_EAX_Add(&H20)
            .Add_ECX(&HEC)
            .Mov_EAX(&H5B0110)
            '.Push_EDI()
            .Call_EAX()
            .Popad()
            .ret()
        End With                  '  end
        asm.inject(hProcess)
        asm.Run_ASM(hProcess, 0)
        asm.free(hProcess, 0)
    End Sub
2.座標的值是正確的嗎？為何取得的座標在傳入走路call解過並不同一點，於遊戲中座標有何差別與關係。
        ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H3C, ax, 4, 0&)
        ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H44, ay, 4, 0&)
        ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H40, az, 4, 0&)
        ax = (ax / 10) + 400
        ay = ay / 10
        az = az / 10 + 550
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
    Public Sub Call_Walk(ByVal x As Single, ByVal Y As Single, ByVal z As Single, ByVal ProcessID As Long)
        Dim asm As New Project1.Class1Class  'ClsASM.ASM

        Const Address1 = &H4626E0
        Const Address2 = &H466160
        Const Address3 = &H462AE0

        With asm
            .Pushad()
            .Mov_EAX_DWORD_Ptr(PW_Base)
            .Mov_EBX_DWORD_Ptr_EAX_Add(&H1C)
            .Mov_EBX_DWORD_Ptr_EBX_Add(&H20)
            .Mov_ECX_DWORD_Ptr_EBX_Add(&HC70)
            .Push(1)
            .Mov_EBX(Address1)
            .Call_EBX()

            .Mov_ESI_EAX()
            .Lea_EAX_DWORD_Ptr_ESP_Add(&H50)
            .Push_EAX()
            If z = 0 Then
                .Push(0)     ' 1空中 水中 0地面
            Else
                .Push(1)
            End If


            .Mov_ECX_ESI()
            .Mov_EBX(Address2)
            .Call_EBX()

            .Mov_EAX_DWORD_Ptr(PW_Base)
            .Mov_EBX_DWORD_Ptr_EAX_Add(&H1C)
            .Mov_EBX_DWORD_Ptr_EBX_Add(&H20)
            .Mov_ECX_DWORD_Ptr_EBX_Add(&HC70)
            .Push(0)
            .Push(1)
            .Push_ESI()
            .Push(1)
            .Mov_EBX(Address3)
            .Call_EBX()

            .Mov_EAX_DWORD_Ptr(PW_Base)
            .Mov_EBX_DWORD_Ptr_EAX_Add(&H1C)
            .Mov_EBX_DWORD_Ptr_EBX_Add(&H20)
            .Mov_EAX_DWORD_Ptr_EBX_Add(&HC70)
            .Mov_EAX_DWORD_Ptr_EAX_Add(&H30)
            .Mov_EAX_DWORD_Ptr_EAX_Add(&H4)
            .Mov_DWORD_Ptr_EAX_ADD(&H20, Float2Int(x))
            .Mov_DWORD_Ptr_EAX_ADD(&H28, Float2Int(Y))
            If z <> 0 Then
                .Mov_DWORD_Ptr_EAX_ADD(&H24, Float2Int(z))  '需同步上面空中水中或地面
            End If
            .Popad()
            .ret()
        End With
        asm.inject(ProcessID)
        asm.Run_ASM(ProcessID, 0)
        asm.free(ProcessID, 0)
    End Sub

3.類別資料問題， 6怪物 7npc 9寵 10 gm 如果是玩家應該是多少呢，看起來npc好像不是7玩家到比較像

版大問題一跟三.等高手幫你.我自己也不會@@
問題二我的OK.參照VIR大大的範本我是OK座標都沒錯.注意Y值.你Y跟Z弄錯.
item.SubItems(3) = CStr(Int(400 + (GwX / 10))) & "/" & CStr(Int(550 + (GwY / 10)))
item.SubItems(4) = CStr(Int(GwJl / 10))
另外我請教版大你怪物ID那寫法能公佈嗎..我的怪怪的.
還有就是請教走路到底怎樣運用.我一值搞不清楚.我做了3個TEXT用來填入座標.用了一個
Command來執行.然後把走路CALL放在主要FORM裡.這樣一值都無法完成.
請教版大分享一下做法.或這有高手願意幫忙一下.謝謝

走路call在上面我有貼出來，另外Public Sub Call_Walk(ByVal x As Single, ByVal Y As Single, ByVal z As Single, ByVal ProcessID As Long)
這個Sub要新增一個模組來放，這個sub你在是看看，另外我的call是vb.net你可能要稍微修正一下，
關於名稱我也沒成功，卡在.net的字元轉字串嶲以我也沒成功................。

[ 本帖最後由 hardy.tsai 於 2009-6-5 20:47 編輯 ]

ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H3C, ax, 4, 0&)
        ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H44, ay, 4, 0&)
        ReadProcessMemory(hProcess, W2I_ROLE_BASE_ADDR + &H40, az, 4, 0&)
請問我的偏移有錯嗎，怎麼抓資料都是怪怪的

问题1的ID就是你那图的ID