API32 - Поиск объекта

[claymen]

Подскажите, как с помощью WinAPI найти в окне (ну например form1) все объекты (ну например label1, text1, image1) и изменить их (ну например поменять содержимое label1, или вставить в поле text1 свой текст)

P.S. С API я только знакомлюсь, и пока изучил только:

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

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


[ANDLL]

FindWindow
Но он не ищет label и image.
И вообще, найти VB'шные label и image на форме с помощью API будет мягко говоря проблематично.

[BV]

FindWindow

Гм. Вообще-то FindWindowEx/EnumChildWindows

[claymen]

у меня следующие вопросы:
в функции FindWindowEx мне не понятны следующие аргументы:
ByVal lpsz1 As String и ByVal lpsz2 As String
Что они означают?
Если я правильно понимаю, то искать в чужом окне программы label нужно следующим образом:

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
   
Private Sub Form_Load()
    'Ищем handle окна
    tWnd = FindWindow(vbNullString, "Form1")
    'Ищем handle лабела в этом окне
    bWnd = FindWindowEx(tWnd, ByVal 0&, "LABEL", vbNullString)
End Sub


Но почемуто bWnd всегда равен 0. А это значит, что handle лабела не найден! Блин все эти API - такая жуть...

Если кто знает, подскажите как?

[claymen]

вот я сейчас дошел вот до чего:

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
   
Private Sub btnOK_Click()
    'Поиск handle нужного окна
    tWnd = FindWindow(vbNullString, "Form1")
    'Поиск handle элемента в нужном окне (кнопки с надмисью 'OK')
    bWnd = FindWindowEx(tWnd, ByVal 0&, vbNullString, "OK")
    'Ура! Оба хэндла найдены
    'Теперь будем искать handle элемента (лабела с надпись 'This is label')
    bWnd = FindWindowEx(tWnd, ByVal 0&, vbNullString, "This is label")
    'А вот и фиг. Не находит зараза ;((
End Sub


Так почему handle лабела не могу найти?
Я так понял, что lpsz1 из ByVal lpsz1 As String - это некий описатель* элементов окна (Button, Label, Checkbox и т.д.)
А lpsz2 из ByVal lpsz2 As String - это текст, присвоенный этому элементу. Если это так, то где можно найти список описателей lpsz1.

Ну блин, мне что до всего самому доходить. Или кто нибуть поможет-то
А?

[ANDLL]

claymen
Я вроде бы говорил, что label так найти нельзя. Или не читаем?

[BV]

у меня следующие вопросы:
в функции FindWindowEx мне не понятны следующие аргументы:
ByVal lpsz1 As String и ByVal lpsz2 As String
Что они означают?

MSDN рулит

Если я правильно понимаю, то искать в чужом окне программы label нужно следующим образом

OMG. Label - не окно.

[claymen]

ANDLL
Ну тогда может ты мне подскажешь, как найти handle лабела.
И если я нашел handle кнопки "Command1", то какие действия я могу с нею проводить (и как это делать).

[ANDLL]

Ну тогда может ты мне подскажешь, как найти handle лабела

А какой handle тебе нужен?
Если hWnd, то у VBшного label его нету.

[Antonariy]

И если я нашел handle кнопки "Command1", то какие действия я могу с нею проводить (и как это делать).

Может ты скажешь, какие действия нужно проводить с кнопкой? А мы подскажем как. В основном "как" - SendMessage.

[claymen]

Antonariy
Ладно, черт с этой кнопкой. Лучше подскажи как мне найти лабел.

[alibek]

Из внешней программы ты его не найдешь.
Изнутри проще всего пользоваться перебором Controls.

[claymen]

alibek
Ну а как же тогда эту операцию делает программа Multilizer?
Я бы в принципе исспользовал ее, но мне нужно отдельно!

[claymen]

Да, кстати, если кто хнает, где достать описание SendMessage
на Руском языке - подскажите plz.
MSDN - не предлогать!

[Viper]

Да, кстати, если кто хнает, где достать описание SendMessage
на Русcком языке - подскажите plz.
MSDN - не предлагать!

Имеется куча литературы на русском языке, где вполне можно найти описание как SendMessage, так и других функций API, поиск весьма рулит. В первую очередь стоит несомненно вспомнить Аппельмана. Ну и все же MSDN остается наилучшим источником знаний по API функциям...

З.Ы. Английский язык в объеме необходимом для чтения MSDN надо таки стараться изучать по мере сил и возможностей.

[Oxygen]

Вот, держи, вроде тут все понятно написано. А вообще, пользуйся поиском, тут эту функцию не раз обсуждали.

Функция SendMessage
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long

Платформа

Windows 95/98: Поддерживается.
Windows NT: Требуется Windows NT 3.1 или выше.
Windows 2000: Поддерживается.
Windows CE: Требуется Windows CE 1.0 или выше.

SendMessage посылает сообщение окну. Функция вызывает оконную процедуру для обработки сообщения. Эта функция не возвращается, пока окно не завершит обработку сообщения.

Возвращаемое значение
Функция возвращает значение сообщения.
Параметры


hWnd
Дескриптор окна,в которое будет послано сообщение.
Msg
Идентификатор сообщения.
wParam
Дополнительные определенные данные сообщения.
lParam
Дополнительные определенные данные сообщения.

Константы


Const WM_SYSCOMMAND = &H112
Const SC_SCREENSAVE = &HF140&

Пример

' Запускаем хранитель экрана

SendMessage hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, ByVal 0&

Какие бывают сообщения - будет тебе заданием для самостоятельного изучения.

[claymen]

Oxygen
Твой пример вызывает ошибку "Overflow"

[claymen]

Oxygen
Твой пример вызывает ошибку "Overflow"
И на сколько я понял, функция декларируется не так:

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

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long


А вот так:

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long


[Oxygen]

Это не пример. Это вырезка из справочника по API. А можно узнать, как ты его используешь? Потому как переполнение он впринципе не должен вызывать.

[claymen]

Oxygen
Все очень просто, вот так:

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_SCREENSAVE = &HF140&

Private Sub Form_Load()
    SendMessage hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, ByVal 0&
End Sub


[ANDLL]

на сколько я понял, функция декларируется не так

API функции деклалируются так, как того хочется автору. (При этом, правда, надо соблюдать некоторые правила. Но конкретно втом случае они соблюдены)

[claymen]

!Viper!
На счет Аппельмана - это наверное такой автор книги по API?
Может подскажешь. где его достать в сети, и как точно называется его книга.

[Viper]

Oxygen
Твой пример вызывает ошибку "Overflow"
И на сколько я понял, функция декларируется не так:

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

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long


А вот так:

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long


вот как раз твой вариант объявления некорректен, ибо wParam и lParam должны быть объявлены либо As Any, либо As Long, но уж никак не As Integer.

З.Ы. Книга называется Win 32 API и Visual Basic. автор Дэн Эпплман (Dan Appleman). google тебе в помощь