Ajuda Delphi! Relogin automatico no Tibia!

[seguwuk 0]

Boa Noite galera! :)

Tenho Delphi7, e estou aprendendo a usa-lo pouco a pouco, fuçando nele e pesquisando...

Fiz um treiner pra OT baseado em autocliker f1 e f2, e até deixei ele bonitinhu visualmente depois :tong:

MAs o problema, é que um dos OTs que mais jogo, costuma cair durante alguns segundos nos SS depois do almoço (provavelmente ele freeza muito por overload, e os clients desconectam)...:(

Ja busquei nesse forum, e no Google, os scripts em delphi para refazer o login caso ele logue, porem, só acho bots prontos ou comandos que nao condizem com o que eu quero (alem de serem bem suspeitos):sarcastico:

Não queria usar um bot pronto, pois quero aprender a fazer td em Delphi, to fazendo anotaçoes sobre comandos e talz pra me aprofundar aos poucos, então venho aqui pedir que POR FAVOR, alguem me ajude a faz isso, (o auto Relogin) implementado com meu sistema de auto clikers..

Ta ai o sistema (como spoiler pra nao poluir a pag.):)

p.s.: Ele tem esse monte de Label, como ilustrações de On e Off, etc ^^"

 

 

unit Unit1;

 

interface

 

uses

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

Dialogs, ExtCtrls, StdCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Timer1: TTimer;

Timer2: TTimer;

Label1: TLabel;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Timer3: TTimer;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Auto-Clicker by Seguwuk }

public

{ Auto-Clicker by Seguwuk }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

keybd_event(VK_F1, 0, 0, 0 );

end;

 

procedure TForm1.Timer2Timer(Sender: TObject);

begin

keybd_event(VK_F2, 0, 0, 0 );

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=True;

Label2.Enabled:=True;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Timer1.Enabled:=False;

Label2.Enabled:=False;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Timer2.Enabled:=True;

Label3.Enabled:=True;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

Timer2.Enabled:=False;

Label3.Enabled:=False;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

Timer3.Enabled:=True;

Label4.Enabled:=True;

end;

 

procedure TForm1.Button6Click(Sender: TObject);

begin

Timer3.Enabled:=False;

Label4.Enabled:=False;

end;

 

end.

 

 

p.s.:[2] Apaguei o Timer3 sem querer antes de postar, mas funciona sem ele mesmo assim (sem falta o f3 no caso do clicker)

p.s.:[3] Quando compilo o arquivo, ele fica no formato do delphi.... em um pc sem delphi ele roda como .exe ou ele fica desconhecido?

 

pô galera, ninguem ai sabE?