VB.NET | Uygulama İçerisinden Başka Bir Uygulamaya Görev Atamak (BUTON BASTIRMAK VS.)

Const BM_CLICK As Integer = &HF5
    Declare Function FindClose Lib "kernel32.dll" (
     ByVal hFindFile As Long) As Long
    Const WM_SETTEXT As Long = &HC


    <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", SetLastError:=True, CharSet:=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    End Function

        Dim hParent As IntPtr = FindWindowEx(IntPtr.Zero, hParent, "Uygulama Sınıf adı", "Uygulama Başlıgı")
        If Not hParent.Equals(IntPtr.Zero) Then
            Dim hChild As IntPtr = FindWindowEx(hParent, hChild, "Child Class", "Butonun üstündeki yazı")
            If Not hChild.Equals(IntPtr.Zero) Then
                SendMessage(hChild, BM_CLICK, 0, 0)
                SendMessage(hChild, WM_SETTEXT, 0, 0)
            Else
                MessageBox.Show("Bulundu")
            End If
        Else
            MessageBox.Show("bulunamadı.")
        End If