delphi Код:
var
tick: Integer;
procedure Init;
begin
end;
function Pause(Timewait: Integer):Boolean;
var
t : integer;
begin
result := false;
t := Round(Time*86400);
if t > (tick + Timewait) then
begin
tick := t;
result := true;
end;
end;
begin
if pause(1) then
begin
buf:=hstr('packet');
SendToServerEx('name');
end;
end.
Попробуй так
только измени packet, name