Criando um Mini-Bot no Delphi (Sem API)

Kimoszin · Junho 29, 2011

Primeiramente vou comentar um pouco sobre esse magnifico programa que é o delphi,

Para nos desenvolvermos um bot de tibia por exemplo, nos nao usamos o tibiaapi, mais sim muitas funções muitos codigos e muita outras coisas,

Nao é nada extremamente facil, requer um pouco de estudo, mais tudo oque vc fizer vai estar ali para estudo. Entao eu falo para vcs quando nao tiverem nada pra fazer estudem um pouco sobre o delphi.

Ok vamos ao bot

O Bot é simples, treina seu magic level, tem um anti kick e come food,

Visual, olhe como arrumei os meus componentes

Componentes, vamos precisar de:

1 TGroupBox

1 TButton

2 TLabeledEdit

2 TCheckBox

1 TCombobox

2 TLabel

4 TTimer

Renomeando componentes, para renomear vc deve ir ate a propriedade name

Button -> StartButton

Timer1 -> CastSpell

Timer2 -> Endereço

Timer3 -> Kick

Timer4 -> Food

LabeledEdit1 -> Spell

LabeledEdit2 -> Mana

Arrumando Componentes, quando ja estiverem renomeados

CastSpell.Enabled.False 

CastSpell.Interval.700

Kick.Enabled.False

Kick.Interval.60000

Food.Enabled.False

Food.Interval.30000

Combobox1.Style.csDropDownList

Form1.Caption 'Escolha um Nome para o Bot'

Variaveis Globais, declare embaixo do Form1 : TForm1

PH : THandle;

PID, ThID: DWORD;

H : THandle;

Funções usadas, declare elas embaixo do {$R *.dfm},

//Função para escrever na janela do Tibia

function say(mensagem: string):string;

 var

  h: HWND;

  letra: Integer;

  B: Byte;

 begin

  h := FindWindow(nil, 'tibia');

  for letra := 1 to Length(mensagem) do

  begin

    B := Byte(mensagem[letra]);

    SendMessage(h, WM_CHAR, B, 0);

  end;

    SendMessage(h, WM_CHAR, 13, 0);

  end;

//Função para ler endereço de memoria do Tibia

  function LerInt(Address: Integer): Integer;

var

  value:integer;

  ler :dword;

begin

H := FindWindow(nil, 'Tibia');

ThID := GetWindowThreadProcessId(H, @PID);

PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

ReadProcessMemory(PH, Ptr(Address), @Value, 4, Ler);

Result:=value;

end;

//Função para aperta uma determinada tecla na janela do Tibia

function hotkey(x :string): string;

     var

  h: HWND;

  i : integer;

begin

 if x ='F1' then

  i := 112

  else if x ='F2' then

  i := 113

  else if x ='F3' then

  i := 114

  else if x ='F4' then

  i := 115

  else if x ='F5' then

  i := 116

  else if x ='F6' then

  i := 117

  else if x ='F7' then

  i := 118

  else if x ='F8' then

  i := 119

  else if x ='F9' then

  i := 120

  else if x ='F10' then

  i := 121

  else if x ='F11' then

  i := 122

  else if x ='F12' then

  i := 123;


  h := FindWindow(nil, 'Tibia');  // acha a janela do tibia

  SendMessage(h, WM_KEYdown, i, 0);   //pressiona a tecla

  SendMessage(h, WM_KEYUP, i, 0);  //solta tecla

  end;

Depois de botar os componentes, renomea-los e declarar as funções, Vamos botar os devidos codigos nos respectivos componentes Lembrando que é tudo dentro do begin e end, se tiver Var vc deve excluir o begin, e adiciona-lo depois CastSpell

if StrToInt(Label2.Caption) > (StrToInt(Mana.Text)) then

say(Spell.text)

// Se a mana do player for maior que a mana que foi digitada no component mana, entao vai falar a magia

Endereço

Label2.caption := IntToStr(Lerint($0081CE5C));

