麻煩厲害的大大們可以幫我看一下嗎,底下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 |