Авто кликер для игры

@inetinf · Регистрация: 29.07.2014

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

Всем привет помогите сделать ато кликер для игрыhttp://tankionline.com
что бы не блакировать работу пользователя у меня вот что вышло но не работает поправте плиз

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button3Click(Sender: TObject);
Var
i,x,y:integer;
h: THandle;
begin
x:=Left +Form1.ClientWidth-(Form1.ClientWidth Div 100)*25;
y:=Form1.ClientHeight-(ClientHeight Div 100)*3;
I := MakeLong( X, Y );
h:=FindWindow(nil, PChar(WebBrowser1));
SendMessage(h, WM_ACTIVATE, 1, 1);
PostMessage(h, WM_KEYDOWN, i, 0);
PostMessage(h, WM_KEYUP, i, 0);

Добавлено через 10 минут
нашол ошибку исправил на

Delphi
1
2
PostMessage(h, WM_LBUTTONDOWN, i, 0);
PostMessage(h, WM_LBUTTONUP, i, 0);

но бъет не в те координаты в которые нужны
если есть решение бить по цвету пиксиля

Добавлено через 20 часов 5 минут
может кто подскажет где ошибка значение Edit1.Text пустое название окна

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  h: THandle;
  i,x,y:integer;
begin
X:=Left +Form1.ClientWidth-(Form1.ClientWidth Div 100)*30;
Y:=Top +Form1.ClientHeight-(ClientHeight Div 100)*3;
i := MakeLong( X, Y );
//SetCursorPos(Left +Form1.ClientWidth-(Form1.ClientWidth Div 100)*30, Top + Form1.ClientHeight-(ClientHeight Div 100)*3);
h:=FindWindowEx(FindWindow(nil,PChar(Form1)), 0,PChar(Edit1.Text), nil);
//FindWindow(nil, PChar(Edit1.Text));
SendMessage(h, WM_ACTIVATE, 1, 1);
PostMessage(h, WM_LBUTTONDOWN, i, 0);
PostMessage(h, WM_LBUTTONUP, i, 0);
end;

@inetinf · 25.09.2014, 10:06 **[ТС]**

Можно пример на моем коде
на гуглился жуть а решить не могу

@mss · 25.09.2014, 10:15

Ты не понимаешь чем абсолютные координаты отличаются от относительных ?
Или не знаешь что такое клиентская область окна ?

@inetinf · 25.09.2014, 10:55 **[ТС]**

я знаю но не могу вычислить координаты кнопки по относительным размерам окна

Добавлено через 3 минуты
например GetWindowRect вот эта хрень что возврощае размеры окна или координаты левого верхнего угла

Добавлено через 1 минуту
или ScreenToClient тоже не понятно что делает

Добавлено через 7 минут
все пойду застрелюсь
как вычислить координаты кнопки относительно окна

Добавлено через 3 минуты
осечка
стоп относительно окна координаты вычисляются так верно

Delphi
1
2
3
X:=Left +Form1.ClientWidth-(Form1.ClientWidth Div 100)*30;
Y:=Top +Form1.ClientHeight-(ClientHeight Div 100)*3;
i := MakeLong( X, Y );

как вычислить обсолютные координаты

@FIL · 25.09.2014, 10:56

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

например GetWindowRect вот эта хрень что возврощае размеры окна или координаты левого верхнего угла

Гугл и это от тебя скрывает?))

@mss · 25.09.2014, 11:12

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

или ScreenToClient тоже не понятно что делает

Что тут непонятного-то ?)

Указваешь 1-м параметром окно, 2-м параметром указываешь абсолютные экранные координаты некоей точки - ф-ция возвращает во 2-м параметре координаты этой точки, пересчитанные отн-но левого верхнего угла окна

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

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

стоп относительно окна координаты вычисляются так верно

Это с какого же перепугу ?)

X:=Left + чего-то_там

К чему-то_там ты прибавляешь абсолютные экранные координаты формы)
И получаешь координаты чего-то_там относительно левого верхнего угла экрана.
А от тебя ожидаются координаты чего-то_там отн-но левого верхнего угла того окна, в котором это чего-то_там находится)

