нажать чужую кнопку

[evgm00]

Привет всем
Для автоматизации необходимо в в чужом окне (вывод на печать)
нажать кнопку hWnd окна и кнопки знаю:

hWnd = FindWindow("#32770", "Window")
If hWnd <> 0 Then
hWndCMD = FindWindowEx(hWnd, 0, "BUTTON", "Save")
If hWndCMD <> 0 Then
PostMessage(hWnd, WM_KEYDOWN, VK_TAB, 0)
PostMessage(hWndCMD, WM_KEYDOWN, VK_RETURN, 0)

почему то при VK_TAB кнопка не получает фокус и нажатие ентер передается др кнопке
что не так я делаю???
заранее спасибо

[Lumen]

А обязательно на кнопку надо Enter'ом нажимать? Может BM_CLICK'ом можно обойтись? Ну или на крайний случай если охота прямо так уж с извратом (извини конечно, но имхо это именно так и есть) можно сначала кнопке послать WM_SETFOCUS а потом послать Enter. И вообще тема уже поднималась много раз.

[evgm00]

А обязательно на кнопку надо Enter'ом нажимать? Может BM_CLICK'ом можно обойтись? Ну или на крайний случай если охота прямо так уж с извратом (извини конечно, но имхо это именно так и есть) можно сначала кнопке послать WM_SETFOCUS а потом послать Enter. И вообще тема уже поднималась много раз.

Спасибо
1 SETFOCUS что-то тоже не получилось а вот кликом все работает
2 я пробовал поиск честное слово но что-то ничего не нашел (не там искал наверное)
3 а если это кажется извратом то подскажите пожалуйста как реализовать это правильно...

[Lumen]

Мое мнение - это использовать SendMessage(hwndbutton, BM_CLICK, 0, 0), но это только мое мнение (как я бы стал реализовывать нажатие на кнопку). Может у тебя условия задачи такие, что никак кроме как Enter'ом не нажмешь. Так что не принимай те слова по поводу изврата близко. Это всего лишь мое мнение. И я хочу тебе помочь (подсказать решение). Вотъ

[evgm00]

а подскажите еще пожалуйста - почему из среды разработки текст в окно вставляется а из ехе нет???

SendMessage(hWinTXT, WM_SETTEXT, 0, ByVal sFileName)

заранее спасибо

[Viper]

а куда вставляем то? откуда хэндл берем?

[evgm00]

вставляем в диалоговое окно сохранения файла
все хендлы есть и правильные - проверено
получаю так:

hWin = FindWindow("#32770", "SaveFile")
If hWin <> 0 Then
hWinTXT = FindWindowEx(hWin, 0, "COMBOBOXEX32", vbNullString)
hWinTXT = FindWindowEx(hWinTXT, 0, "COMBOBOX", vbNullString)
hWinTXT = FindWindowEx(hWinTXT, 0, "EDIT", vbNullString)
If hWinTXT <> 0 Then
RetVal = SendMessage(hWinTXT, WM_SETTEXT, 0, ByVal sFile_Name)
RetVal = SendMessage(hWin, WM_KEYDOWN, VK_RETURN, 0)

[evgm00]

если вставить msgbox перед посылкой текста
If hWinTXT <> 0 Then
msgbox "ok"
RetVal = SendMessage(hWinTXT, WM_SETTEXT, 0, ByVal sFile_Name)
RetVal = SendMessage(hWin, WM_KEYDOWN, VK_RETURN, 0)
то ехе начинает работать корректно...
что бы это значило???

[evgm00]

помогло следующее

RetVal = SetForegroundWindow(hWin)
Call Sleep(500)
RetVal = SendMessage(hWinTXT, WM_SETTEXT, 0, ByVal sFile_Name)

только не пойму почему...