我想找个朋友问问题，对ＶＢ要懂的。喜欢玩金庸ＯＮＬＩＮＥ的？有吗？

Question

我想编一软件A，运行A后，在去运行游戏软件B。进入B后，按一个键，比如：F12，就可以把我的A给弹出来，但是此功能只对B。我知道可能要用到API，我对API一点不懂,请各位详解！！！

Answer 1

添加一模块：
'声明API函数
Option Explicit
'调用一个窗口的窗口函数
Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Long) As Long
'调用一个窗口的接收函数
Declare Function DefWindowProc Lib "user32" _
Alias "DefWindowProcA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As LongPublic Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDOW = &H18
Public Const HK_F12 = &H7B添加一个窗口，在form_load下加上代码：Private Sub Form_Load()
    Dim s As Long
    Form1.WindowState = vbMinimized
    '让windows知道你想要的热键。
    s = SendMessage(Me.hwnd, WM_SETHOTKEY, HK_F12, 0)
    '检查函数是否执行成功
    If s <> 1 Then
        MsgBox "不成功。"
    End If
    '告诉windows热键按下后做什么－－显示窗口
    s = DefWindowProc(Form1.hwnd, WM_SHOWWINDOW, 0, 0)
End Sub＜完＞