Похоже геометрию в ЦПШ ты беспардонно прогуливал))

@inetinf · 25.09.2014, 11:17 **[ТС]**

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

А от тебя ожидаются координаты чего-то_там отн-но левого верхнего угла того окна, в котором это чего-то_там находится)

аааааааааааааа как найти

@mss · 25.09.2014, 11:25

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

как найти

Как обычно - вычесть из абсолютных координат чего-то_там абсолютные координаты окна, на котором нарисовано это чего-то_там)

@inetinf · 25.09.2014, 11:37 **[ТС]**

я совсем запутался
эта кнопка находится с низу от края окна 3% от высоты окна
и 30% от правого края окна от ширины окна
ума не прилажу как все это сделать
а еще если добавить зависимость от разрешиния уууууууууу

Добавлено через 1 минуту
есть возможность найти позицию пиксиля в окне по его цвету

Добавлено через 44 секунды
так будет легче чем подключать еще и разрешение

@mss · 25.09.2014, 11:42

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

кнопка находится с низу от края окна 3% от высоты окна
и 30% от правого края окна от ширины окна

Ну и ?
Ширина/высота окна известны, вычитаешь из ширины 30%, из высоты 3% - и вуаля !
Что еще надо-то ?)

@inetinf · 25.09.2014, 12:00 **[ТС]**

при таком раскладе должно бить в центр окна но не чего не происходит

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
begin
//Shell Embedding
X:=WebBrowser1.Width-(WebBrowser1.Width Div 100)*50;
Y:=WebBrowser1.Height-(WebBrowser1.Height Div 100)*50;
edit1.Text:=inttostr(x);
edit2.Text:=inttostr(y);
i := MakeLong( X, Y );
 
 Result := FindWindow(nil,PChar(Form1.Caption));
 Result := FindWindowEX(Result, 0, 'Shell Embedding', nil);
 Result := FindWindowEX(Result, 0, 'Shell DocObject View', nil);
 Result := FindWindowEX(Result, 0, 'Internet Explorer_Server', nil);
 Result1 := FindWindowEX(Result, 0, 'MacromediaFlashPlayerActiveX', nil);
 Result := FindWindowEX(Result, Result1, 'MacromediaFlashPlayerActiveX', nil);
 SendMessage(Result, WM_ACTIVATE, 1, 1);
 PostMessage(Result, WM_LBUTTONDOWN, i, 0);
 PostMessage(Result,WM_MOUSEACTIVATE, i, 0);
 PostMessage(Result, WM_SETFOCUS, i, 0);
 PostMessage(Result, WM_LBUTTONUP, i, 0);
end;

@mss · 25.09.2014, 12:07

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

должно бить в центр окна

А где у тебя расчет центра кл.области окна MacromediaFlashPlayerActiveX ?
В упор не видно)

@inetinf · 25.09.2014, 12:46 **[ТС]**

запустил инспектор и клиент вот что выдает первый флеш при активации на кнопку wm_windowposchanging
а вот что выдает второй

Кликните здесь для просмотра всего текста

