Как из программы управлять другой, уже запущенной программой - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д