SendKeys, SendKeys для мыши и список открытых окон

[Олег Козлов]

Пара вопросов у меня...
Кто знает - плиз, хелп.

1. Как получить список всех открытых окон. Мне надо, чтобы было даже вот как: если есть программа, состоящая из нескольких окон, чтобы и список эти окна тоже можно было получить.

2. Как послать клик кнопкой мыши (подобно функции SendKeys, но только клик мышью).

3. Есть где-нибудь подробная инструкция по использованию SendKeys???

[GSerg]

1. Вопрос, задолбавший всех. Обсуждался сотни раз. В поиск.
2. См. п. 1
3. Наводящий вопрос. У тебя Офис установлен?

[Олег Козлов]

3. Наводящий вопрос. У тебя Офис установлен?

Установлен. в Полном комплекте. Так что, в справке к VBA искать?

[GSerg]

Да.

[Олег Козлов]

Хорошо. Попробую. Спасибо.

[max-aziat]

на те мож это ты ишеш???

Имитация нажатия кнопки на мышке

Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Enum ButtonClick
btcLeft
btcRight
btcMiddle
End Enum

Private Function MouseClick(ByVal MBClick As ButtonClick) As Boolean
Dim cbuttons As Long
Dim dwExtraInfo As Long
Dim mevent As Long

Select Case MBClick
Case ButtonLeft
mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP
Case ButtonRight
mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP
Case ButtonMiddle
mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP
Case Else
MouseClick = False
Exit Function
End Select

mouse_event mevent, 0&, 0&, cbuttons, dwExtraInfo
MouseClick = True
End Function

Private Sub Command1_Click()
Call MouseClick(ButtonLeft)
End Sub

[Kovu]

на те мож это ты ишеш???

Имитация нажатия кнопки на мышке

А ты свой код тестировал перед тем как запостить?
Учитывая то что во время клика по кнопке курсор мыши чаще всего находится над кнопкой, то программу зациклит

[max-aziat]

я знаю , ты прав зацикливает но дело не в этом ....
если ему надо будет он сам эту маленькую ошыбку исправит

[Олег Козлов]

Ну конечно исправлю. Thanks...

[Олег Козлов]

Все-таки про список открытых окон я не нашел.

Мне нужно получить список ВООБЩЕ ВСЕХ окон, даже messagebox'ов. А то, что нашел, либо отображает список процессов, либо не все окна (только главные - без диалоговых).

[alibek]

Для каждого главного окна делаешь FindWindowEx и будет тебе щастье.

[Олег Козлов]

В общем, примерно мне нужно вот что: [см. приложенный архив]

Но он не каждое, к примеру, msgbox отображает (по-моему).
Например, если в бейсике сделать msgbox, то он отображает заголовок этого окна. А нажал на Помощь -> Содержание в среде VB6 IDE, вылезло окошко "MSDN Doesn't Exist..." так это окно не появилось в списке. Может, в коде что исправить надо, чтобы АБСОЛЮТНО все окна были?

[Kovu]

Для каждого главного окна делаешь FindWindowEx и будет тебе щастье.

А лутше EnumChildWindows IMHO

[Amed]

Олег.
Скачай с allapi.net программу Api-Guide. Найди в ней функцию EnumChildWindows, там есть преотличнейший пример.

Гайдар, ну сколько можно, повесь баннер!

[GSerg]

Тебя услышали

[Amed]

Я стукнулся и подпихнул баннер

[Олег Козлов]

Олег.
Скачай с allapi.net программу Api-Guide. Найди в ней функцию EnumChildWindows, там есть преотличнейший пример.

Гайдар, ну сколько можно, повесь баннер!

Там глюк. на строке

sSave = Space$(GetWindowTextLength(hwnd) + 1)

пишет ошибку 14 (число GetWindowTextLength(hwnd) слишком большое)

[Amed]

Вставь в этой процедуре первой строкой On Error Resume Next.