Помогите написать программку!

[Vini]

Програмка что то типа сервиса, должна работать в бэкграунде, и смотреть
если откроется окно с определенным именем например (MainWin), то надо

активировать окно
выполнить Ctrl+A
Enter

Другими словами, открыть все то что выделится в том окне.

Подскажите с чего начать. Я только учюсь.
Заранее спасибо.

[A.A.Z.]

0) Запустившись, свернуться в трэй
1) В цикле искать окно, если окно нашли, то:
2) Активировать его
3) Сэмулировать Ctrl+A
4) Сэмулировать Enter

А теперь напиши, какой пункт вызывает сложность

[Amed]

2)
SetActiveWindow (FoundHwnd) или BringWindowToTop (FoundHwnd)
3)
SendKeys "^(a)", True
4)
SendKeys "{Enter}", True

[Vini]

2)
SetActiveWindow (FoundHwnd) или BringWindowToTop (FoundHwnd)
3)
SendKeys "^(a)", True
4)
SendKeys "{Enter}", True

На SetActiveWindow (FoundHwnd) и на BringWindowToTop (FoundHwnd)

ругается говорит что Sub or Function NOT defined

[Amed]

Это API-функции... В разделе [General Declarations] (в самом вверху окна кода) надо добавить 2 строчки:

Код: Выделить всё

Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long


И надо в параметрах писать не FoundHwnd, а Hwnd найденного в пункте 1 окна...

[Vini]

Вот мои Declarations

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long



На форме есть кнопка и текстовое поле, в поле введено имя окна куда надо преключится

Событие на клик

Код: Выделить всё

Private Sub Command1_Click()
Dim Window

Window = FindWindow(vbNullString, Text1.Text)
If Window = 0 Then
    MsgBox Text1.Text & " No window", vbCritical
Else
    MsgBox Text1.Text & " Window present", vbInformation
End If

End Sub

Дополните пожалкйста, ничего не выходит

[Amed]

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
Dim Window As Long

Window = FindWindow(vbNullString, Text1.Text)
If Window = 0 Then
    MsgBox Text1.Text & " No window", vbCritical
Else
    MsgBox Text1.Text & " Window present", vbInformation

Call SetActiveWindow (Window)
SendKeys "^(a)", True
SendKeys "{Enter}", True
End If
End Sub


Не проверял, честно говоря. Должно работать.

[Vini]

Зацикливает, и на окно не переключается

[Amed]

Странно, у меня нормально работает тестовый пример... А нужное окно находит-то?

[Vini]

Да, выскакивает MSgBox WindowPresent
при нажатии на OK, повторяется до бесконечности.
На нужное окно не переходит

[Vini]

Ну что за бред?
Код работает, только в том случае если есть кнопка

Код: Выделить всё

Private Sub Command2_Click()
    Call SetActiveWindow(Window)
    SendKeys "^(a)", True
    SendKeys "{Enter}", True
    SendKeys "{Enter}", True
End Sub

Если поставить этот код внутри Form_Load(), то не работает правильно.
Что скажите?

[A.A.Z.]

Форма должна полностью загрузиться. Можно поставить в

Код: Выделить всё

Sub Form_Activate()
    Dim Flag As Boolean
    If Flag Then Exit Sub
    Call SetActiveWindow(Window)
    SendKeys "^(a)", True
    SendKeys "{Enter}", True
    SendKeys "{Enter}", True
    Flag = True
End Sub

[Amed]

Может, SetForegroundWindow после SetActiveWindow поможет? Active - не то же самое, что и Foreground?

[tyomitch]

Active - не то же самое, что Foreground. В данном случае имхо нужно именно Foreground.

[Amed]

Вот и я клоню к тому же...

tyomitch, а нельзя ли чуть подробнее объяснить разницу между активной формой и той, что на переднем плане?

Кажется, активная всегда на переднем плане (с фокусом), нет?
Исключая, конечно, случай с формой 'поверх всех'

[tyomitch]

Активное окно - это то, у которого фокус ввода. Оно своё у каждой проги, и чаще всего это не "форма" (top-level окно), а дочернее окно (скажем, текстбокс).
Переднее окно - то, которому приходит ввод от пользователя. Оно может и не быть на переднем плане - скажем, если заслонено topmost окнами.

Если кратко, то фокус принадлежит активному ребёнку переднего окна

[Amed]

А, благодарю. Воткнул, оценил. Всё предельно ясно.

Активизация ребёнка переднего окна.

[Vini]

Спасибо, подскажите последнее (надеюсь)
Как теперь свернуть это окно?

Спасибо.

[Amed]

Код: Выделить всё

Private Declare Function CloseWindow Lib "user32" Alias "CloseWindow" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Call CloseWindow (FoundHwnd)
End Sub


[Vini]

Код: Выделить всё

Private Declare Function CloseWindow Lib "user32" Alias "CloseWindow" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Call CloseWindow (FoundHwnd)
End Sub


Да мне его нельзя закрывать, только свернуть.

[tyomitch]

А CloseWindow его и не закроет, а только свернёт.

[Amed]

The CloseWindow function minimizes (but does not destroy) the specified window.

[Vini]

Скажите, а можно ли открыть содержимое окна, зная только название окна?

[Amed]

Можно. Кстати, что есть "содержимое"? Дочерние окна/контролы? Тогда ищите по форуму EnumWindowsEx.

[Vini]

У меня в окне есть PDF файл, мне его надо и запустить. Вот к чему и весь огород.
SendKeys "^(a)", True
SendKeys "{Enter}", True
Выполняют это, только не всегда.

[Amed]

Что значит, - "в окне есть pdf файл"? В окне explorer'а?

[Vini]

Нет, у меня есть программка, которая на основании уникального номера открывает окно проводника и в нем документ PDF. Я пытаюсь написать прогу, которая откроет мне этот документ.

[tyomitch]

А банального ShellExecute мало??

[Amed]

Вот-вот...

Private 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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Send an E-Mail to the KPD-Team
ShellExecute Me.hwnd, vbNullString, "C:\document.pdf", vbNullString, "C:", SW_SHOWNORMAL
End Sub

[Vini]

Вот-вот...

Private 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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Send an E-Mail to the KPD-Team
ShellExecute Me.hwnd, vbNullString, "C:\document.pdf", vbNullString, "C:", SW_SHOWNORMAL
End Sub

Да наверное этого будет не достаточно.
Документ находится в DB (Documentum) и не так прямого пути к нему. Вот и открывается окошко, а в нем документ.
Может подскажите как запустить документ не зная пути, но зная имя окна? Заранее спасибо.