Помогите решить проблему!!!!!

[Netguard]

Вот в чем проблема......

Я пытаюсь послать всему окну(форме) нажатие кнопки, но почемуто оно не сробатывает (предпологаю что посылается почемуто только заголовку)

had = FindWindow(vbNullString, "имя окна")
If had = 0 Then MsgBox "Couldn't find the window ...": Exit Sub

SendMessage had, WM_KEYDOWN, vbKeyW, 0&


Но если я посылаю такую комманду ......

SendMessage had, WM_CLOSE, 0&, 0&

То сробатывает, но это послание заголовку окна а нужно всей форме.

КАК ВЫЙТИ ИЗ ТАКОЙ СИТУАЦИИ?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!????

[Aleksej]

Код: Выделить всё

Button_hwnd=FindWindowEx(had, 0, "Button", Надпись на кнопке")
call SendMessage Button_hwnd, WM_KEYDOWN, vbKeyW, 0&


[GSerg]

Оно и так посылается всей форме. Проверь, вот, к примеру:

Код: Выделить всё

Option Explicit

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 Const WM_KEYDOWN As Long = &H100

Private Sub Command1_Click()
  SendMessage Me.hwnd, WM_KEYDOWN, vbKeyW, ByVal 0&
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  MsgBox KeyCode
End Sub

[Netguard]

Aleksej твой код понятин но как я узнаю в чужом приложении какой hwnd у нужной мне кнопки и причем их там может быть сотня?????


GSerg Это то понятно но я чужому приложению посылаю комманду и она не сробатывает. На чужом приложении куча различных элементов. И почемуто этот код не сробатывает