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

@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;

@mss · 25.09.2014, 17:54

Штудируй

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

спс за подсказку а можно готовый пример
а то чет не хр... не понимаю извините за назойливость
куда пихать этот параметр wParam

Добавлено через 14 минут
если просто заменить WM_LBUTTONDOWN на MK_LBUTTON то пропадает посылка нажатия
PostMessage(Result,MK_LBUTTON, i, 0);

Добавлено через 23 минуты
сделал вот так

Delphi
1
 PostMessage(Result,WM_LBUTTONDOWN, i, MK_LBUTTON);

получилось координаты мыши при ударе 1 и 0

Добавлено через 18 минут
спс за не о ценимую помощь я разобрался обязательно вышлю результат и напишу про ваш форум и про вас

@mss · 25.09.2014, 20:00

Не по теме:

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

напишу про ваш форум и про вас

Опус ?)

@inetinf · 26.09.2014, 10:50 **[ТС]**

выражу большое спс форуму и вам mss прямо в клиенте на стартовой странице
Да еще вопрос возможно ли хранить куки в своей папке а не где IE и OPERA
и есть ли аналоги компонета webbrauser

@volvo · 26.09.2014, 11:30

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

Да еще вопрос

А еще вопросы задавай отдельно. Нормально сформулированные. Эта тема и так раздута непомерно, не хватало тут еще второй/третьей серии про куки и браузер... Те серии, чувствуется, будут гораздо более длительными...

Новые блоги и статьи Все статьи Все блоги /
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .
[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.09.2014, 17:54
	Штудируй 1

@inetinf 0 / 0 / 8 Регистрация: 29.07.2014 Сообщений: 514
	26.09.2014, 10:50 [ТС]
	выражу большое спс форуму и вам mss прямо в клиенте на стартовой странице Да еще вопрос возможно ли хранить куки в своей папке а не где IE и OPERA и есть ли аналоги компонета webbrauser 0

Опции темы