关于网络游戏外挂，VB调用Call

Sub CallAsmRun(x As Single, y As Single, z As Single, fly As Long) '走路
Dim asm As New clsASM
Const Address1 = &H45E2F0
Const Address2 = &H461D60
Const Address3 = &H45E6F0
With asm
  .Pushad '!PUSHAD
  .SUB_ESP &HC '!SUB ESP,&HC
  .Mov_EAX_DWORD_Ptr World2_Asm '!MOV EAX, DWORD PTR DS:[%W2i_Base]
  .Mov_EAX_DWORD_Ptr_EAX_Add &H1C '!MOV EAX, DWORD PTR DS:[EAX+&H1C]
  .Mov_ESI_DWORD_Ptr_EAX_Add &H20 '!MOV ESI, DWORD PTR DS:[EAX+&H20]
  .Mov_ECX_DWORD_Ptr_ESI_Add &HB74 '!MOV ECX, DWORD PTR DS:[ESI+&HB74]
  .Push 1 '!PUSH 1
  .Mov_EDX Address1 '!MOV EDX,&H45E9B0
  .Call_EDX '!CALL EDX
  .Mov_EDI_EAX '!MOV EDI, EAX
  .Mov_EAX Float2Int(x) '!MOV EAX,x
  .Mov_DWORD_Ptr_ESP_EAX '!MOV [ESP],EAX
  .Mov_EAX Float2Int(z) '!MOV EAX,z
  .Mov_DWORD_Ptr_ESP_ADD_EAX &H4 '!MOV [ESP+4],EAX
  .Mov_EAX Float2Int(y) '!MOV EAX,y
  .Mov_DWORD_Ptr_ESP_ADD_EAX &H8 '!MOV [ESP+8],EAX
  .Push_ESP '!PUSH ESP
&