如何用VB控制一个程序(如果没运行就运行它，如果已运行将它设为活动，并向程序发送模拟键盘事件)

Question

最近在想弄一个红外或蓝牙的遥控程序，想实现这样的程序控制的功能，例如控制winamp播放MP3。
希望各位DX指点VB中如何实现:
1.启动一个程序
2.将已运行窗口设为活动窗口
3.并向程序发送模拟键盘控制事件thx!!

Answer 1

先用findwindow查找，如果没有就shell，如果存在就用showwindow激活

Answer 2

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Sub Command1_Click()
Dim fromHwnd As Long
fromHwnd = FindWindow(vbNullString, "aa")'这个"aa"就是你那个想打的winamp的标题
If fromHwnd <> 0 Then
    ShowWindow fromHwnd, 1
Else
    Shell "d:\winamp\winamp.exe", vbNormalFocus
End If
End Sub

Answer 3

用sendkeys试试。
比如紧接着shell来一句
sendkeys "x"  
试试会不会开始播放。

Answer 4

应该用SENDMESSAGE来模拟按键，可以在窗体没有焦点的时候发送。