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

Узнай цену своей работы

Формулировка задачи:

Добрый день всем! Просьба не пинать если эта тема уже была.. Пишу Loader на VB 6. функции: 1. Проверка путей, файлов + 1. Копирование набора файлов "туда" + 2. запуск приложения "A" +

3. В определенный момент, когда приложение "A" выдаст запрос. В нужное поле ввести информацию и нажать на кнопку "OK" -

4. Дождаться завершения приложения "A" + 5. Копирование набора файлов обратно + Знаком

"+"

отметил, на что хватило мозгов реализовать.

"-"

, то с чем прошу помочь... окошко, коотрое выбрасывает приложение: Заранее спасибо всем за помощь..

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

textual
Листинг программы
Option Explicit
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" _
   (ByVal hwnd As Long, ByVal wCmd As Long) As Long
   Private Declare Function GetWindowTextLength Lib "user32" _
   Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
   Private Declare Function GetWindowText Lib "user32" _
   Alias "GetWindowTextA" (ByVal hwnd As Long, _
                           ByVal lpString As String, _
                           ByVal cch As Long) As Long
Const GW_HWNDNEXT = 2
Const GW_CHILD = 5
Dim strCaption As String
Dim dummy&
Dim PT As String
   
Private Sub Часы1_Timer()
    Dim i
     Список1.Clear
           Dim strCaption As String
           Dim hwnd&
    hwnd& = GetDesktopWindow()
    hwnd& = GetWindow(hwnd&, GW_CHILD)
          Caption = ""
    Do
    dummy& = GetWindowTextLength(hwnd&)
    If dummy <> 0 Then
            strCaption = String(dummy + 1, " ")
            dummy = GetWindowText(hwnd&, strCaption, dummy + 1)
            If InStr(1, strCaption, "Подтверждение", vbTextCompare) > 0 Then
                 Caption = "Есть окно"
                 exit sub
    '            MsgBox hwnd& & "  -  " & strCaption, 64, ""
            End If
     End If
    hwnd& = GetWindow(hwnd&, GW_HWNDNEXT)
    Loop While hwnd& <> 0
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.375 из 5
Похожие ответы