Как из программы управлять другой, уже запущенной программой

Public Class Form1
    Private Declare Function SetWinEventHook Lib "user32" (ByVal eventMin As Long, _
                                                     ByVal eventMax As Long, _
                                                     ByVal hmodWinEventProc As Long, _
                                                     ByVal pfnWinEventProc As Long, _
                                                     ByVal idProcess As Long, _
                                                     ByVal idThread As Long, _
                                                     ByVal dwFlags As Long) As Long
 
    Private Declare Function UnhookWinEvent Lib "user32" (ByVal hWinEventHook As Long) As Long
 
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameW" (ByVal hwnd As Long, _
                                                                              ByVal lpClassName As Long, _
                                                                              ByVal nMaxCount As Long) As Long
 
 
    Private Declare Auto Function FindWindow Lib "user32.dll" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String _
    ) As IntPtr
 
    Private Declare Auto Function FindWindowEx Lib "user32.dll" ( _
    ByVal hwndParent As IntPtr, _
    ByVal hwndChildAfter As IntPtr, _
    ByVal lpszClass As String, _
    ByVal lpszWindow As String _
    ) As IntPtr
 
    [B]Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
    ByVal hWnd As IntPtr, _
    ByVal wMsg As Int32, _
    ByVal wParam As Int32, _
    ByVal lParam As String) As Int32[/B]
 
    Private Const WM_SETTEXT As Long = &HC
    Private Const EVENT_OBJECT_SHOW As Long = &H8002&
    Private Const WM_LBUTTONDOWN As Long = &H201
    Private Const WM_LBUTTONUP As Long = &H202
    Private Const WM_KEYDOWN = &H100
    Private Const WM_KEYUP = &H101
    Private Const VK_SPACE = &H20
    Private Const VK_CONTROL = &H11
    Private Const VK_LEFT = &H25
    Private Const VK_UP = &H26
    Private Const VK_RIGHT = &H27
    Private Const VK_DOWN = &H28
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hEdit As Long
        Dim hBtn As Long
        Dim hPanel As Long
        Dim hCombo As Long
 
        ' Ищем контейнер
        hPanel = FindWindow("#32770", "User In")
        ' Ищем поле ввода пароля
        hCombo = FindWindowEx(hPanel, Nothing, "ComboBox", Nothing)
        ' Ищем поле ввода пароля
        hEdit = FindWindowEx(hPanel, Nothing, "Edit", Nothing)
        ' Ищем кнопку ОК
        hBtn = FindWindowEx(hPanel, Nothing, Nothing, "User &In")
 
        If CBool(hEdit) And CBool(hBtn) Then
            ' Вводим текст в поле ввода
            SendMessage(hEdit, WM_SETTEXT, 0&, "PASS")
            SendMessage(hCombo, WM_SETTEXT, 0&, "LOGIN")
        End If
 
 
 
    End Sub
    
End Class

        Dim hEdit As Long
        Dim hBtn As Long
        Dim hPanel As Long
        Dim hCombo As Long
 
        Dim combostring, neww As String
        Dim combolength As Integer
 
        ' Ищем контейнер
        hPanel = FindWindow("#32770", "User In")
        ' Ищем поле ввода пароля
        hCombo = FindWindowEx(hPanel, Nothing, "ComboBox", Nothing)
        ' Ищем поле ввода пароля
        hEdit = FindWindowEx(hPanel, Nothing, "Edit", Nothing)
        ' Ищем кнопку ОК
        hBtn = FindWindowEx(hPanel, Nothing, Nothing, "User &In")
 
        If CBool(hEdit) And CBool(hBtn) And CBool(hCombo) Then
 
            'считываем содержимое combobox
            combolength = SendMessage(hCombo, WM_GETTEXTLENGTH, 0, 0)
            combostring = Space$(combolength + 1)
            SendMessage(hCombo, WM_GETTEXT, combolength + 1, combostring)
 
            Console.WriteLine(combostring)
            'если строка в combobox не равна новому логину, выполняем
            If UCase(combostring) <> UCase(login) Then

dim retval as integer
...
retVal = SendMessage(hCombo, WM_GETTEXT, combolength + 1, combostring)
            combostring = Left(combostring, retVal)

' // Функция вызывается при создании окна
Private Sub WinEventProc(ByVal hWinEventHook As Long, _
                         ByVal dwEvent As Long, _
                         ByVal hwnd As Long, _
                         ByVal idObject As Long, _
                         ByVal idChild As Long, _
                         ByVal dwEventThread As Long, _
                         ByVal dwmsEventTime As Long)
                   
    Dim cls As String
    Dim sLn As Long
    
    cls = Space(255)
    ' Получаем имя класса окна
    sLn = GetClassName(hwnd, StrPtr(cls), Len(cls))
    
    If sLn Then
        
        cls = Left(cls, sLn)
        
        If cls = "Предупреждение системы безопасности Windows" Then
        
            Dim hEdit   As Long
            Dim hBtn    As Long
            Dim hPanel  As Long
            
            hPanel = FindWindowEx(hwnd, 0, StrPtr("#32770 (Диалоговое окно)"), 0)
            
            ' Ищем кнопку ОК
            hBtn = FindWindowEx(hPanel, 0, StrPtr("Button"), StrPtr("Да"))
            
            If CBool(hBtn) Then
                
                SendMessage hBtn, WM_LBUTTONDOWN, 1, ByVal 0
                SendMessage hBtn, WM_LBUTTONUP, 0, ByVal 0
                
                Unload frmEventHook
                
            End If
            
        End If
        
    End If
    
End Sub

If cls = "Предупреждение системы безопасности Windows" Then

Option Explicit
 
 
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 Form_Load()
    Dim Hwnd&, hwndBtn&
    Hwnd = FindWindow(vbNullString, "Предупреждение системы безопасности Windows")
    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

hBtn = FindWindowEx(hwnd, 0, StrPtr("Button"), StrPtr("Да"))

hBtn = FindWindowEx(hwnd, 0, StrPtr("Button"), StrPtr("&Да"))

Private Sub WinEventProc(ByVal hWinEventHook As Long, _
                         ByVal dwEvent As Long, _
                         ByVal hwnd As Long, _
                         ByVal idObject As Long, _
                         ByVal idChild As Long, _
                         ByVal dwEventThread As Long, _
                         ByVal dwmsEventTime As Long)
                   
 
    Dim cls As String
    Dim sLn As Long
    Dim hEdit   As Long
    Dim hBtn    As Long
    
    cls = Space(255)
    sLn = GetClassName(hwnd, StrPtr(cls), Len(cls))
 
    If sLn Then
        
        cls = Left(cls, sLn)
        
        If cls = "#32770" Then
            
           ' Ищем кнопку ОК
 
           'hBtn = FindWindowEx(hwnd, 0, StrPtr("Button"), StrPtr("&Да"))
            hBtn = FindWindowEx(hwnd, 0, StrPtr("Button"), StrPtr("Да"))
            
            
            If CBool(hBtn) Then
                
                Open "found.txt" For Output As #2
          
                    'Print #2, "нашли кнопку, вариант &Да"
                    Print #2, "нашли кнопку, вариант Да"
                    
                    
                    Close
                    Unload frmEventHook
                
 
                SendMessage hBtn, WM_LBUTTONDOWN, 1, ByVal 0
                SendMessage hBtn, WM_LBUTTONUP, 0, ByVal 0
 
                Unload frmEventHook
 
            End If
 
           
        End If
         
    End If
                   
End Sub