你用这个试一试 有位 大大
发的
Sub CallFastkey(skey As Long) '20016
Dim asm As New clsASM '快捷键
'----
Dim EDINUM As Long
Select Case skey
Case 0
EDINUM = &H3B
Case 1
EDINUM = &H3C
Case 2
EDINUM = &H3D
Case 3
EDINUM = &H3E
Case 4
EDINUM = &H3F
Case 5
EDINUM = &H40
Case 6
EDINUM = &H41
Case 7
EDINUM = &H42
End Select
'---
With asm
.Pushad
.Mov_EDI EDINUM
.Push skey '键位置从0算起这里
.Mov_EAX &H5AC0D0
.Call_EAX
.Popad
.ret
End With
asm.Run_ASM pid
End Sub