Заполнение полей сторонней программы

hwnd = FindWindow(vbNullString, "Предупреждение системы безопасности Windows")
If hwnd Then
        hBtn = FindWindowEx(hwnd, 0, StrPtr("Button"), StrPtr("&Нет"))
            If CBool(hBtn) Then
                       SendMessage hBtn, WM_LBUTTONDOWN, 1, ByVal 0
                       SendMessage hBtn, WM_LBUTTONUP, 0, ByVal 0
            End If
    End If

'
' Декларации закинул все.. Лишние удалите
'
 
Option Explicit
 
Public Declare Function INITCOMMONCONTROLSEX Lib "Comctl32" Alias "InitCommonControlsEx" (ByRef TLPINITCOMMONCONTROLSEX As INITCOMMONCONTROLSEX) As Long
Public Declare Function FormatMessage Lib "kernel32.dll" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Type PROCESSENTRY32
        dwSize As Long
        cntUsage As Long
        th32ProcessID As Long
        th32DefaultHeapID As Long
        th32ModuleID As Long
        cntThreads As Long
        th32ParentProcessID As Long
        pcPriClassBase As Long
        dwFlags As Long
        szExeFile As String * MAX_PATH
 End Type
 
 
Private Sub tmrKillWindowScript_Timer()
 
    '
    ' таймер закрытия окон скриптов (только для первой копии)
    '
 
On Error GoTo ErrorHandler
    Dim hWnd    As Long
    Dim hEdit   As Long
    Dim hBtn    As Long
    Dim hPanel  As Long
    Dim cls     As String
    Dim sLn     As Long
    Dim i       As Integer
 
            
            '
            ' Алгоритм #0 - удаление окна, по маске
            '
                
                For i = 1 To intCountWinToClose
                    killWinProck IniSett_WinToClose(i)
                Next
                
