Sub Call_KJ(keyptrID As Long) '快捷键f0--f8
Dim h As Long
Dim asm As New clsASM
With asm
.Pushad
.Mov_EAX_DWORD_Ptr jiZhi
.Mov_EAX_DWORD_Ptr_EAX_Add renJiZhi1
.Mov_EAX_DWORD_Ptr_EAX_Add renJiZhi2 '&H28
.Mov_EAX_DWORD_Ptr_EAX_Add &H968
.Mov_EAX_DWORD_Ptr_EAX_Add &HC
.Mov_EAX_DWORD_Ptr_EAX_Add &H4 * keyptrID
.Mov_ECX_EAX
.Mov_EDX_DWORD_Ptr_ECX
.Mov_EAX_DWORD_Ptr_EDX_Add &H8
.Call_EAX
.Popad
.Ret
End With

 h = 进程操作点
  asm.Run_ASM h
  CloseHandle h
End Sub