PLM-forum.ru

Нужен пример кода обработки стандартного диалогового окна с кнопками: Да, Нет, Отмена.
Часто бывает что в процессе выполнения макроса (на VBA) вылетает какое либо окно. Например, "Такой файл уже существует. Вы хотите пересохранить его?"
Так вот нужно сделать так чтоб пользователю не приходилось жать на кнопки.

viewtopic.php?f=140&t=3686 думаю полезно будет. Вообще твой метод - Win Api, искать окна через WInSpy, и определив его Caption или Class найти именно свое окно и послать команду нажатия клавиши.

Здравствуйте.

CATIA.DisplayFileAlerts = False убирает почти все сообщения.

Wireless_Fidelity писал(а):Здравствуйте.

CATIA.DisplayFileAlerts = False убирает почти все сообщения.

спасибо, помогло. проверил пока на одном макросе.

Добрый день. Кто-нибудь реализовывал эту функцию нажатия пользователем стандартных кнопок диалогового окна?
CATIA.DisplayFileAlerts = false закрывает только сообщения об ошибках.
Мне в частности нужно нажать ОК во всплывающем окне выбора part number.
Я не имел дела с winapi, поэтому пока не выходит через него. Handle окна определяется FindWindow Нормально.
Я хочу сделать окно активным и потом послать команду OK.
Но в случае использования SetActiveWindow(hand) выводит, что вызов функции разбалансировал стек
А если использовать SetForegroundWindow(hand) "Переполнение в результате выполнения арифметической операции"
Кто подскажет?

viewtopic.php?f=140&t=3547 есть пример использования винапи.....ну и вообще по форуму инету глянь - скачай готовые РАБОТАЮЩИЕ примеры, а не пиши с нуля

Спасибо!
Активировать окно получилось, отправить нажатие Enter - нет. Много всего перерыл, но пока остается проблема.

Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
SendMessage(handle, WM_KEYDOWN, VK_RETURN, 0)

VS говорит что WM_KEYDOWN, VK_RETURN нужно объявить. Разве так должно быть? В большинстве примеров эти константы не объявляются.
Я объявил вручную как 256 и 13 соответственно. Но ничего не происходит. Окно активно. Т.е. нужно только "нажать" Enter. В чем может быть причина?

Все. Проблема решилась. Правда не с помощью клавиатурного Enter, а кликом мыши по кнопке.
hButton = FindWindowEx(hand, 0, "Button", "OK")
sendMessage(hButton, BM_CLICK, 0, 0)