請問一些發包call的問題

麻煩厲害的大大們可以幫我看一下嗎,底下call有什麼問題..YCT41B
我只要一執行遊戲就會盪掉,輔助程式快完成了說...YCT66B
Public Sub Fly(Flyer_ID As Long) '上下飛行器
Dim asm As New clsASM
With asm
.Pushad
.Mov_EDX_DWORD_Ptr &H60E310'CALL基址
.Push 1
.Mov_ECX Flyer_ID '飛行器ID
.Push_ECX
.Mov_ECX_DWORD_Ptr_EDX_Add &H20
.Push &HC
.Push 1
.Add_ECX &HEC
.Mov_EAX &H606820'CALL地址
.Call_EAX
.Popad
.ret
End With
asm.inject ProcID
asm.Run_ASM ProcID, 0
asm.free ProcID, 0
End Sub

Public Function UseAny(SystemID As Long, Num As Long) '使用物品
Dim asm As New clsASM
With asm
.Pushad
.Mov_EDX SystemID '物品的ID
.Mov_EAX Num '物品所在包裹的位置
.Push 1
.Push_EDX
.Push_EAX
.Push 0
.Mov_ESI_DWORD_Ptr &H60E310'CALL基址
.Mov_ESI_DWORD_Ptr_ESI_Add &H20
.Lea_ECX_DWORD_Ptr_ESI_Add &HEC
.Mov_EAX &H606820'CALL地址
.Call_EAX
.Popad
.ret
End With
asm.inject ProcID
asm.Run_ASM ProcID, 0
asm.free ProcID, 0
End Function

看不懂VB
不過你的CALL基址應該要指向一級基址$A5B90C
之後Mov_ESI_DWORD_Ptr_ESI_Add H20才能指向人勿基址

感謝RAINTCK大大的提醒,問題已解決YCT41B
另外想問一下有沒有大大能提供
藍水紫水的道具ID範圍(沒領地沒辦法買到全部的藥水 =.=)
和人物的各種正面,負面狀態ID呢??YCT65B

(W2I_RPACK_ITEM_ID > 8606) and (W2I_RPACK_ITEM_ID < 8622)   紅水
(W2I_BPACK_ITEM_ID > 8636) and (W2I_BPACK_ITEM_ID < 8652)   藍水
(W2I_PPACK_ITEM_ID > 8621) and (W2I_PPACK_ITEM_ID < 8637)   紫水

http://bbs.wgun.net/archiver/?tid-353211.html   
狀態編號，z7068在聯合國發過的文章

感謝efun大大提供的資訊(偶像出現了^^)YCT65B
在請教大大們一個問題,
我在抓取藥水冷卻時間時,抓取到的都是一個定值,
不是應該物品冷卻中,為一個倒數慢慢到0的值嗎?
不知道是不是我抓取的位址錯了,麻煩大大幫我看一下YCT41B
ReadProcessMemory ProcessID, ByVal W2I_ROLE_BASE_ADDR + &HC50, W2I_PACKAGE_ADDR, 4, 0& '包裹基址
ReadProcessMemory ProcessID, ByVal W2I_PACKAGE_ADDR + &H10, PackageMax, 4, 0& '背包最大格數
ReadProcessMemory ProcessID, ByVal W2I_PACKAGE_ADDR + &HC, W2I_PACKAGE_ITEM_ADDR, 4, 0& '背包基址

For i = 0 To PackageMax - 1 '遍歷背包
ReadProcessMemory ProcessID, ByVal W2I_PACKAGE_ITEM_ADDR + 4 * i, W2I_PACK_ITEM_ADDR, 4, 0& '物品偏移
If W2I_PACK_ITEM_ADDR <> 0 Then
ReadProcessMemory ProcessID, ByVal W2I_PACK_ITEM_ADDR + &H4, W2I_PACK_ITEM_TYPE, 4, 0&   '道具種類,藥水是9
ReadProcessMemory ProcessID, ByVal W2I_PACK_ITEM_ADDR + &H8, W2I_PACK_ITEM_ID, 4, 0&     '道具id
If (W2I_PACK_ITEM_ID > 8621) And (W2I_PACK_ITEM_ID < 8637) And (W2I_PACK_ITEM_TYPE = 9) Then
ReadProcessMemory ProcessID, ByVal W2I_PACK_ITEM_ADDR + &H9C8, red_time, 4, 0& '紅水冷卻時間

冷卻時間是 W2I_ROLE_BASE_ADDR + &H9C8
不是每個紅水都一個冷卻時間

感謝rocet大大跟板上利害的大大們的指導,YCT56B
我需要的輔助程式功能問題大都已經解決了,
在來就慢慢找出程式Bug跟優化程式了 ^^