<message>
<name>WM_KILLFOCUS</name>
<sent />
<time>08:12:12.0538</time>
<parameters>
<parameter>HWND receiving focus: 0x001703d6</parameter>
</parameters>
</message>
<message return-value="1">
<name>WM_KILLFOCUS</name>
<sent />
<time>08:12:12.0538</time>
<parameters>
<parameter>Return: 0x00000000</parameter>
</parameters>
</message>
<message>
<name>WM_IME_SETCONTEXT</name>
<sent />
<time>08:12:12.0539</time>
<parameters>
<parameter>wParam: 0x00000000</parameter>
<parameter>lParam: 0xc000000f</parameter>
</parameters>
</message>
<message return-value="1">
<name>WM_IME_SETCONTEXT</name>
<sent />
<time>08:12:12.0539</time>
<parameters>
<parameter>Return: 0x00000000</parameter>
</parameters>
</message>
<message>
<name>WM_IME_NOTIFY</name>
<sent />
<time>08:12:12.0539</time>
<parameters>
<parameter>wParam: 0x00000001</parameter>
<parameter>lParam: 0x00000000</parameter>
</parameters>
</message>
<message return-value="1">
<name>WM_IME_NOTIFY</name>
<sent />
<time>08:12:12.0539</time>
<parameters>
<parameter>Return: 0x00000000</parameter>
</parameters>
</message>
<message>
<name>WM_WINDOWPOSCHANGING</name>
<sent />
<time>08:12:13.0016</time>
<parameters>
<parameter>hwnd: 0x000606ba</parameter>
<parameter>hwndInsertAfter: HWND_TOP</parameter>
<parameter>Position: 0, 0</parameter>
<parameter>Size: 1016, 613</parameter>
<parameter>SWP_NOZORDER | SWP_HIDEWINDOW</parameter>
</parameters>
</message>
<message return-value="1">
<name>WM_WINDOWPOSCHANGING</name>
<sent />
<time>08:12:13.0016</time>
<parameters>
<parameter>Continue processing: False</parameter>
</parameters>
</message>
<message>
<name>WM_CHILDACTIVATE</name>
<sent />
<time>08:12:13.0016</time>
<parameters>
<parameter>wParam: 0x00000000</parameter>
<parameter>lParam: 0x00000000</parameter>
</parameters>
</message>
<message return-value="1">
<name>WM_CHILDACTIVATE</name>
<sent />
<time>08:12:13.0016</time>
<parameters>
<parameter>Return: 0x00000000</parameter>
</parameters>
</message>
<message>
<name>WM_WINDOWPOSCHANGED</name>
<sent />
<time>08:12:13.0016</time>
<parameters>
<parameter>hwnd: 0x000606ba</parameter>
<parameter>hwndInsertAfter: HWND_TOP</parameter>
<parameter>Position: 0, 0</parameter>
<parameter>Size: 1016, 613</parameter>
<parameter>SWP_NOSIZE | SWP_NOMOVE | SWP_NOZORDER | SWP_NOREDRAW | SWP_HIDEWINDOW</parameter>
</parameters>
</message>
<message return-value="1">
<name>WM_WINDOWPOSCHANGED</name>
<sent />
<time>08:12:13.0016</time>
<parameters>
<parameter>Continue processing: False</parameter>
</parameters>
</message>
<message>
<name>0x00000090</name>
<sent />
<time>08:12:13.0019</time>
<parameters>
<parameter>wParam: 0x00000000</parameter>
<parameter>lParam: 0x00000000</parameter>
</parameters>
</message>
<message return-value="1">
<name>0x00000090</name>
<sent />
<time>08:12:13.0019</time>
<parameters>
<parameter>Return: 0x00000000</parameter>
</parameters>
</message>

Добавлено через 48 секунд

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

А где у тебя расчет центра кл.области окна MacromediaFlashPlayerActiveX ?

X:=WebBrowser1.Width-(WebBrowser1.Width Div 100)*50;
Y:=WebBrowser1.Height-(WebBrowser1.Height Div 100)*50;

Добавлено через 24 минуты
вот тут чувак который написал этот клиент в 2011 г
Клиент к онлайн игре "Танки Онлайн"

@mss · 25.09.2014, 12:52

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

X:=WebBrowser1.Width-(WebBrowser1.Width Div 100)*50;
Y:=WebBrowser1.Height-(WebBrowser1.Height Div 100)*50;

И где тут упоминание о MacromediaFlashPlayerActiveX ?

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

вот тут чувак

Мне это зачем ?)

@inetinf · 25.09.2014, 13:11 **[ТС]**

помогите расчитать центр на примере

Добавлено через 15 минут
вот так?

Delphi
1
2
3
4
 GetWindowRect(Result,r);
 x:=(r.Bottom-r.Top)div 50;
 Y:=(r.Right-r.Left)div 50;
i := MakeLong( X, Y );

@mss · 25.09.2014, 13:15

var Rect: TRect;
..
GetClientRect(ХендлОкнаФлеша, Rect);
Центр.X := (Rect.Right - Rect.Left) div 2;
Центр.Y := (Rect.Bottom - Rect.Top) div 2;

