Перехват нажатия кнопки в определённой программе - Visual Basic .NET - Ответ 3604568

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
    End Function
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As IntPtr, ByVal hWndChildAfter As Integer, ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
 
    Const BM_CLICK As Long = &HF5
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Window = FindWindow(vbNullString, "Выполнить")
        Dim hWnd = FindWindowEx(Window, 0, vbNullString, "Отмена")
        MsgBox(Window)
        MsgBox(hWnd)
        PostMessage(hWnd, BM_CLICK, 0, 0)
        PostMessage(hWnd, BM_CLICK, 0, 0)
    End Sub
 
End Class