Хитрости с MDI формами

[claymen]

На работе мне поставили следующую задачу:
Есть некое програмное обеспечение (НакаВыкуси Software).
Но в этой программе отсутствует защита от доступа (по распределению). И мне нужно содать стороннюю программу, которая бы и реализовала эту защиту. Т.е.:
Пользователь запускает програму НакаВыкуси и шляется там по всем пунктам меню (а для некоторых "чайников" такой софт-серфинг ОЧЕНЬ опасен). Моя задача состоит в том, чтобы не давать пользователю заходить в некоторые пункты меню.
Я решил реализовать данное действие следующим образом:

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

        'Попытаюсь поймать handle окна [УСТАНОВКИ] как только
         чайник попытается войти в меню {Файл}{Установки}
        target_hwnd = FindWindow(vbNullString, "Установки")
        If target_hwnd > 0 Then
            PostMessage target_hwnd, WM_CLOSE, 0&, 0&
            MsgBox "Выкуси-ка!", vbCritical, "ВНИМАНИЕ!"
        End If


Ну вродебы сработало: чайник увидел вместо окна "Установки" то, что я ему дам.

Да хорошо.
Но такой трюк несрабатывает с MDI-формами программы, типа:
следующее окно выдает свой хэндл по его названию

#НакаВыкуси------------------------------[X]

а вот его дочернее (MDI) выдает только так

#НакаВыкуси - [Установки]-------------[X]

а вот так уже нет

#НакаВыкуси------------------------------[X]
#Установки---------------------------------[X]

Помогите plz.

[keks-n]

Хук на все оконные сообщение на главный тред той аппликухи повесить надо.

[claymen]

keks-n
Извини, но ты мог бы по-понятнее (без слэнга)?

[keks-n]

См. пример с часами от tyomitch.

[claymen]

keks-n
а не подскажешь ссылочку, а?

[keks-n]

http://bbs.vbstreets.ru/viewtopic.php?t=10245

В принципе, надо ловить нажатие на менюху.

[tyomitch]

Поиск окна по подстроке заголовка: http://groups.google.com/group/fido7.ru ... d7af76965e

[keks-n]

tyomitch
Таки перехват сообщений даёт больше возможностей по контролю.

[claymen]

tyomitch
я смотрел эту ссылку, но тамошний пример не работает!
Все время вылезают ошибки.

[claymen]

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

Declare Function EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long


Я так понял, что эта функция возвращает handle дочернего окна главной программы. Если это так, то подскажите пожалуйсто, что означают следующие параметры:
hWndParent - это, как я понял handle главной программы, а вот что они означают: lpEnumFunc, lParam ???

[Amed]

· lpEnumFunc
Points to an application-defined callback function. For more information about the callback function, see the EnumChildProc callback function.

· lParam
Specifies a 32-bit, application-defined value to be passed to the callback function.

В api-guide есть прекрасный пример

[Viper]

нды... MSDN отменили? lpEnumFunc - указатель на callback-функцию, в которую будет передаваться инфа о перечисляемых дочерних окнах, а lParam - определяет дополнительные данные которые в эту функцию можно передать

[claymen]

!Viper!
То, что вы заметили насчет MSDN - это зря.
Тоже самое я прочитал там.
Блин, но как мне это исспользовать?
Вот самый наипростейший пример:
Есть главная программа "MS Word" и дочернее окно "Реферат".
Так как мне найти handle окна Реферат, пока оно еще не развернуто во весь экран и не превратилось в окно "Реферат - MS Word" с помощью функции EnumChildWindows.

ЛЮДИ! Если Вам трудно объяснить, то помогите с примером!
Ведь Вы тоже когда-то так начинали.

[Amed]

Создай MDI-форму и две дочерние (Form1, Form2) в VB.

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

'В форме
Private Sub MDIForm_Load()
    Load Form1
    Load Form2
    EnumChildWindows MDIForm1.hwnd, AddressOf EnumChildProc, ByVal 0&