// Vai ler o endereço da mana do personagem e transforma em numero para o label2

Kick

Var

TibiaHandle : THandle;

begin

TibiaHandle:=FindWindow(nil,'Tibia'); // Pega a janela do Tibia

SendMessage(TibiaHandle,WM_KEYDOWN,VK_CONTROL,1); // Pressiona o Ctrl

SendMessage(TibiaHandle,WM_KEYDOWN,VK_UP,1); // Pressiona a tecla para cima

SendMessage(TibiaHandle,WM_KEYUP,VK_UP,1); // Libera a tecla

SendMessage(TibiaHandle,WM_KEYDOWN,VK_DOWN,1); // Pressiona a tecla para baixo

SendMessage(TibiaHandle,WM_KEYUP,VK_DOWN,1); // Libera a tecla

SendMessage(TibiaHandle,WM_KEYUP,VK_CONTROL,1); // Libera o Ctrl

end;

Food

hotkey(Combobox1.Text)

// Pressiona oque tiver no Texto do Combobox

StartButton

CastSpell.Enabled := not(CastSpell.Enabled);

Food.Enabled := not(Food.Enabled);

Kick.Enabled := not(Kick.Enabled);


if Checkbox1.checked then

Kick.Enabled := true

else

Kick.Enabled := false;


if Checkbox2.checked then

Food.Enabled := true

else

Food.Enabled := false;


if (Spell.Text <> '') and (Mana.Text <> '') then

CastSpell.Enabled := true

else

CastSpell.Enabled := false;


if (Kick.Enabled) or (Food.Enabled) or (CastSpell.Enabled) then

StartButton.Caption := 'Stop'

else

StartButton.Caption := 'Start';

Bom pessoal sei que é simples, mais estou tentando animar o pessoal do forum para usar o Delphi,

ps: Peguei as funções da sessao do delphi, entao esta tudo aqui

Abraços a todos

Editado Julho 13, 2011 por Kimoszin (veja o histórico de edições)

Puncker · Junho 29, 2011

Para aqueles que são dependentes de TibiaAPI (isso não da futuro pow!) aprenderem um pouco de programação de verdade.

Muito bom o tutorial, bem instrutivo e muito bem organizado! REP+

Google · Junho 29, 2011

Legal !

Agora posso criar um bot, para poder treinar

Mas o que eu preciso para poder criar ?

REP+

@Edite : Pesa pra caramba ! Por isso que usam o VB kkk

Att,

GustavoLuiz

Editado Junho 29, 2011 por Google (veja o histórico de edições)

Kimoszin · Junho 29, 2011

Só o delphi, pode ser encontrado um download aqui na sessao

Google · Junho 29, 2011

Por isso mesmo, estou falando do Delphi !

Mas poderia fazer um para mim ? Para treinar

Porque eu vou formatar o pc, mas não sei quando

Att,

GustavoLuiz

Kimoszin · Junho 29, 2011

Oque vc quer exatamente?

Quando se formata um pc e tem 2 divisoes de HD, uma nao precisa ser apagada se estive limpa, vc pode muito bem guardar o delphi em 1

Google · Junho 29, 2011

Apenas queria que atacasse o bixo, e não seguisse, e com Training ml

Vou formatar o pc todo !

Att,

GustavoLuiz

Kimoszin · Junho 29, 2011

Ah cara, estou sem minha lib aqui do delphi,

Nesse pc nao tenho vb.net entao nao tenho como ajuda-lo

Teehvsx · Junho 30, 2011

Exelente Tutorial

REP+

Kimoszin · Julho 8, 2011

Topico Atualizado para funcionar com o Tibia 9.1

ps: Funciona perfeitamente no XP

Tryller · Julho 8, 2011

Delphi 7 naum funfa em win7

ja tentei de tudo que é maneira ;x

Mas excelente tutorial man

Vou ver se baixo o delphi mais novo pra ver o que dá ;x

Teehvsx · Julho 13, 2011

