Criando um Mini-Bot no Delphi (Sem API)

[New 0]

gostaria que alguém criasse um para mim com autofishing facil de manuseio :/

[Guiizao 34]

Tutorial bem explicado.

Lembro quando eu criava trainers para Gunbound, era exatamente desta forma.

Varios timers, declarando as vars, etc etc.

Vou dar uma estudada nesse código, vale a pena

Acho que se tivessem tutos como esse, acabariam os sangue-sugas,como está sendo julgado o caso do RedBot com o TibiaAPI. (Polêmica).

Parabéns pelo tuto. Bem organizado.

Reputado.

[Lordfire 34]

Nessa parte:

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

Não é mais eficiente e organizado usar um case? rs

[Private Sub Teste 353]

Além de eficiente/organizado ficaria mais rápido a aplicação...

[Kimoszin 1160]

Obviamente seria, até da pra fazer algo mais rapido que o case,

Mais eu quis usar a função que tem no forum pra isso, acho que o pessoal entenderia melhor.

[Google 26]

Eu usei o Delphi 7 Portable, como eu executo o bot ?

[John Kevin 2]

eu nao sei mecher muito pq vc nao fais video fica massa

[Google 26]

  Em 14/02/2012 em 22:35, Google disse:

Eu usei o Delphi 7 Portable, como eu executo o bot ?

Expand   Mostrar mais  

Não sei como fazer que o bot funcione, mas não tem nenhum erro nele.

[Kimoszin 1160]

Você tem que compila-lo, ou aperte F9

[Jeferson Santana 1]

tem como fazer isto para pokemon online?

[Kimoszin 1160]

Programação nao é limitada, pode tudo para qualquer coisa.

[Private Sub Teste 353]

Desde que você saiba programar, sim.

[Jeferson Santana 1]

entendo pouco, o básico, vcs podem me ajudar?

[John Kevin 2]

timer 2 nao consigo renomia

Endereço da erro me ajuda ai plx

[bglucca 0]

Fiz aqui o programinha conforme você descreveu acima no Delphi 7.

Vou testar quando chegar em casa.

Obrigado!

abraçoss...

[leozynho123 34]

Kimoszin, se nao poderia estar passando seu msn não ? não entendi muito bem porque começei hoje em delphi.

[Kimoszin 1160]

Tiro dúvidas aqui, só falar cara.

[alfbru 71]

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

fiz todos passos corretamente no delphi 7 e dá erro nesta linha, pode me ajudar?

[Kimoszin 1160]

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

[alfbru 71]

O erro diz não localizar o "Label2"