@inetinf · 25.09.2014, 13:18 **[ТС]**

перепутал x и y

@mss · 25.09.2014, 13:19

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

GetWindowRect

Да почему всего окна-то ?
Координаты не всего окна, а конкретно клиентской его части тебя должны интересовать !
И для этого существует GetClientRect.

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

x:=(r.Bottom-r.Top)div 50;

Ты сам-то вкурил что понаписал ?)
Поделив ширину на 50 (!) получим середину))

Мдя..

@inetinf · 25.09.2014, 13:30 **[ТС]**

ругается GetClientRect(Result,Rect);
[dcc32 Error] Unit1.pas(85): E2034 Too many actual parameters

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button3Click(Sender: TObject);
var
  Result,Result1: THandle;
  i,x,y:integer;
  Rect : TRect;
begin
 Result := FindWindow(nil,PChar(Form1.Caption));
 Result := FindWindowEX(Result, 0, 'Shell Embedding', nil);
 Result := FindWindowEX(Result, 0, 'Shell DocObject View', nil);
 Result := FindWindowEX(Result, 0, 'Internet Explorer_Server', nil);
 Result1 := FindWindowEX(Result, 0, 'MacromediaFlashPlayerActiveX', nil);
 Result := FindWindowEX(Result, Result1, 'MacromediaFlashPlayerActiveX', nil);
 GetClientRect(Result,Rect);
 X := (Rect.Right - Rect.Left) div 2;
 Y := (Rect.Bottom - Rect.Top) div 2;
 i := MakeLong( X, Y );
 SendMessage(Result, WM_ACTIVATE, 1, 1);
 PostMessage(Result, WM_LBUTTONDOWN, i, 0);
 PostMessage(Result,WM_MOUSEACTIVATE, i, 0);
 PostMessage(Result, WM_SETFOCUS, i, 0);
 PostMessage(Result, WM_LBUTTONUP, i, 0);
end;

@mss · 25.09.2014, 13:34

Windows.GetClientRect

@inetinf · 25.09.2014, 13:43 **[ТС]**

[dcc32 Error] Unit1.pas(85): E2003 Undeclared identifier: 'Windows'

Добавлено через 3 минуты
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw,
Vcl.ToolWin, Vcl.ComCtrls;

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@inetinf 0 / 0 / 8 Регистрация: 29.07.2014 Сообщений: 514
	25.09.2014, 10:06 [ТС]
	Можно пример на моем коде на гуглился жуть а решить не могу 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.09.2014, 10:15
	Ты не понимаешь чем абсолютные координаты отличаются от относительных ? Или не знаешь что такое клиентская область окна ? 0

@inetinf 0 / 0 / 8 Регистрация: 29.07.2014 Сообщений: 514
	25.09.2014, 11:37 [ТС]
	я совсем запутался эта кнопка находится с низу от края окна 3% от высоты окна и 30% от правого края окна от ширины окна ума не прилажу как все это сделать а еще если добавить зависимость от разрешиния уууууууууу Добавлено через 1 минуту есть возможность найти позицию пиксиля в окне по его цвету Добавлено через 44 секунды так будет легче чем подключать еще и разрешение 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.09.2014, 13:15
	var Rect: TRect; .. GetClientRect(ХендлОкнаФлеша, Rect); Центр.X := (Rect.Right - Rect.Left) div 2; Центр.Y := (Rect.Bottom - Rect.Top) div 2; 0

@inetinf 0 / 0 / 8 Регистрация: 29.07.2014 Сообщений: 514
	25.09.2014, 13:18 [ТС]
	перепутал x и y 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.09.2014, 13:34
	Windows.GetClientRect 0

@inetinf 0 / 0 / 8 Регистрация: 29.07.2014 Сообщений: 514
	25.09.2014, 13:43 [ТС]
	[dcc32 Error] Unit1.pas(85): E2003 Undeclared identifier: 'Windows' Добавлено через 3 минуты uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw, Vcl.ToolWin, Vcl.ComCtrls; 0