Ooo começei a usar hoje o Delphi to manjando 1 pokito kkk mais onde eu ponho isso ?

CastSpell.Enabled.False
CastSpell.Interval.700

Kick.Enabled.False

Kick.Interval.60000

Food.Enabled.False

Food.Interval.30000

Combobox1.Style.csDropDownList

Form1.Caption 'Escolha um Nome para o Bot'

Kimoszin · Julho 13, 2011

Essas sao as propriedades amigo,

No CastSpell vai ter uma propriedade chamada Enabled ai vc bota ela em False e assim nas outras

Teehvsx · Julho 13, 2011

Ajuda nisso aki eu fui testar ja fiz tudo so que deu os seguinte erros :

Checking project dependencies...
Compiling Project1.dproj (Debug configuration)

[DCC Error] Unit1.pas(64): E2003 Undeclared identifier: 'H'

[DCC Error] Unit1.pas(65): E2003 Undeclared identifier: 'ThID'

[DCC Error] Unit1.pas(65): E2003 Undeclared identifier: 'PID'

[DCC Error] Unit1.pas(66): E2003 Undeclared identifier: 'PH'

[DCC Error] Unit1.pas(155): E2029 Statement expected but 'VAR' found

[DCC Error] Unit1.pas(155): E2029 ';' expected but 'VAR' found

[DCC Error] Unit1.pas(165): E2029 '.' expected but ';' found

[DCC Warning] Unit1.pas(166): W1011 Text after final 'END.' - ignored by compiler

