Нажать кнопку в активном окне

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, _
     ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const BM_CLICK = &HF5
' Кликаем по первой кнопке, она нажимает вторую кнопку программно.
Private Sub Command1_Click()
Ret = GetForegroundWindow()
hwndButt = FindWindowEx(Ret, ByVal 0&, vbNullString, "Command2") 'вместо Command2 написать реальный текст на кнопке!
PostMessage hwndButt, BM_CLICK, 0, 0
End Sub
 
Private Sub Command2_Click()
MsgBox "Кнопка 2 нажата"
End Sub

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, _
     ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Const BM_CLICK = &HF5
 
Private Sub Command1_Click()
    Dim Hwnd&, hwndBtn&
    Hwnd = FindWindow(vbNullString, "ZTEMT UI")
    hwndBtn = FindChilds(Hwnd, vbNullString, "Отключить")
    PostMessage hwndBtn, BM_CLICK, 0&, 0
End Sub
 
Private Function FindChilds(hWndParent As Long, _
                        Optional ByVal sClass As String = vbNullString, _
                        Optional ByVal sCaption As String = vbNullString)
    Dim Hwnd As Long, HwndEx As Long
    Do
        Hwnd = FindWindowEx(hWndParent, Hwnd, vbNullString, vbNullString)
        If Hwnd <> 0 Then
            HwndEx = FindWindowEx(Hwnd, ByVal 0&, sClass, sCaption)
            If HwndEx <> 0 Then
                FindChilds = HwndEx
                'Debug.Print Hex(BtnHwnd) & ", parent: " & Hex(Hwnd)
                Exit Do
            End If
            FindChilds = FindChilds(Hwnd, sClass, sCaption)
        End If
    Loop Until Hwnd = 0
End Function

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
 
Sub knopka()
 
 
Dim HvndWin, HvndBut As Long
HvndWin = FindWindowEx(0, 0, vbNullString, "Загрузка файла")
HvndBut = FindWindowEx(HvndWin, 0, vbNullString, "Со&хранить")
'два сообщения подряд для фокуса
PostMessage HvndBut, &HF5, 0&, 0&    
PostMessage HvndBut, &HF5, 0&, 0&
 
End Sub

 Hwnd = FindWindow(vbNullString, "ZTEMT UI")

Module Осн
 
 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildWindow As Long, ByVal lpClassName As String, ByVal lpsWindowName As String) As Long
Const BM_CLICK = &HF5
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_COMMAND = 273
 
 Sub закрыть_окно()
   Dim hwnd As Long
   hwnd = FindWindow(vbNullString, "Удалить файл") 'окно находит (получается его подвинуть и т.д.)
   hwnd = FindWindowEx(hwnd, vbNull, "Button", "Д&а") 'похоже не находит кнопку "Да", текст "Д&а" нашел с помощью InqSoft Window Scanner
 
   SendMessage(hwnd, BM_CLICK, 0, 0)  '1 способ нажать (не работает)
   SendMessage(hwnd, WM_LBUTTONDOWN, 0, 0) '2 способ нажать (не работает)
   SendMessage(hwnd, WM_LBUTTONUP, 0, 0)   
 End Sub
 
 Sub закрыть_окно_2()'пытаюсь понять как это сделать через WM_COMMAND
    Dim hwnd As Long
   hwnd = FindWindow(vbNullString, "Удалить файл") 
   SendMessage(hwnd, WM_COMMAND, ???????, ?????) 'но что здесь писать?
 End Sub
 
End Module

 Sub закрыть_окно()
   Dim hwnd As Long
   hwnd = FindWindow(vbNullString, "Удалить файл") 
   SetActiveWindow(hwnd)
   hwnd = FindWindowEx(hwnd, vbNull, "Button", "Д&а")
   SendMessage(hwnd, BM_CLICK, 0, 0) 
   SendMessage(hwnd, WM_LBUTTONDOWN, 0, 0)
   SendMessage(hwnd, WM_LBUTTONUP, 0, 0)   
 End Sub

        hwnd = FindWindow(vbNullString, "Удалить файл")
        SetActiveWindow(hwnd)
        SendMessage(hwnd, WM_COMMAND, 1, 0)

        Sleep(10000)
        hwnd = FindWindow(vbNullString, "Удалить файл")
        SetActiveWindow(hwnd)
        SendMessage(hwnd, WM_COMMAND, 1, 0)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Const BM_CLICK = 245
 Sub закрыть_окно()
   Dim hwnd As Long
   hwnd = FindWindow(vbNullString, "Подтверждение удаления файла")
   hwnd = FindWindowEx(hwnd, ByVal 0&, "BUTTON", "&Да")
  PostMessage hwnd, BM_CLICK, 0&, 0&
 PostMessage hwnd, BM_CLICK, 0&, 0&
    
 End Sub
Private Sub Command1_Click()
 закрыть_окно
End Sub

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As VariantType) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) 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 VariantType) As Long
Const BN_CLICKED = 245
Const BM_CLICK = &HF5
 
Sub закрыть_окно()
        Dim hwnd As Long
        hwnd = FindWindow(vbNullString, "Удалить файл")
       
        SetActiveWindow(hwnd) 'не работает
        SendMessage(hwnd, WM_COMMAND, 1, 0) 'не работает
        SendMessage(hwnd, WM_CLOSE, 0&, 0&) 'тоже не работает
        ' Заставляем мигнуть заголовок один раз.
        FlashWindow(hwnd, 1) ' а вот это как раз работает
 
        'все остальное не работает
        hwnd = FindWindowEx(hwnd, vbNull, "Button", "Н&ет")
 
        PostMessage(hwnd, BM_CLICK, 0&, 0&)
        PostMessage(hwnd, BM_CLICK, 0&, 0&)
        PostMessage(hwnd, BN_CLICKED, 0&, 0&)
        PostMessage(hwnd, BN_CLICKED, 0&, 0&)
 
        SendMessage(hwnd, BM_CLICK, 0&, 0&)
        SendMessage(hwnd, BM_CLICK, 0&, 0&)
 
        SendMessage(hwnd, BN_CLICKED, 0&, 0&)
        SendMessage(hwnd, BN_CLICKED, 0&, 0&)
 
        SendMessage(hwnd, WM_SETFOCUS, 0&, 0&)
        SendMessage(hwnd, WM_LBUTTONDOWN, 0&, 0&)
        SendMessage(hwnd, WM_LBUTTONUP, 0&, 0&)
End Sub