Работа со сторонним приложением

@MaxXx · Регистрация: 04.11.2014

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

Здравствуйте! Прошу вашей помоши потому что сам не так силён в Delphi. Опишу саму проблему и думаю вы сами поймёте.
1. Есть программа WP v6.69F или просто WPF. Программа для подмены пакетов.
[del]
2. Хочу написать программу на Delphi которая будет посылать команды в эту программу когда она будет свернута или спрятана в трее. Найти в списке нужный IP (1), Нажать кнопочку Clear (2), Вставить из буфера обмена текст в поле (3),
нажать кнопку Отправить серверу (4).
(вот скриншот)

3. Вот и всё =)
Я гуглил гуглил, что-то нашел но не много. Как я понял сперва надо найти саму программу в процессах, если есть идём дальше. И тут стопор =) Как найти в ней то что открыта Панель PPC и уже в этой панели найти элемент Списко в нём найти нужную строчку, выделить её, дальше нажать кнопку Clear, затем найти элемент Поле в неёго вставить текст из буфера обмена, и нажать в конце на кнопку Послать серверу.
Заранее благодарен всем кто поможет!

@MaxXx · 04.11.2014, 09:40 **[ТС]**

Спасибо. Чуть чуть разобрался как найти все элементы и их класы.
Вот скрин шот.
Каким образом теперь до них добратся?

@MaxXx · 04.11.2014, 15:45 **[ТС]**

Разбираемся =)
ВРоде верно?

Delphi

var
w1, w2, w3, w4, w5, w6, w7:THandle;
begin
W1 := FindWindow('TPanel', ' WÐ Ðackåt Cînvårtår v7.6');
//  if W1 <> 0 then
//  ShowMessage('+ îêíî')
//  else
//  ShowMessage('- îêíî');
 
W2 := FindWindowEx(W1, 0, 'TPageControl', '');
//  if W2 <> 0 then
//  ShowMessage('+ TPageControl')
//  else
//  ShowMessage('- TPageControl');
 
W3 := FindWindowEx(W2, 0, 'TTabSheet', 'Links Online');
//  if W3 <> 0 then
//  ShowMessage('+ TTabSheet')
//  else
//  ShowMessage('- TTabSheet');
 
W4 := FindWindowEx(W3, 0, 'TPanel', '');
//  if W3 <> 0 then
//  ShowMessage('+ TPanel')
//  else
//  ShowMessage('- TPanel');
 
W5 := FindWindowEx(W4, 0, 'TPageControl', '');
//  if W3 <> 0 then
//  ShowMessage('+ TPageControl2')
//  else
//  ShowMessage('- TPageControl');
 
W6 := FindWindowEx(W5, 0, 'TTabSheet', 'Send Raw Packet');
//  if W3 <> 0 then
//  ShowMessage('+ Send Raw Packet')
//  else
//  ShowMessage('- Send Raw Packet');
 
W7 := FindWindowEx(W6, 0, 'TButton', 'Clear');
//  if W3 <> 0 then
//  ShowMessage('+ Clear')
//  else
//  ShowMessage('- Clear');
 
SendMessage(w7,WM_LBUTTONDOWN,0,0);
SendMEssage(w7,WM_LBUTTONUP,0,0);

Добавлено через 2 часа 42 минуты
Теперь встал на моменте "Вставить из буфера обмена текст в поле Memo"

@FIL · 04.11.2014, 16:12

Аналогично.
Находишь HWND Мемо и шлешь ему сообщение:
SendMessage(..., WM_SETTEXT, ...);

@MaxXx · 04.11.2014, 16:46 **[ТС]**

Ага. Так точно! Разобрался. Получилоь:

Delphi

var
w7:THandle;
begin
sendmessage(w7,wm_settext,0,lparam(pchar('32 34')));

Щас смотрю как бы угадать с Мемо, там на одной панели 3 мемо поля и все 3 путых, без заголовка. Как попасть в нужное? Сижу колдую =)

@MaxXx 1 / 1 / 0 Регистрация: 04.11.2014 Сообщений: 41
		1
	Работа со сторонним приложением 04.11.2014, 09:09. Показов 2090. Ответов 4 Метки нет (Все метки) Здравствуйте! Прошу вашей помоши потому что сам не так силён в Delphi. Опишу саму проблему и думаю вы сами поймёте. 1. Есть программа WP v6.69F или просто WPF. Программа для подмены пакетов. [del] 2. Хочу написать программу на Delphi которая будет посылать команды в эту программу когда она будет свернута или спрятана в трее. Найти в списке нужный IP (1), Нажать кнопочку Clear (2), Вставить из буфера обмена текст в поле (3), нажать кнопку Отправить серверу (4). (вот скриншот) 3. Вот и всё =) Я гуглил гуглил, что-то нашел но не много. Как я понял сперва надо найти саму программу в процессах, если есть идём дальше. И тут стопор =) Как найти в ней то что открыта Панель PPC и уже в этой панели найти элемент Списко в нём найти нужную строчку, выделить её, дальше нажать кнопку Clear, затем найти элемент Поле в неёго вставить текст из буфера обмена, и нажать в конце на кнопку Послать серверу. Заранее благодарен всем кто поможет! 0

@MaxXx 1 / 1 / 0 Регистрация: 04.11.2014 Сообщений: 41
	04.11.2014, 09:40 [ТС]	2
	Спасибо. Чуть чуть разобрался как найти все элементы и их класы. Вот скрин шот. Каким образом теперь до них добратся? Миниатюры 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	04.11.2014, 16:12	4
	Аналогично. Находишь HWND Мемо и шлешь ему сообщение: SendMessage(..., WM_SETTEXT, ...); 0

	04.11.2014, 16:46