[Delphi, bot] Pakiety, pisanie na czacie

[Danon910]

Witam!

 

Korzystałem z tego poradnika : http://torg.pl/showt...-macro-do-Tibii

Pisałem bota i chcialem napisac proste pisanie na czacie, mam Packet.dll, wszystko powinno dzialac, ale po kliknieciu w button odpowiadajacy za pisanie, wywala blad. Możliwe ze mam zle pakiety bo pisze pod 7.6, nigdzie nie moge znalesc tego w necie.

 

procedure say(text:string);
var
 PacketBuffer: array [0..200] of byte;
 ProcessID: Cardinal;
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, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID
end;

 

Proszę o pomoc!

[Danon910]

ref!

[woBniaR]

Cóż to za funkcja 'SendPacket'?

Jaki błąd wywala?

[ZakuG]

Danonku, sprawdź log kompilatora ^_^

potem możesz wkleić go tu w spoilerze.