Клик мыши в чужом приложении(Delphi)

[cardon]

Добрый день.
Моя задача в приложении перейти на вкладку Авто и кликнуть на Запустить


Пытаюсь сделать это так

procedure TAutoRunners.btn1Click(Sender: TObject);
var Hnd, HndBtn:HWND;
begin
Hnd:=FindWindow(nil,'FreeTMGameBot 0.1.2.2');
  if Hnd <> 0 then
  ShowMessage('Найдено главное окно')
  else
  ShowMessage('Не найдено главное окно');
  HndBtn := FindWindowEx(Hnd, 0, 'TabControl', 'Авто');
  if HndBtn <> 0 then
  ShowMessage('Найдено первое дочернее окно')
  else
  ShowMessage('Не найдено первое дочернее окно');
//HndBtn:=FindWindowEx(Hnd,0,'Button','Авто');
SendMessage (HndBtn, BM_Click, 0, 0);
end;

Главное окно находит а дочернее не хочет.

Выкладываю часть исходного кода приложения где необходимо кликнуть на эту кнопку и саму программу.
http://www.sendspace.com/file/se8w4b

[hyxogen]

Если найдешь координаты окна, то библиотека AutiItX в помощь!
Почитай тут http://www.script-coding.com/AutiItX.html

[cardon]

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

Если найдешь координаты окна, то библиотека AutiItX в помощь!
Почитай тут http://www.script-coding.com/AutiItX.html

Да зачем мне координаты окна искать если есть исходник приложения где мне необходимо кликать) Просто надо понять что следует дальше искать после поиск главного окна.

[fbus]

если есть исходник то зачем искать окно? сделай просто например

button1.click;

[Noor]

Если в Visual C поддерживается такое, то

btnRunBot.click(self);

ну или простеньким AutoIT скриптом, готовый ксрипт.ехе положить рядом с FreeTMGameBot.exe

Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)


Run ("FreeTMGameBot.exe")
_WinWaitActivate("FreeTMGameBot 0.1.2.2","")
sleep(1000)
Send("{RIGHT}{TAB}{ENTER}")


Func _WinWaitActivate($title,$text,$timeout=0)
	WinWait($title,$text,$timeout)
	If Not WinActive($title,$text) Then WinActivate($title,$text)
	WinWaitActive($title,$text,$timeout)
EndFunc

[cardon]

Вы не правильно поняли мне надо из приложения на Delphi кликнуть на кнопку в приложении написанном на С. Исходник приложения на С я привел выше. Очень надо) Пока сам не дошел почему TabControl он не находит, хотя вроде следующим идет именно он.

[waleri]

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

Пока сам не дошел почему TabControl он не находит, хотя вроде следующим идет именно он.

Потому что класс tab окна не "TabControl", eсли только это системное таб окно. Возьмите Spy++ или другую spy утилиту и посмотрите класс окна (или посмотрите в С изходнике).

[cardon]

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

Потому что класс tab окна не "TabControl", eсли только это системное таб окно. Возьмите Spy++ или другую spy утилиту и посмотрите класс окна (или посмотрите в С изходнике).

Winsperctor называет его "WindowsForms10.SysTabControl32.app .0.378734a"
Пробую обратиться к SysTabControl32 тоже самое не находит.

[eoln]

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

"WindowsForms10.SysTabControl32.app .0.378734a"

Называться оно может немного по разному. Пробуй так

var
  h1,h2,h3,h4:HWND;
begin
  h1:=FindWindow(nil, PChar('FreeTMGameBot 0.1.2.2'));
  h2:=FindWindowEx(h1,0,nil, PChar(''));
  h3:=FindWindowEx(h2,0,nil, PChar('Авто'));
  h4:=FindWindowEx(h3,0,nil, PChar('Запустить бота'));
  SendMessage (h4, BM_Click, 0, 0);
end;

Программа должна быть запущена и открыта на вкладке АВТО

[cardon]

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

Называться оно может немного по разному. Пробуй так

var
  h1,h2,h3,h4:HWND;
begin
  h1:=FindWindow(nil, PChar('FreeTMGameBot 0.1.2.2'));
  h2:=FindWindowEx(h1,0,nil, PChar(''));
  h3:=FindWindowEx(h2,0,nil, PChar('Авто'));
  h4:=FindWindowEx(h3,0,nil, PChar('Запустить бота'));
  SendMessage (h4, BM_Click, 0, 0);
end;

Программа должна быть запущена и открыта на вкладке АВТО

Огромнейшее спасибо работает. А не подскажите как так же перейти на вкладку Авто?