begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=251)then
begin
buf:=hstr('CF 57 6C B3 00 00 00 ');
writeD(readD(8));
buf:=buf+hstr('85 01 05 82 00 00');
sendtoserver;
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=251)then
begin
buf:=hstr('CF 57 6C 84 01 00 00 ');
writeD(readD(8));
buf:=buf+hstr('00 00 F9 06 00 00');
sendtoserver;
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=251)then
begin
buf:=hstr('CF 57 6C 40 01 00 00');
writeD(readD(8));
buf:=buf+hstr('C2 02 F9 7B 00 00');
sendtoserver;
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=251)then
begin
buf:=hstr('CF 57 6C B1 00 00 00 ');
writeD(readD(8));
buf:=buf+hstr('D9 04 05 E2 00 00');
sendtoserver;
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=251)then
begin
buf:=hstr('CCF 57 6C B4 00 00 00');
writeD(readD(8));
buf:=buf+hstr('23 03 05 F0 00 00');
sendtoserver;
begin
end;
end;
end;
end;
end;
end;
end.
Интерисуют строки buf:=hstr - что они значат! Просто решил попробывать скрипт написать, но незнаю что в ту строку писать. напишите в пм или сюда ЗНАЮ ЧТО НЕ ВТОМ РАЗДЕЛИ! Просто прошу ответить на вопрос и удолите тему... просто я разделе общение и обсуждение уже 4день молчат
Buf - это ваш пакет , который вы создаете, Pck - тот который отлавливаете.
Buf := Hstr() - это запись в buf результата работы метода Hstr , который заключается в том что переводит строку в последовательность 16тиричныйх символов(кажется так) для дальнейшей отправки сформированного пакета.
А вообще читайте мануал по программе, там все понятно. Можно даже себе его скачать и пользваться как справочником. Мануал можно загуглить.... Вообще без проблем!!