Нажатие кнопки "В бой" в игре World of Tanks

@xdiplodocusx · Регистрация: 28.10.2012

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

Узнаю PID формы:

Delphi

var
window: hwnd;
Begin
window:=FindWindow(nil,'WoT Client');
end;

Естественно пробовал находить PID кнопки по caption-у - результата нет.
Есть ли ещё какие-то варианты, помимо тупого кликера.

Что-то типа такого:
http://www.youtube.com/watch?v... detailpage

@Lucas · 17.11.2012, 03:45

как помочь не знаю, но мне вот стало интересно зачем это тебе ?

@xdiplodocusx · 17.11.2012, 13:02 **[ТС]**

Lucas, Решил познать что-то новенькое, потому как раньше с таким не сталкивался даже.

@Lucas · 17.11.2012, 16:50

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

Lucas, Решил познать что-то новенькое, потому как раньше с таким не сталкивался даже.

понятно.... ну что же, удачи тогда.

@NotAffraid · 02.12.2012, 02:00

Здесь ищешь кнопки конкретно у калькулятора h := FindWindow(nil, 'Calculator');

Delphi

function myEnumFunc(hChild : HWND; L : LPARAM) : BOOL; stdcall;
var
   sClass : array[0 .. 255] of Char;
   sCaption : array[0 .. 255] of Char;
begin
   GetClassName(hChild, @sClass, 255);
   if StrPas(sClass) = 'Button' then
   begin
      SendMessage(hChild, WM_GETTEXT, 255, Integer(@sCaption));
      Form1.Memo2.Lines.Add(Format('Class = %s, Caption = %s, Handle = %d',
         [sClass, sCaption, hChild]));
   end;
   Result := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var h : hwnd;
begin
   h := FindWindow(nil, 'Calculator');
 
   // Под WinXP прекрасно вытаскивает список кнопок из калькулятора
   EnumChildWindows(h, @MyEnumFunc, 0);
end;

а у себя, поколдуешь

Есть такая утилита Windows Inspector или что-то подобное, она покажет тебе все окна, там можешь узнать handle окна, или его имя и класс, чтоб найти с помощью findwindow.

@xdiplodocusx · 02.12.2012, 21:35 **[ТС]**

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

Здесь ищешь кнопки конкретно у калькулятора h := FindWindow(nil, 'Calculator');

Delphi

function myEnumFunc(hChild : HWND; L : LPARAM) : BOOL; stdcall;
var
   sClass : array[0 .. 255] of Char;
   sCaption : array[0 .. 255] of Char;
begin
   GetClassName(hChild, @sClass, 255);
   if StrPas(sClass) = 'Button' then
   begin
      SendMessage(hChild, WM_GETTEXT, 255, Integer(@sCaption));
      Form1.Memo2.Lines.Add(Format('Class = %s, Caption = %s, Handle = %d',
         [sClass, sCaption, hChild]));
   end;
   Result := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var h : hwnd;
begin
   h := FindWindow(nil, 'Calculator');
 
   // Под WinXP прекрасно вытаскивает список кнопок из калькулятора
   EnumChildWindows(h, @MyEnumFunc, 0);
end;

а у себя, поколдуешь

Есть такая утилита Windows Inspector или что-то подобное, она покажет тебе все окна, там можешь узнать handle окна, или его имя и класс, чтоб найти с помощью findwindow.

Дякую, земляче

@Lucas 91 / 3 / 1 Регистрация: 08.07.2012 Сообщений: 40
	17.11.2012, 03:45	2
	как помочь не знаю, но мне вот стало интересно зачем это тебе ? 0

@xdiplodocusx 5 / 5 / 1 Регистрация: 28.10.2012 Сообщений: 22
	17.11.2012, 13:02 [ТС]	3
	Lucas, Решил познать что-то новенькое, потому как раньше с таким не сталкивался даже. 0

@Lucas 91 / 3 / 1 Регистрация: 08.07.2012 Сообщений: 40
	17.11.2012, 16:50	4
	Сообщение от xdiplodocusx Lucas, Решил познать что-то новенькое, потому как раньше с таким не сталкивался даже. понятно.... ну что же, удачи тогда. 0

	02.12.2012, 21:35

Опции темы