Sniffer

[Adam199]

I do not know why so changed. Now that the correct code, and so logout:

procedure say(text:string);
var
PacketBuffer: array [0..200] of byte;
Processid: Cardinal;

begin
GetWindowThreadProcessId (FindWindow ( 'TibiaClient', nil), @processid);

PacketBuffer [0]: = Byte (Length (text) + 4);
PacketBuffer [1]: = $ 00;
PacketBuffer [2]: = $ 96;
PacketBuffer [3]: = $ 01;
PacketBuffer [4]: = Byte (Length (text));
PacketBuffer [5]: = $ 00;
CopyMemory (@PacketBuffer [6], @text [1], Length (text));
SendPacket (processid, @PacketBuffer, TRUE, FALSE);

end;

[Yaboomaster]

But who cares? xd If u dont understan how those functions works u will not be able to write Tibia cheats.
Maybe those errors whose caused by some changes at different forums?
Cuz those procedures was written by my at tibia.org.pl
And I get them from famous tibia.pas : )

So as I said few posts before this one, close this topic xd

[Melody]

Climbing a tree from the top is definately not the best way of learning, but a way nevertheless. Copy-pasting code and playing with long enough will eventually give you more and more understanding of what's going on.
Also, now that the next guy who searches these forums for the code and finds this thread will only see this "I would and could help you but I won't" spamming instead of finding the answers to his questions.

Do you have a certain amount of code stored inside your body, so you can't just spread it around? Because I can't think of any other way you losing anything when taking the 30 seconds to paste the friggin code instead of spending 5 minutes on writing a post about why you won't do it.

[volf ram]

I do not know why so changed. Now that the correct code, and so logout:

procedure say(text:string);
var
PacketBuffer: array [0..200] of byte;
Processid: Cardinal;

begin
GetWindowThreadProcessId (FindWindow ( 'TibiaClient', nil), @processid);

PacketBuffer [0]: = Byte (Length (text) + 4);
PacketBuffer [1]: = $ 00;
PacketBuffer [2]: = $ 96;
PacketBuffer [3]: = $ 01;
PacketBuffer [4]: = Byte (Length (text));
PacketBuffer [5]: = $ 00;
CopyMemory (@PacketBuffer [6], @text [1], Length (text));
SendPacket (processid, @PacketBuffer, TRUE, FALSE);

end;

Which version of packet.dll are you using? If I'm not mistaken, the current one accepts 2 parameters, not 4. Check this thread: http://www.tpforums.org/forum/showthread.php?t=3236
Also, make sure your string is short enough (<=198 bytes) so you don't destroy other stack variables.

Edit: err, I missed that you apparently want to make it work with 7.6. Sorry, can't help you then.

[Yaboomaster]

Also, now that the next guy who searches these forums for the code and finds this thread will only see this "I would and could help you but I won't" spamming instead of finding the answers to his questions.

This guy even dont know how to write procedures in Delphi so tell me how can I help him? Ofc I could give him some of my sources but as you said I won't.

Programming is not for everybody. Maybe its also not for me, who knows.

[OsQu]

Well.. you two can continue arguing in private messages. Programming IS for everybody. It's a great hobby and everyone can learn how to program. It just takes some efforts and motivation. And in my experience to play sombody down is not the best way to motivate.. I hope you got my point