[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

Failed

Elapsed time: 00:00:13.9

essas linhas : h , thid , pid , ph , var , var , ; , end ficarao 1 linha embaixo delas vermelhas

Codigo usado :

//Função para ler endereço de memoria do Tibia
function LerInt(Address: Integer): Integer;

var

value:integer;

ler :dword;

begin

H := FindWindow(nil, 'Tibia');

ThID := GetWindowThreadProcessId(H, @PID);

PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

ReadProcessMemory(PH, Ptr(Address), @Value, 4, Ler);

Result:=value;

end;

É o codigo inteiro :

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

ComboBox1: TComboBox;

CastSpell: TTimer;

Endereço: TTimer;

Kick: TTimer;

Food: TTimer;

Spell: TLabeledEdit;

StartButton: TButton;

Mana: TLabeledEdit;

procedure CastSpellTimer(Sender: TObject);

procedure EndereçoTimer(Sender: TObject);

procedure KickTimer(Sender: TObject);

procedure FoodTimer(Sender: TObject);

procedure StartButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//Função para escrever na janela do Tibia

function say(mensagem: string):string;

var

h: HWND;

letra: Integer;

B: Byte;

begin

h := FindWindow(nil, 'tibia');

for letra := 1 to Length(mensagem) do

begin

B := Byte(mensagem[letra]);

SendMessage(h, WM_CHAR, B, 0);

end;

SendMessage(h, WM_CHAR, 13, 0);

end;

//Função para ler endereço de memoria do Tibia

function LerInt(Address: Integer): Integer;

var

value:integer;

ler :dword;

begin

H := FindWindow(nil, 'Tibia');

ThID := GetWindowThreadProcessId(H, @PID);

PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

ReadProcessMemory(PH, Ptr(Address), @Value, 4, Ler);

Result:=value;

end;

//Função para aperta uma determinada tecla na janela do Tibia

function hotkey(x :string): string;

var

h: HWND;

i : integer;

begin

if x ='F1' then

i := 112

else if x ='F2' then

i := 113

else if x ='F3' then

i := 114

else if x ='F4' then

i := 115

else if x ='F5' then

i := 116

else if x ='F6' then

i := 117

else if x ='F7' then

i := 118

else if x ='F8' then

i := 119

else if x ='F9' then

i := 120

else if x ='F10' then

i := 121

else if x ='F11' then

i := 122

else if x ='F12' then

i := 123;

h := FindWindow(nil, 'Tibia'); // acha a janela do tibia

SendMessage(h, WM_KEYdown, i, 0); //pressiona a tecla

SendMessage(h, WM_KEYUP, i, 0); //solta tecla

end;

procedure TForm1.StartButtonClick(Sender: TObject);

begin

CastSpell.Enabled := not(CastSpell.Enabled);

Food.Enabled := not(Food.Enabled);

Kick.Enabled := not(Kick.Enabled);

if Checkbox1.checked then

Kick.Enabled := true

else

Kick.Enabled := false;

if Checkbox2.checked then

Food.Enabled := true

else

Food.Enabled := false;

if (Spell.Text <> '') and (Mana.Text <> '') then

CastSpell.Enabled := true

else

CastSpell.Enabled := false;

if (Kick.Enabled) or (Food.Enabled) or (CastSpell.Enabled) then

StartButton.Caption := 'Stop'

else

StartButton.Caption := 'Start';

end;

procedure TForm1.CastSpellTimer(Sender: TObject);

begin

if StrToInt(Label2.Caption) > (StrToInt(Mana.Text)) then

say(Spell.text)

end;

procedure TForm1.EndereçoTimer(Sender: TObject);

begin

Label2.caption := IntToStr(Lerint($0081CE5C));

end;

procedure TForm1.FoodTimer(Sender: TObject);

begin

hotkey(Combobox1.Text)

end;

procedure TForm1.KickTimer(Sender: TObject);

begin

Var

TibiaHandle : THandle;

begin

TibiaHandle:=FindWindow(nil,'Tibia'); // Pega a janela do Tibia

SendMessage(TibiaHandle,WM_KEYDOWN,VK_CONTROL,1); // Pressiona o Ctrl

SendMessage(TibiaHandle,WM_KEYDOWN,VK_UP,1); // Pressiona a tecla para cima

SendMessage(TibiaHandle,WM_KEYUP,VK_UP,1); // Libera a tecla

SendMessage(TibiaHandle,WM_KEYDOWN,VK_DOWN,1); // Pressiona a tecla para baixo

SendMessage(TibiaHandle,WM_KEYUP,VK_DOWN,1); // Libera a tecla

SendMessage(TibiaHandle,WM_KEYUP,VK_CONTROL,1); // Libera o Ctrl

end;

end;

end.

Editado Julho 13, 2011 por EdsonJunior
Tag spoiler Adicionados. (veja o histórico de edições)

Kimoszin · Julho 13, 2011

Erro meu cara, esqueci de botar as variaveis globais no topcio, é so botar abaixo do Form1 : TForm1

Essas:

PH : THandle;

PID, ThID: DWORD;

H : THandle;

Topico Atualizado

Joao Lucas · Janeiro 3, 2012

dae @Kimoszin tem como fala contigo por msg instantaneas ?

MadoxSilver · Janeiro 9, 2012

Esse tutorial foi realmente muito útil, tibia API as vezes é difícil de achar pra fazer uma função tipo...pra atacar, teria como?

Kimoszin · Janeiro 9, 2012

Cara, pra criar uma função para atacar é meio foda, pois teria que pegar a posição do monstro e enviar um click,

Ou usar packet, mais é meio foda, eu nao consigo fazer

MadoxSilver · Janeiro 11, 2012

Ta de boa...isso ai já ajuda muito, é que eu estava vendo uns tutoriais de delphi pelo celular e vi vc em outro fórum (de delphi) procurando saber sobre cavebot, queria saber se tinha conseguido algo, mas mesmo assim obrigado...o tutorial ajudou mto...

Kimoszin · Janeiro 11, 2012

Cara, eu meio que abondonei o Delphi, só fico programando em VB

Mais creio que a logica eu ja consegui, então para converter para Delphi é facil,

Entrar

Criando um Mini-Bot no Delphi (Sem API)

Posts Recomendados

Link para o post

Compartilhar em outros sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Participe da conversa

Quem Está Navegando 0 membros estão online

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Informação Importante