Ir para conteúdo
Sistema de Servidores de Jogos ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Ajuda com AutoClick Delphi 7


Posts Recomendados

Olá pessoal! Boa noite,

 

Eu estou com um problema em uma aplicação que eu fiz.

Ela é um AutoClick, o problema é o seguinte, funciona normalmente em toda a area do Windows (Ex: Desktop, Dentro de pastas, Arquivos e etc..), porem quando eu criei esse Autoclick a intesão era usa-lo no ragnarok on line pra não precisar usar o dos outros, ai começou a dor de cabeça.

 

Pois ele funciona em todo lugar que eu passe o mouse, meno dentro do jogo. =(

 

Segue o codigo do programa.

 

Se possivel ajuda ai... Vlws.

 

 

unit autoclick;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, XPMan, ComCtrls;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

Edit1: TEdit;

Label1: TLabel;

Timer1: TTimer;

Label2: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Sair: TBitBtn;

Ajuda: TBitBtn;

XPManifest1: TXPManifest;

procedure Timer1Timer(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure SairClick(Sender: TObject);

procedure AjudaClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Mouse_event (MOUSEEVENTF_LEFTDOWN,0,0,0,0);

Mouse_event (MOUSEEVENTF_LEFTUP,0,0,0,0);

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Timer1.Interval := StrToInt (Edit1.Text);

Timer1.Enabled := True;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Timer1.Enabled := False;

end;

 

procedure TForm1.SairClick(Sender: TObject);

begin

ShowMessage ('AutoClick criado exclusivamente para a Furia dos Mendigos. =)');

ShowMessage ('Criado por Júnior - Jrock© ');

Application.Terminate;

end;

 

procedure TForm1.AjudaClick(Sender: TObject);

begin

ShowMessage (' Para utilizar o AutoClick Basta Clicar em Ligar e posicionar o mouse em cima do item desejado.');

end;

 

end.

Link para o comentário
https://www.webcheats.com.br/topic/1815038-ajuda-com-autoclick-delphi-7/
Compartilhar em outros sites

isso não tem haver com algum erro no seu código e sim o sistema de proteção do jogo contra o uso dessas ferramentas

python-doc-icon.jpg

wVNulLU.gif

Link para o comentário
https://www.webcheats.com.br/topic/1815038-ajuda-com-autoclick-delphi-7/#findComment-7642022
Compartilhar em outros sites

Vlw vai ter que usar os comandos do jogo, vc vai ter que achar a call do click para ai sim vc poder criar seu auto-click

Link para o comentário
https://www.webcheats.com.br/topic/1815038-ajuda-com-autoclick-delphi-7/#findComment-7646357
Compartilhar em outros sites

Alguem ideia de como fazer isso? pegar a call do clique no jogo? vou precisar fazer uma DLL?

 

Obrigado pelas respostas.

Link para o comentário
https://www.webcheats.com.br/topic/1815038-ajuda-com-autoclick-delphi-7/#findComment-7658888
Compartilhar em outros sites

Não call é uma function em Assembly.. No caso function do golpe..

Por exemplo

se vc clicar no mouse o jogo chama essa function.

Link para o comentário
https://www.webcheats.com.br/topic/1815038-ajuda-com-autoclick-delphi-7/#findComment-7658993
Compartilhar em outros sites

  • 1 mês depois...

Pago pela criacao de um auto click ou mouse record como queiram chamar personalizado , ate 500 reais urgente

Link para o comentário
https://www.webcheats.com.br/topic/1815038-ajuda-com-autoclick-delphi-7/#findComment-7788478
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.