If IniSett_UseAlgoritmWinToClose <> "ВСЕ" Then Exit Sub
            '
            ' Алгоритм #1 - удаление окна
            '
            
            hWnd = FindWindow(vbNullString, "Предупреждение системы безопасности Windows")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                 If IniSett_logget = "YES" Then Logget "{Окно 'Безопасность Windows - Загрузка куки' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
 
            hWnd = FindWindow(vbNullString, "Безопасность Windows")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                If IniSett_logget = "YES" Then Logget "{Окно 'Безопасность Windows - Ввод имени и Пароля' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
        
            hWnd = FindWindow(vbNullString, "Скачивание файла")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                 If IniSett_logget = "YES" Then Logget "{Окно 'Скачивание файла' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
            
            hWnd = FindWindow(vbNullString, "Ошибка веб-страницы")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                 If IniSett_logget = "YES" Then Logget "{Окно 'Ошибка веб-страницы' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
            
            hWnd = FindWindow(vbNullString, "Предупреждение системы безопасности")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                 If IniSett_logget = "YES" Then Logget "{Окно 'Предупреждение системы безопасности - Сертификат' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
            
            hWnd = FindWindow(vbNullString, "Сообщение с веб-страницы")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                 If IniSett_logget = "YES" Then Logget "{Окно 'Сообщение с веб-страницы' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
            
         
           
            hWnd = FindWindow(vbNullString, "SiteParser (TM)")
            If hWnd Then
                    DestroyWindow (hWnd)
                    SendMessage hWnd, WM_CLOSE, 0, 0 ' для подстраховки
                 If IniSett_logget = "YES" Then Logget "{Окно 'SiteParser (TM) - Программа не работает' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Destroy Windows}", 4
            End If
            
            '
            ' Алгоритм #2 - (если не сработал первый) - ищем кнопку и клацаем на ней...
            '
            
            hWnd = FindWindow(vbNullString, "Безопасность Windows")
            If hWnd Then
                hBtn = FindChilds(hWnd, vbNullString, "Отмена")
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Безопасность Windows - Ввод имени и Пароля' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
        
            hWnd = FindWindow(vbNullString, "Предупреждение системы безопасности Windows")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("&Нет"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Безопасность Windows - Загрузка куки' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
        
            hWnd = FindWindow(vbNullString, "Скачивание файла")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("Отмена"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Скачивание файла' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "Ошибка веб-страницы")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("&Нет"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Ошибка веб-страницы' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "Предупреждение системы безопасности")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("Д&а"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Предупреждение системы безопасности - Сертификат' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "Сообщение с веб-страницы")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("ОК"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Сообщение с веб-страницы' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "Сообщение с веб-страницы")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("Отмена"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Сообщение с веб-страницы' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "Веб-браузер")
            If hWnd Then
                
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("&Да"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'Веб-браузер' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "SiteParser (TM) - Предупреждение системы безопасности")
            If hWnd Then
                hBtn = FindWindowExF(hWnd, 0, StrPtr("Button"), StrPtr("&Не устанавливать"))
                    If CBool(hBtn) Then
                        If IniSett_logget = "YES" Then Logget "{Окно 'SiteParser (TM) - Предупреждение системы безопасности' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                        PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "about:blank#start=embed")
            If hWnd Then
                hBtn = FindChilds(hWnd, vbNullString, "ОК")
                    If CBool(hBtn) Then
                          If IniSett_logget = "YES" Then Logget "{Окно 'about:blank#start=embed' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                          PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "SiteParser (TM)")
            If hWnd Then
                hBtn = FindChilds(hWnd, vbNullString, "&Закрыть программу")
                    If CBool(hBtn) Then
                          If IniSett_logget = "YES" Then Logget "{Окно 'SiteParser (TM) - Программа не работает' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                          PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            
          
            hWnd = FindWindow(vbNullString, "SiteParser (TM)")
            If hWnd Then
                hBtn = FindChilds(hWnd, vbNullString, "Закрыть программу")
                    If CBool(hBtn) Then
                          If IniSett_logget = "YES" Then Logget "{Окно 'SiteParser (TM) - Программа не работает' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                          PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
            
            hWnd = FindWindow(vbNullString, "SiteParser (TM)")
            If hWnd Then
                hBtn = FindChilds(hWnd, vbNullString, "&Закрыть программу")
                    If CBool(hBtn) Then
                          If IniSett_logget = "YES" Then Logget "{Окно 'SiteParser (TM) - Программа не работает' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм CommandButtom Click}", 4
                          PostMessage hBtn, BM_CLICK, 0&, 0
                    End If
            End If
 
Exit Sub
ErrorHandler:
    DebugErrWriteLog "frmMain", "tmrKillWindowScript", Err
End Sub

Public Function killWinProck(strMask As String) As Boolean
        hWDSearch = 0
        EnumWindowsFullName = ""
        EnumWindowsMask = strMask
        EnumWindows AddressOf EnumWindowsProc, ByVal 0&
        
        If hWDSearch Then
            SendMessage hWDSearch, WM_CLOSE, 0, 0
            DestroyWindow (hWDSearch)
            If IniSett_logget = "YES" Then Logget "{Окно '" & EnumWindowsFullName & "' препятствовало дальнейшему парсингу, действие: закрыто - Алгоритм Enum Destroy Windows}", 4
        End If
 
End Function

Public Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
     Dim sSave  As String
     Dim Ret    As Long
        
        Ret = GetWindowTextLength(hWnd)
        sSave = Space(Ret)
        GetWindowText hWnd, sSave, Ret + 1
        EnumWindowsFullName = sSave
        
        '
        ' определяем алгоритм расопзнования окна
              
        '
        
        Select Case IniSett_AlgoritmWinToClose
        
                Case "ЕСЛИ НАЗВАНИЕ НАЧИНАЕТСЯ С МАСКИ"
                    If UCase(Left(sSave, Len(EnumWindowsMask))) = UCase(EnumWindowsMask) Then
                        hWDSearch = hWnd
                        Exit Function
                    End If
                
                Case "ЕСЛИ НАЗВАНИЕ СОДЕРЖИТ МАСКУ"
                    If InStr(1, sSave, EnumWindowsMask) Then
                        hWDSearch = hWnd
                        Exit Function
                    End If
                
                Case "ТОЧНОЕ СОВПАДЕНИЕ С УЧЕТОМ РЕГИСТРА"
                    If sSave = EnumWindowsMask Then
                        hWDSearch = hWnd
                        Exit Function
                    End If
                
                Case "ТОЧНОЕ СОВПАДЕНИЕ БЕЗ УЧЕТА РЕГИСТРА"
                    If UCase(sSave) = UCase(EnumWindowsMask) Then
                        hWDSearch = hWnd
                        Exit Function
                    End If
                
                Case Else
                    If UCase(Left(sSave, Len(EnumWindowsMask))) = UCase(EnumWindowsMask) Then
                        hWDSearch = hWnd
                        Exit Function
                    End If
                    
        End Select
        
        
     
     EnumWindowsProc = True
End Function

Public Function Find_Process_API(strProsses As String) As Integer
 
    Dim hSnapshot&, uProcess As PROCESSENTRY32
    Dim r&, rClose&, hProc&, ProcessName$, ProcessToClose$, ProcessFound As Boolean
    Dim intI As Integer
    Dim retCode
     
    ProcessToClose = strProsses
    hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    uProcess.dwSize = Len(uProcess)
    r = Process32First(hSnapshot, uProcess)
 
    Do While r
      ProcessName = Left$(uProcess.szExeFile, IIf(InStr(uProcess.szExeFile, Chr$(0)) > 0, InStr(uProcess.szExeFile, Chr$(0)) - 1, 0))
        If StrComp(ProcessName, ProcessToClose, vbTextCompare) = 0 Then
            ProcessFound = True
            hProc = OpenProcess(&H1, False, uProcess.th32ProcessID)
                Find_Process_API = 1
                rClose = Err.LastDllError
            Exit Do
        End If
       r = Process32Next(hSnapshot, uProcess)
    Loop
     
    CloseHandle hSnapshot
    If ProcessFound Then CloseHandle hProc
 
End Function

Attribute VB_Name = "modEventHook"
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
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function CloseWindow Lib "user32" (ByVal hwnd 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 Function FindWindowEx Lib "user32" Alias "FindWindowExW" (ByVal hWndParent As Long, _
                                                                          ByVal hWndChildAfter As Long, _
                                                                          ByVal lpClassName As Long, _
                                                                          ByVal lpWindowName As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, _
                                                                        ByVal wMsg As Long, _
                                                                        ByVal wParam As Long, _
                                                                        lParam As Any) As Long
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
 
Dim hEvent As Long
 
' // Начать захват
Public Sub Hook()
    ' Устанавливаем хук на создание окон в системе
    hEvent = SetWinEventHook(EVENT_OBJECT_SHOW, EVENT_OBJECT_SHOW, 0, AddressOf WinEventProc, 0, 0, 0)
End Sub
 
' // Закончить захват
Public Sub Unhook()
    ' Снимаем хук
    UnhookWinEvent hEvent
End Sub
 
' // Функция вызывается при создании окна
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 = "WindowsForms10.Window.8.app.0.33c0d9d" Then
            Dim hEdit   As Long
            Dim hBtn    As Long
            Dim hPanel  As Long
            ' Ищем контейнер
            hPanel = FindWindowEx(hwnd, 0, StrPtr("WindowsForms10.Window.8.app.0.33c0d9d"), 0)
          ' hwnd2 = FindWindow(vbNullString, "Проверка доступа")
           If hwnd Then
            ' Ищем поле ввода пароля
           hEdit = FindWindowEx(hPanel, 0, StrPtr("WindowsForms10.EDIT.app.0.33c0d9d"), 0)
            ' Ищем кнопку ОК
            hBtn = FindWindowEx(hPanel, 0, StrPtr("WindowsForms10.BUTTON.app.0.33c0d9d"), StrPtr("ОК"))
           ' Call CloseWindow(hwnd)
                If CBool(hBtn) Then
                ' Вводим текст в поле ввода
                'SendMessage hEdit, WM_SETTEXT, 0, ByVal StrPtr("волга")
                ' Жмем на кнопку
                SendMessage hBtn, WM_LBUTTONDOWN, 1, ByVal 0
                SendMessage hBtn, WM_LBUTTONUP, 0, ByVal 0
         '       Unload frmEventHook
                End If
           End If
    End If
 'Stop
End Sub