Originally Posted by
OsQu
Do you have correct socketID?
Yea
Code:
function sendCallBack(s: TSocket; Buf: Pointer; len, flags: Integer): Integer; stdcall;
var
bResposta:Boolean;
Dados:TPacote;
//command system
msg:string;
Pakiet:Tpacote;
begin
Dados.BufArray := ConvertDataToArray( Buf,len );
Dados.Tipo := 4; //sent
Dados.Tamanho := len;
Dados.flags := flags;
Dados.TibiaSocket := s;
TibiaSocketH:= s;
TibiaFlag := flags;
DecryptPacket( Dados.BufArray,Dados.Tamanho );
if (dados.BufArray[4]=$96) then
begin
if ConvertDataToASCII( Dados.BufArray,8,0)='\' then
begin
if ConvertDataToASCII( Dados.BufArray,9,1)='up' then
begin
Pakiet.BufArray[0] := $08;
Pakiet.BufArray[1] := $00;
Pakiet.BufArray[2] := $01;
Pakiet.BufArray[3] := $00;
Pakiet.BufArray[4] := $65;
Pakiet.BufArray[5] := $00;
Pakiet.BufArray[6] := $00;
Pakiet.BufArray[7] := $00;
Pakiet.BufArray[8] := $00;
Pakiet.BufArray[9] := $00;
EncryptPacket(Pakiet.BufArray,Pakiet.Tamanho);
sendNext(s,@Pakiet.BufArray,Sizeof(Pakiet.BufArray),flags);
end;
end else
result := sendNext(s, Buf, len, flags);
end else
result := sendNext(s, Buf, len, flags);
BmsComunicaIpc( 'IpcHook' , @Dados, SizeOf(Dados) ,@bResposta, SizeOf( Boolean ));
end;