[Dúvida] Utilitário Para Tibia

[vctrop123 1]

Olá a todos que estão passando pelo meu tópico,

Ontem eu me senti inspirado e decidi criar um Utilitário para Tibia no Delphi. A sua função é deixar o char treinando e, ela contém os seguintes recursos:

 

- Speller: eu usei um edit para ser o intervalo de tempo em que soltará a magia escrita no edit ao lado. A Dúvida é: Como fazer para comparar o address da mana com o edit e fazer ele soltar a magia quando a mana for maior ou igual à do edit pôs tentei fazer isso com o address que achei e não dá.

 

- Girar character: dois buttons e 4 timers > Buttons Ativar e Desativar e os timers UP, DOWN, LEFT, RIGHT. quando eu ativo ele liga um timer que pressiona Ctrl+Arrow. A dúvida é: Gostaria de saber como eu faria para ele só girar o boneco no tibia e funcionar quando o tibia estiver minimizado... Eu usei uma variável Global i do tipo HWND e no inicio de cada timer coloquei i:=FindWindow(nil, 'tibia') mas não deu certo.

 

- Comer: dois buttons, 1 edit e 3 timers que: 1° Timer: verifica se determinada tecla foi pressionada e captura a posição do cursor; 2° Timer: manda o cursor para a posição capturada anteriormente; 3° Timer: faz com que o intervalo do segundo timer seja o edit * 1000. A dúvida é: a mesma do Girar Character >>> Fazer isso apenas na janela do tibia.

 

Muito Obrigado!!!

Por Favor Evitem Flood

[rodiias 20]

Mano, não é por nada não, mais eu já ouvir falar que não da pra fazer trainers pra tibia (: , bem eu nunca tentei, mais quem sabe né, ainda mais com essa nova versão q vai vim...

[DragonBoss 9]

aham rodiias, senta lá.

enfim, você basicamente quer fazer uma leitura de address com comparação, e usar SendMessage() pra enviar pressionamento de teclas na janela, ou seja, com o tibia minimizado.

 

Minha função de anti-idle é esta:

 

var

h: HWND;

 

begin

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

 

SendMessage(h, WM_KEYdown, 17, 0);

SendMessage(h, WM_KEYdown, 38, 0);

SendMessage(h, WM_KEYdown, 40, 0);

SendMessage(h, WM_KEYUP, 17, 0);

SendMessage(h, WM_KEYUP, 38, 0);

SendMessage(h, WM_KEYUP, 40, 0);

 

end;

 

com isso, já da pra vc entender a noção de sendmessage.

 

Para ler memoria, uso essa função:

 

function LerInt(Address: Integer): Integer;

var

value:integer;

ler :dword;

Memory: DWORD;

PH : THandle;

PID, ThID, R : 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;

 

 

Ex.:

 

if (strtoint (edit1.text) > LerInt(vida)) then begin

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

 

SendMessage(h, WM_KEYdown, 123, 0); // aperta F12

SendMessage(h, WM_KEYUP, 123, 0); // Solta f12

end;

 

Não explicarei mais da função... lhe dei coisas que uso no meu bot, apenas leia e tente entender, mais "mastigado" que isso, é só se eu "comer" por você ;B

 

OBS: se encontrar algum erro como falta de variaveis... CORRIJA ;P

 

flw, abraços

[vctrop123 1]

@rodiias: Cara, obrigado pela intenção de avisar mais é como se fosse um bot e não um trainer...

@DragonBoss: Muuuuuito obrigaadoooo!!! Não estou em casa mas quando chegar a primeira coisa vai ser estudar as funções que vc deu até entender...

OBS: se encontrar algum erro como falta de variaveis... CORRIJA ;P

Senti um cheirinho de deixar coisas faltando de propósito xD

[DragonBoss 9]

Senti um cheirinho de deixar coisas faltando de propósito xD

 

Não sou de fazer isso... mas, quem sabe né ? =X

Enfim, sei que você não faz parte da galera do ctrl+c/ctrl+v, então espero mesmo que estude e entenda as funçoes ^^

 

flw, abraços

[V!$h&® 0]

Cara, vc tem que ler os Adress do Tibia, depois é so usar a função que o Dragon passou

 

Abraços

[vctrop123 1]

O DragonTools tem a função cavebot?

 

@Edit: e como eu faria para alterar as teclas a serem pressionadas com o sendmessage? poderia utilizar as vk?

 

@Edit2: AEEEEEEE Aprendi... tem que transformar o codigo da VK de HexaDecimal para Decimal... Uhul

[DragonBoss 9]

O DragonTools tem a função cavebot?

 

@Edit: e como eu faria para alterar as teclas a serem pressionadas com o sendmessage? poderia utilizar as vk?

 

O download que ta na net nem tem cavebot...

mas enfim, é, faça tudo com as VK mesmo =X

 

flw, abraços

[V!$h&® 0]

Cara, estude mais um poquinho

Com a ajuda do Dragon eu consegui fazer um cavebot, simples mais funciona

[vctrop123 1]

Sim, vou continuar estudando e tentando entender o código. Mas sobre o seu CaveBot é como se fosse um Macro?

[V!$h&® 0]

Tipo assim

Tenho 4 buttons cada um adiciona uma coordenada o delphi verifica qual é e pressionad a tecla