Ошибка при использовании FindWindow и FindWindowEx

@1692 · Регистрация: 01.11.2012

Студворк — интернет-сервис помощи студентам

мне нужно:

Delphi
1
2
3
4
5
\\h2, h1: hwnd;
begin
h2 :=FindWindowEx(FindWindow(nil, 'ex0'), 0, 'TButton', 'reg');   
SendMessage(h2, WM_LBUTTONDOWN, 0,0);
SendMessage(h2, WM_LBUTTONUP, 0,0);

\\ потом:

Delphi
1
2
3
h1 :=FindWindowEx(FindWindow(nil, '127'), 0, 'TRadioButton', 'usb');
SendMessage(h1, WM_LBUTTONDOWN, 0,0);
SendMessage(h1, WM_LBUTTONUP, 0,0);

\\ но перед h1 появляется:

Ошибка при использовании FindWindow и FindWindowEx

\\ и всё останавливается... отдельным приложением можно решить:

Delphi
1
2
3
4
5
6
7
8
9
10
begin
L1 :=FindWindow(nil, 'error');
L2 :=FindWindowEX(L1, 0, nil, 'cancel');
if L2 <> 0 then showmessage('get B'); \\
if L2 = 0 then showmessage('not B');    \\ это всё лирика.
if L1 <> 0 then showmessage('get W'); //
if L1 = 0 then showmessage('not W');  //
sendmessage(L2,WM_LBUTTONDOWN, 0,0);
SendMessage(L2, WM_LBUTTONUP, 0,0);
end;

\\однако в пределах этого кода всё просто останавливается.
p.s
\\исходника той проги нет, альтернативы нет.
\\пробовал так: (...) и через Except

Delphi
1
2
3
4
5
6
7
8
9
begin
try
h2 :=FindWindowEx(FindWindow(nil, 'ex0'), 0, 'TButton', 'reg');
SendMessage(h2, WM_LBUTTONDOWN, 0,0);
SendMessage(h2, WM_LBUTTONUP, 0,0);
finally
h4 :=FindWindowEx(FindWindow(nil, 'error'), 0, nil, 'cancel');
SendMessage(h4, WM_LBUTTONDOWN, 0,0);
SendMessage(h4, WM_LBUTTONUP, 0,0);

\\о себе: дрозд, выражайтесь простыми словами.

@Nanotentacle · 31.12.2017, 11:14

Имхо, неинформативно совершенно. Нужен либо весь проект, либо хотя бы внемляемый кусок кода.

@Пытливый · 31.12.2017, 13:26

Delphi
1
try finally

обычно используется для корректного завершения критической секции, а вам видимо нужен try except, который позволит погасить ошибку и продолжить выполнения кода.

@Matan! · 31.12.2017, 18:42

Сообщение от 1692

FindWindow(nil, 'ex0');

Как это? Класс формы не может быть nil,если форма вообще существует, а вот форма может быть без названия.
Настоятельно рекомендую поставить точку останова, когда Вы всё-таки найдёте полный исходник, и посмотреть,чему равны L1, L2. Что-то мне кажется, что они будут по нулям.

@cotseec · 01.01.2018, 14:49

Не по теме:

FindWindow

If lpClassName is NULL, it finds any window whose title matches the lpWindowName parameter.

при нажатии на кнопку совершается попытка программы подключиться к порту СОМ1, а его нет (по крайней мере так говорит программа), так что дело, имхо, не в коде
все останавливается из-за того, что сообщение является модальным окном и пока оно висит главное окно не будет читать очередь сообщений
предоставьте программе СОМ1

@1692 · 01.01.2018, 15:21 **[ТС]**

Сообщение от cotseec

...

спасибо ответ. Об этом и вопрос. Как заставить реципиента проигнорировать сообщение об ошибке (или программно нажать на кнопку "cancel" на этом модальном окне) и продолжить выполнение эксплойта.
Мне нужно компактное решение в пару команд. Без ещё одной программы, дизасемблера, перекопки готового кода и т.д.
для Matan!

Сообщение от Matan!

Класс формы не может быть nil,

действительно не может,
однако класс при поиске можно проигнорировать и форма будет искаться по названию.
Переменные нулям не равны. можно проверить:

Delphi
1
showmessage(IntToStr(L1));

но я и так знаю что формы и кнопки находятся.

Сообщение от Пытливый

...

я уже пробовал через экзепт, она для игнорирования ошибок "в себе".
у меня проблемное место в другой программе.

@Пытливый · 01.01.2018, 23:35

Ага, невнимательно прочитал. Так что мешает повесить отдельный поток, который будет просто мониторить каждые пару секунд появление окна с ошибкой и канселить его? Окно конечно лучше бы искать не по имени а дескриптору, а то закроете не то что надо

@Jin X · 02.01.2018, 13:48

Можно поставить хук на создание окна и запретить его создание: http://rsdn.org/article/baseserv/winhooks.xml (WH_CBT / HCBT_CREATEWND)
Но для этого придётся делать отдельную DLL...

Добавлено через 14 минут

Сообщение от 1692

h2 :=FindWindowEx(FindWindow(nil, 'ex0'), 0, 'TButton', 'reg'); *
SendMessage(h2, WM_LBUTTONDOWN, 0,0);

Вообще, это не очень красиво. Т.к. если окно 'ex0' не будет найдено, то FindWindowEx может найти что-то другое (конечно, маловероятно, что найдётся форма с классом 'TButton' и заголовком 'reg', тем не менее). И FindWindowEx может вернуть не то, что ожидается (ноль).
Кстати, эти два SendMessage'а можно упростить до одного SendMessage(h2, BM_CLICK, 0, 0);

@cotseec · 02.01.2018, 21:32

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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Nanotentacle 882 / 404 / 173 Регистрация: 20.10.2016 Сообщений: 1,828
	31.12.2017, 11:14
	Имхо, неинформативно совершенно. Нужен либо весь проект, либо хотя бы внемляемый кусок кода. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	01.01.2018, 23:35
	Ага, невнимательно прочитал. Так что мешает повесить отдельный поток, который будет просто мониторить каждые пару секунд появление окна с ошибкой и канселить его? Окно конечно лучше бы искать не по имени а дескриптору, а то закроете не то что надо 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	02.01.2018, 21:32
	поставьте виртуальный нульмодемный кабель, если живого порта нет, настройте на СОМ1 и проблема с ненахождением СОМ1 будет решена.... вполне вероятно, что программа будет что-то ждать из СОМ порта и возникнет иное сообщение, но это уже другая история 0