Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcessID); //pobranie id procesu Tibii
PacketBuffer[0] := Byte(Length(text) + 4); //tu okreslana jest dlugosc pakietu bez 0 i 1
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); // tu program wysyla pakiet do programu z proces id = ProcessID
end;
jak widzisz send packet sie znacznie zmienil.
a w tej chwili wyglada ona u m nie tak:
procedure SendPacket(ProcessID: Cardinal; Packet: Pointer); stdcall; external 'packet.dll';
jak widzisz troche się zmienilo. Packet.dll od Tibi bodajze 8.21 + zostal tak napisany ze należy w ten sposób z niego korzystać.
Zakładki