请问那位知道从一个游戏中用热键调出窗口要用到怎么代码和API函数呀?

解决方案 »

  1.   

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_SETHOTKEY = &H32
    Const HOTKEYF_SHIFT = &H1
    Const HOTKEYF_CONTROL = &H2
    Const HOTKEYF_ALT = &H4Private Sub Form_Load()
        Dim l As Long
        Dim wHotkey As Long
        '设置热键为Ctrl+Alt+A
        wHotkey = (HOTKEYF_ALT Or HOTKEYF_CONTROL) * 256 + vbKeyA
        l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
    End Sub