Packet.dll 8.6 pleace

[ismabvbbr]

Someone has a packet.dll to 8.6 ?
If you like , put an example , I can not understand how it works or how can I make my.

[ismabvbbr]

Como faço pra enviar um comando pra andar pra frente? Por injection? Onde consigo as DLL pra enviar o comando?

[Devil]

@Portuguese:
O que você está tentando fazer exatamente ? Vou ver aqui e tento te descolar essa dll e uns exemplos.
Mas basicamente você tem 3 formas simples de fazer o character ir para algum dos lados, ou qualquer outra ação:

1. Usando a packet.dll feito por algum usuário da tpforums (não me lembro) da respectiva versão e enviar o packet correto por um buffer.
2. Injetando uma dll e chamando as funções internamente
3. Mandando teclas para o cliente usando SendMessage/PostMessage da WindowsAPI

Eu prefiro a 2a opção porque posso interagir com o cliente que não dá conflito de teclas/mouse, e não tem risco de enviar uma sequência incorreta de pacotes caso você não saiba exatamente o que você está fazendo.

Por outro lado é uma forma bem mais difícil pois precisa de um conhecimento básico de engenharia reversa.

[ismabvbbr]

Aew, só sei fazer a 3ª opção que você me sugeriu, não jogo mais mas sempre fui curioso para conhecer como vocês mandavam pacotes ou utilizam as funções internamente

- Se você tiver algum exemplo do código fonte de um "packet.dll" ficaria feliz(1ª opção). Tenho Tibia 7.6 e 8.6 pra realizar testes, mas tanto faz a versão.
- A 2ª opção que você sugeriu é o "TibiaAPI.dll"? Se você tem algum exemplo em delphi também ficaria feliz. Aguardo sua resposta, valeu!

[Devil]

Declare it:


procedure SendPacket(ProcessID: Cardinal; Packet: Pointer); stdcall; external 'packet.dll';


Example:


procedure Say(Text : String; Mode : Integer);
var
PacketBuffer: array [0..255] of byte;
begin
PacketBuffer [0]:= Byte (Length (Text) + 4);
PacketBuffer [1]:= $00;
PacketBuffer [2]:= $96;
PacketBuffer [3]:= $00 + Mode; // Yell = 3; Whisper = 2; Say = 1;
PacketBuffer [4]:= Byte (Length (Text));
PacketBuffer [5]:= $00;
CopyMemory (@PacketBuffer[6], @ Text [1], Length (Text));
SendPackett(ProcessID, @PacketBuffer);
end;


But the best way is to create a class to create and manage your own packets (buffer.add8, buffer.add16, buffer.addStr, etc)

[ismabvbbr]

Thank you, this DLL worked perfectly, but can I ask you one more thing? Do you have the source of this DLL?

I found some sources but I could never make it work like this.

@Português
Muito obrigado, essa DLL funcionou perfeitamente, mas posso te pedir mais uma coisa? Você tem a fonte dessa DLL?

Eu achei algumas fontes mas nunca consegui fazer funcionar como essa.

[jzimmer]

nice nice nice nice nice very nice