Перебор мультиселлов.
Помогите пожалуйста с перебором мультиселлов.Видел уже подобную тему на форуме там был показан вот этот скрипт:
var
i:int64;
procedure Init;
begin
i:=1; {Тут вбиваем номер с которого мультиселла начнём брутить}
end;
begin
if FromClient and (pck[1]=#$56) then
begin
pck:='';
buf:=#$23;
WriteS('menu_select?ask=-303&reply='+inttostr(i));
SendToServer;
inc(i);
end;
end.
но он не фурычит. Помогите пожалуйста. Хроники фрея.
|