Программное движение мышки в окне игры Rust!

DOKERcom · Регистрация: 04.05.2016

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

Создаю программу, которая будет при нажатии на левую копку мыши программно опускать курсор в низ, проблема в том что,
при заходе в игру в меню, и в инвентаре все работает, но стоит взять в руки оружие или другой любой предмет, или же вообще пусто, но главное что не в меню и не в инвентаре, как перестает происходить это движение...
Вот код передвижения мышки -

Delphi

var x, y: integer;
x := Mouse.CursorPos.X;
y := Mouse.CursorPos.Y;
Mouse.CursorPos := Point(x, y+Pixels);

Претензий к коду нет, потому что в игре Minecraft всё работает успешно.
Мне кажется что в момент игры окно игры "RUST" не активно, и из за этого движение мышки в самой игре не происходит,
Пробовал с PostMessage и с другими не помогает, что предложите?

@cfbogd · 27.08.2016, 09:09

DOKERcom, а в какой процедуре исполняется код?

DOKERcom · 27.08.2016, 13:37 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, CoolTrayIcon, StdCtrls;
 
type
  TForm1 = class(TForm)
    img1: TImage;
    img2: TImage;
    img3: TImage;
    img4: TImage;
    img5: TImage;
    cltrycn1: TCoolTrayIcon;
    img6: TImage;
    img7: TImage;
    img8: TImage;
    img9: TImage;
    edt1: TEdit;
    cbb1: TComboBox;
    edt2: TEdit;
    tmr1: TTimer;
    cbb2: TComboBox;
    tmr2: TTimer;
    procedure img1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cltrycn1Click(Sender: TObject);
    procedure img5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure img9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cbb1Change(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Pixels:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
perform(WM_SysCommand,$F012,0);
end;
 
procedure TForm1.img2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img2.Visible:=False;
img3.Visible:=True;
end;
 
procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img2.Visible:=True;
img3.Visible:=False;
img4.Visible:=True;
img5.Visible:=False;
img6.Visible:=True;
img7.Visible:=False;
img9.Visible:=False;
img8.Visible:=true;
end;
 
procedure TForm1.img3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Form1.close;
end;
 
procedure TForm1.img4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img4.Visible:=False;
img5.Visible:=True;
end;
 
procedure TForm1.img3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img4.Visible:=True;
img5.Visible:=False;
end;
 
procedure TForm1.img5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img2.Visible:=True;
img3.Visible:=False;
end;
 
procedure TForm1.cltrycn1Click(Sender: TObject);
begin
    cltrycn1.IconVisible:=False;
    Form1.Visible:=True;
    Application.ShowMainForm := True;
    ShowWindow(Handle,SW_SHOW); // Ïîêàçûâàåì ïðîãðàììó
    ShowWindow(Application.Handle,SW_SHOW);
end;
 
procedure TForm1.img5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
cltrycn1.IconVisible:=True;
    Form1.Visible:=False;
    Application.ShowMainForm := False;
    ShowWindow(Handle,SW_HIDE); // ñêðûâàåì ïðîãðàììó
    ShowWindow(Application.Handle,SW_HIDE);
end;
 
procedure TForm1.img6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img6.Visible:=False;
img7.Visible:=true;
end;
 
procedure TForm1.img8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img8.Visible:=False;
img9.Visible:=true;
end;
 
procedure TForm1.img7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img9.Visible:=False;
img8.Visible:=true;
end;
 
procedure TForm1.img9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img6.Visible:=True;
img7.Visible:=False;
end;
 
procedure TForm1.cbb1Change(Sender: TObject);
begin
if cbb1.ItemIndex=0 then
begin
edt1.Text:='130';
end;
end;
 
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if edt1.Text = '' then
else
begin
tmr2.Interval:=strtoint(edt1.Text);
end;
if edt2.Text = '' then
else
begin
Pixels:=strtoint(edt2.text);
end;
if (GetKeyState(VK_LBUTTON) AND 128) = 128 then
begin
tmr2.Enabled:=True;
end
else
begin
tmr2.Enabled:=False;
end;
end;
procedure TForm1.tmr2Timer(Sender: TObject);
var
  x, y: integer;
begin
//if FindWindow(nil,'Rust')<> 0 then
//begin
//ShowMessage('Yes');
//Close;
//end;
x := Mouse.CursorPos.X;
y := Mouse.CursorPos.Y;
Mouse.CursorPos := Point(x, y+Pixels);
end;
 
end.

@cfbogd · 27.08.2016, 13:54

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

if edt1.Text = '' then else

не понял что это

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

begin tmr2.Enabled:=True; end

можно и без скобок begin end;

Не по теме:

если честно, не пойму смысла программы, если вы объясните для чего она, я думаю что я и другие пользователи смогут вам предоставить более полезную информацию и код :)

@~~AllFree~~ · 27.08.2016, 13:56

Попробуйте переписать на AutoIt. Там есть почти всё для разработки автокликеров и ботов.
Очень простой язык.

DOKERcom · 27.08.2016, 15:00 **[ТС]**

ну а по делфи7 нельзя?

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

@~~AllFree~~ · 27.08.2016, 15:52

