怎么模拟键盘按键ALT+1？？？？？？？在就是怎么在按了一个键后停几秒在按另一个？

Question

要的是这个吗：按下某组键(HotKey)便执行某程式在Dos的年代，我们常会以拦截中断向量的方式，做到按下某个hotkey而自动执行某个程式，在Window呢，也可以，不过它是用RegisterHotkey API来完成。使用RegisterHotkey的概念是，它会定义一组按键的组合，当使用者不管在哪个程式之中，按下Window有注册的HotKey时，OS会传送WM_HOTKEY 的讯息给待接收该讯息的Window，而该Window收到WM_HOTKEY时，便可知道有本身Thread所定义的HotKey被按下，於是可以从wParam, lParam来得知是哪一组HotKey被按下。RegisterHotKey(
ByVal hwnd As Long , //接收Hotkey的Window
ByVal idHotKey as Long, // identifier of hot key,range 0x0000 through 0xBFFF
ByVal Modifiers As Long, // 定义alt shift control等的组合
ByVal uVirtKey As Long // virtual-key code
)WM_HOTKEY 叁数的定义
idHotKey = wParam; // identifier of hot key 
Modifiers = (UINT) LOWORD(lParam); // key-modifier flags 
uVirtKey = (UINT) HIWORD(lParam); // virtual-key code所以了，除了设定RegisterHotkey外，另要使用SubClassing的技巧才会得知HotKey被按下；最後，程式结束前要使用UnRegisterHotkey将HotKey的定义取消掉。以下程式功能是：不管在哪个程式中，只要按下ALT-SHIFT-G 便执行NotePad。
'以下在.BasOption ExplicitDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As LongPublic Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const GWL_WNDPROC = (-4)Public preWinProc As Long
Public Modifiers As Long, uVirtKey As Long, idHotKey As LongPrivate Type taLong
ll As Long
End TypePrivate Type t2Int
lWord As Integer
hword As Integer
End TypePublic Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
If wParam = idHotKey Then
Dim lp As taLong, i2 As t2Int
lp.ll = lParam
LSet i2 = lp
If (i2.lWord = Modifiers) And i2.hword = uVirtKey Then
Debug.Print "HotKey Shift-Alt-G Pressed "
Shell "notepad", vbNormalFocus
End If
End If
End If
'将之送往原来的Window Procedure
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function'以下在 Form
Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
idHotKey = 1 'in the range &h0000 through &hBFFF
Modifiers = MOD_ALT + MOD_SHIFT
uVirtKey = vbKeyG
ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)
End SubPrivate Sub Form_Unload(Cancel As Integer)
Dim ret As Long
'取消Message的截取，而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
Call UnregisterHotKey(Me.hwnd, uVirtKey)
End Sub

Answer 1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
'77是M,你可以查查1的值,替换77即可
Private Sub Command1_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event 77, 0, 0, 0   
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SETHOTKEY = &H32
Private Const WM_SHOWWINDOW = &H18
Const HK_ALT1 = &H461Private Sub Form_Load()
Dim lg As Long
    
    Me.WindowState = vbMinimized
    lg& = SendMessage(Me.hwnd, WM_SETHOTKEY, HK_ALT1, 0)
    If lg& <> 1 Then
        MsgBox "热键冲突,请重新定义！", vbInformation + vbOKOnly, ""
        Exit Sub
    End If
    lg& = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, 0, 0)
End Sub

Answer 3

第一个问题可用SendKeys模拟。
第二个问题可以用Sleep来实现。
其声明请从API浏览器中察看