你不回答 没人说你 我看你好似在刷积分，很多贴都乱回答，你厉害你来回答我问题。

搞了好久 还是 没弄出来  怎么响应活动窗体 让活动窗体按下某个键

对于千千静听我明白 如果检测不到Label会提示 未运行  这个程序只能对一些简单的窗体 施加按健命令  对于一些游戏窗体不起作用 是不是游戏窗体和普通窗体不同？

[此贴子已经被作者于2007-4-21 10:00:50编辑过]

可是信息真的发不出去呀。我又拿这个来做了实验

代码如下：
能检测到，但不对窗体输入任何东西，我点了密码框没反映，只有光标在跳。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const WM_KEYDOWN = &H100

Private Sub Command1_Click()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Dim hwnd As Long '
hwnd = FindWindow(vbNullString, "Login") 'Crazy Arcade
If hwnd = 0 Then
Label1.Caption = "未运行"
Else
Label1.Caption = "已运行"
SendMessage findhwnd, WM_KEYDOWN, 65, 1&
End If
End Sub