[tariq2812]

كود :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    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 Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

    Private Const WM_SETTEXT As Long = &HC


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WinWnd As Long
        Dim BtnWnd As Long
        WinWnd = FindWindow("WindowsForms10.Window.8.app.0.378734a", "ملاحظة")

        If WinWnd <> 0 Then

            BtnWnd = FindWindowEx(WinWnd, 0, vbNullString, "")
            If BtnWnd <> 0 Then

                SendMessage(BtnWnd, WM_SETTEXT, 0, "OK")

            End If
        End If
    End Sub