الضغط على أزرار من تطبيقات أخرى

PHP كود :

Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("user32.dll", CharSet:=CharSet.Auto, EntryPoint:="FindWindow")> _
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
    End Function

    <DllImport("user32.dll", EntryPoint:="SendMessage")> _
    Private Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hwnd = FindWindow(Nothing, "Download and Install Updates")
        If hwnd <> IntPtr.Zero Then
            Dim btn = FindWindowEx(hwnd, IntPtr.Zero, "Button", "Close")
            If btn <> IntPtr.Zero Then
                SendMessage(btn, &HF5, 0, 0)
            Else
                MsgBox("لم يتم ايجاد الزر")
            End If
        Else
            MsgBox("لم يتم ايجاد التحديث")
        End If
    End Sub

End Class

PHP كود :

 Dim install = IO.Path.GetTempPath & "\" & "install-update.bat"
        IO.File.WriteAllBytes(black, My.Resources.install-update)
        Process.Start(install)

PHP كود :

 Dim Path As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Temp" & "\install_update.bat"
            IO.File.WriteAllText(Path, My.Resources.install_update)
            Process.Start(Path)

PHP كود :

 For Each itm As ListViewItem In Me.ListViewEx1.CheckedItems
            Process.Start(itm.Tag).WaitForExit()
            Dim hwnd = FindWindow(Nothing, "Download and Install Updates")
            If hwnd <> IntPtr.Zero Then
                Dim btn = FindWindowEx(hwnd, IntPtr.Zero, "Button", "Close")
                If btn <> IntPtr.Zero Then
                    SendMessage(btn, &HF5, 0, 0)
                Else
                    MsgBox("لم يتم ايجاد الزر")
                End If
            Else
                MsgBox("لم يتم ايجاد التحديث")
            End If
            MsgBox(" تم الانتهاء من تصطيب البرامج المحددة")
        Next