End Sub

'В модуле
Option Explicit

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim sSave As String
    'Get the windowtext length
    sSave = Space$(GetWindowTextLength(hwnd) + 1)
    'get the window text
    GetWindowText hwnd, sSave, Len(sSave)
    'remove the last Chr$(0)
    sSave = Left$(sSave, Len(sSave) - 1)
    If sSave <> "" Then Form2.Print sSave
    'continue enumeration
    EnumChildProc = 1
End Function

Аналогично действуй. Ищи hwnd родительского окна и перечисляй все его дочерние mdi-окна.

[Viper]

последняя строка

[claymen]

Раз уж я так и не понял (пример Amed выводит на экран пустую Form1).
Вот решил отблагадорить того, кто мне поможет банкой/бутылкой хорошего пива. Т.к. я живу в КЫРГЫЗСТАНЕ, а это далеко от РОССИИ, то я перечислю на счет WebMoney 50 WMR тому, кто мне поможет с МОИМ примером.
Всетаки посильная помощь - должна ПООЩРЯТЬСЯ!

[tyomitch]

Хочу 50 WMR.

[Amed]

Отправлять Сергею Мерзликину

[claymen]

tyomitch
Извините, но Вы наверное не так поняли мою задачу.
Ваш пример говорит, что "Таких окон нет". А такое окно прямо передо мной. Если конкретнее, то:
Главная программа - Инфо-Бухгалтер
Ее дочернее окно - Редактор
И таких дочерних окон там много, но Ваш пример не видит их!

Мне нужен пример (или контрол), который бы видел эти окошки, а точнее их handl'ы!

[Amed]

claymen, а посмотри через spy++, какие дочерние окна видны у Инфо-Бухгалтер.

[claymen]

Amed
Интересное предложение, но у меня не VS, а где в сети можно скачать spy++?

[tyomitch]

tyomitch
Извините, но Вы наверное не так поняли мою задачу.
Ваш пример говорит, что "Таких окон нет". А такое окно прямо передо мной. Если конкретнее, то:
Главная программа - Инфо-Бухгалтер
Ее дочернее окно - Редактор
И таких дочерних окон там много, но Ваш пример не видит их!

Если нужно перечислять дочерние окна известного родителя hWndParent, то просто замени "EnumWindows AddressOf EnumWindowsProc, FindWindowByCaption" на "EnumChildWindows hWndParent, AddressOf EnumWindowsProc, FindWindowByCaption"

[claymen]

tyomitch
После данной замены, VB выдает ошибку Variable not defined в строке:
EnumChildWindows hWndParent, AddressOf EnumWindowsProc, FindWindowByCaption

[tyomitch]

Если нужно перечислять дочерние окна известного родителя hWndParent, то просто замени "EnumWindows AddressOf EnumWindowsProc, FindWindowByCaption" на "EnumChildWindows hWndParent, AddressOf EnumWindowsProc, FindWindowByCaption"

В hWndParent нужно положить хэндл известного тебе родителя. Ты говоришь, что уже умеешь его находить, потому что его заголовок не меняется.

[claymen]

tyomitch
я вставил вместо [b]hWndParent[b/] handle родителя, но после запуска (F5) когда стал вводить в поле первую букву названия дочернего окна, VB вызвал критичесскую ошибку и закрылся, так и не показав мне ни полного имени дочернего окни, ни его handle.

[tyomitch]

Проверяй...

[tyomitch]

Эх, кинули меня злые кыргызы...

[GSerg]

А чего ты хотел от человека, который давеча спрашивал, как лучше украсть программу и продавать от своего имени.

[claymen]

Я никого НЕ КИДАЛ!
Просто тот пример, после того как я ввожу handle родителя и запускаю пример - VB сообщает о критичесской ошибке и закрывается.
Так и не показав мне handle нужного окна!

[Viper]

а каким чудным образом ты вводишь хэндл родителя?