Можно, просто на делфи сложнее. Я бы помог, но не на чем проверить. Нет игры под рукой.

@DevAlone · 27.08.2016, 15:56

Гуглите "хуки windows" или перехват мыши. На delphi не знаю, но на C++ должно получиться.

@cfbogd · 27.08.2016, 15:56

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

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

Не по теме:

программе, извините за выражение, просто пофиг что там на экране, она будет выполнять код, который вы написали. Прога не знает что такое оружие, отдача и все такое.

@~~AllFree~~ · 27.08.2016, 15:59

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

Гуглите "хуки windows" или перехват мыши. На delphi не знаю, но на C++ должно получиться.

С++ вызывает какие-то другие API? Что за бред?

@DevAlone · 27.08.2016, 16:23

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

С++ вызывает какие-то другие API? Что за бред?

Не кодил на дельфи, поэтому не скажу, что он вызывает, а C++ работает с WinAPI

DOKERcom · 09.07.2017, 22:32 **[ТС]**

Да ладно!

@koitoTyan · 18.08.2020, 18:55

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

Создаю программу, которая будет при нажатии на левую копку мыши программно опускать курсор в низ, проблема в том что,
при заходе в игру в меню, и в инвентаре все работает, но стоит взять в руки оружие или другой любой предмет, или же вообще пусто, но главное что не в меню и не в инвентаре, как перестает происходить это движение...
Вот код передвижения мышки -

где написано что это касается ЯЗЫКА rust?

@Curry · 18.08.2020, 22:19

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

где написано что это касается ЯЗЫКА rust?

Нигде. Кто то опять спутал игру RUST и язык rust.

@~~AllFree~~ Заблокирован
	27.08.2016, 15:59	10
	Сообщение от DevAlone Гуглите "хуки windows" или перехват мыши. На delphi не знаю, но на C++ должно получиться. С++ вызывает какие-то другие API? Что за бред? 0

@DevAlone 331 / 283 / 78 Регистрация: 02.08.2016 Сообщений: 1,008
	27.08.2016, 16:23	11
	Сообщение от AllFree С++ вызывает какие-то другие API? Что за бред? Не кодил на дельфи, поэтому не скажу, что он вызывает, а C++ работает с WinAPI 0

@Curry Модератор 5106 / 3334 / 535 Регистрация: 01.06.2013 Сообщений: 7,009 Записей в блоге: 9
	18.08.2020, 22:19	14
	Сообщение было отмечено DOKERcom как решение Решение Сообщение от koitoTyan где написано что это касается ЯЗЫКА rust? Нигде. Кто то опять спутал игру RUST и язык rust. 0

Новые блоги и статьи
Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	27.08.2016, 09:09	2
	DOKERcom, а в какой процедуре исполняется код? 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	27.08.2016, 13:54	4
	Сообщение от DOKERcom if edt1.Text = '' then else не понял что это Сообщение от DOKERcom begin tmr2.Enabled:=True; end можно и без скобок begin end; Не по теме: если честно, не пойму смысла программы, если вы объясните для чего она, я думаю что я и другие пользователи смогут вам предоставить более полезную информацию и код :) 0

@~~AllFree~~ Заблокирован
	27.08.2016, 13:56	5
	Попробуйте переписать на AutoIt. Там есть почти всё для разработки автокликеров и ботов. Очень простой язык. 0

DOKERcom 14 / 14 / 0 Регистрация: 04.05.2016 Сообщений: 157
	27.08.2016, 15:00 [ТС]	6
	ну а по делфи7 нельзя? Добавлено через 3 минуты Программа будет гасить отдачу оружия, при нажатии на левую кнопку мыши... 0

@~~AllFree~~ Заблокирован
	27.08.2016, 15:52	7
	Можно, просто на делфи сложнее. Я бы помог, но не на чем проверить. Нет игры под рукой. 0

@DevAlone 331 / 283 / 78 Регистрация: 02.08.2016 Сообщений: 1,008
	27.08.2016, 15:56	8
	Гуглите "хуки windows" или перехват мыши. На delphi не знаю, но на C++ должно получиться. 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	27.08.2016, 15:56	9
	Сообщение от DOKERcom Программа будет гасить отдачу оружия, при нажатии на левую кнопку мыши... Не по теме: программе, извините за выражение, просто пофиг что там на экране, она будет выполнять код, который вы написали. Прога не знает что такое оружие, отдача и все такое. 0

DOKERcom 14 / 14 / 0 Регистрация: 04.05.2016 Сообщений: 157
	09.07.2017, 22:32 [ТС]	12
	Да ладно! 0

@koitoTyan 4 / 4 / 1 Регистрация: 11.09.2017 Сообщений: 21
	18.08.2020, 18:55	13
	Сообщение от DOKERcom Создаю программу, которая будет при нажатии на левую копку мыши программно опускать курсор в низ, проблема в том что, при заходе в игру в меню, и в инвентаре все работает, но стоит взять в руки оружие или другой любой предмет, или же вообще пусто, но главное что не в меню и не в инвентаре, как перестает происходить это движение... Вот код передвижения мышки - где написано что это касается ЯЗЫКА rust? 0

Программное движение мышки в окне игры Rust!

Решение