我现在改成快截键拣物品了 那个CALL是在是纳闷 我没办法了  CALL久了还掉线  还是CALL快截键盘好用点 这是我的正在用的快截键CALL  源代码

Sub call_key1()

 Dim asm As New clsASM      '创建汇编对象

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)   '获得进程操作权  

With asm       .Pushad 

 .Mov_EAX_DWORD_Ptr s_base    '基指针寻址       

 .Mov_EAX_DWORD_Ptr_EAX_Add &H28 

 .Mov_EAX_DWORD_Ptr_EAX_Add &H8E0

.Mov_EAX_DWORD_Ptr_EAX_Add &HC

  .Mov_EAX_DWORD_Ptr_EAX_Add &H4

.Mov_ECX_EAX

.Mov_EAX_DWORD_Ptr_EAX 

 .Mov_EAX_DWORD_Ptr_EAX_Add &H8

.Call_EAX

.Popad 

 .Ret

End With 

 asm.Run_ASM hProcess

我现在CALL的是2键