[Обсуждение] пылесос))

[vokovl]

а зачем вам пылесос?, за него говорят банят быстро))

[Name-]

Цитата: Сообщение от Crysis1556 можешь написать метод перехвата ну и все настройки в MI панели?

не банит?

[wadimkad]

Цитата: Сообщение от okhremenkoanatolijj Ответь wadimkad пожалуйста в honey.txt это жэ якоря . И они мне кажется если я не ошибаюсь самого начала создания ДО. Но а если ошибаюсь .То точно как 4-ре года они уже были. А якоря вроде уже несколько раз менялись. Поясните пожалуйста .

Ни разу не менялись, за последние года 2-3 по крайней мере.

[RE@ER]

Как не менялись ?

[vokovl]

вот так, якоря ни разу с момента их появления не менялись

[wadimkad]

Цитата: Сообщение от okhremenkoanatolijj Как не менялись ?

Менялась контрольная сумма (MD5), т.к. каждая версия клиента имеет разный размер.

[RE@ER]

Если поменять порт 8080 к примеру на порт 3128 ,
будет ли пылесос работать ?
А то у меня ничего не получается .

[vokovl]

не будет

[Dima-_-4IT]

Цитата: Сообщение от vokovl можно [Ссылки могут видеть только зарегистрированные пользователи. ]

а что это у тя еще за 2 скрипта?)

Добавлено через 6 минут
[Ссылки могут видеть только зарегистрированные пользователи. ]
что делать? в опере прокси неокких неть...priboxy оффнул

[vokovl]

а настроил так ми панель?

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Dima-_-4IT]

Цитата: Сообщение от vokovl а настроил так ми панель? [Ссылки могут видеть только зарегистрированные пользователи. ]

оо на плагин врепер зделал все поканало спс,а как на боксибот?

[ПΘ†RΑШИ†ЕЛЬ]

помогите пожалуйста давно искал пылесос вот его сделали но не могу разобраться как настроить все сделал вроде захожу через мозилу в игру стою рядом с коробкой нечего не происходит как быть что делать? к иботу привязать тоже не понял как расскажите все плиз

[GANGUR]

Всё, сдох пылик ))
Через каждые 30сек разрывает связь и ничё не собирает.

[drw]

точно, я думал только у меня проблемы с разрывами. всю тему перечитал.
спасибо что отписался

[АзЕсмьЦарь]

Цитата: Сообщение от GANGUR Всё, сдох пылик )) Через каждые 30сек разрывает связь и ничё не собирает.

Ну так а что мешает его самостоятельно обновить?
Исходник можно легко получить с помощью декомпилятора xml, ну а далее нужно менять одну строчку - команду поднятия коробки (выделено красным) и заново скомпилировать.

-------------------------
const
Title = 'Title:BonusBox Collector for 6.6.2 by uragan';
var
boxlist, boxCoor, hbox, mypos, boxtmp, listSettings: TStringList;
i, j, lastPackStartPos, lastfoundboxid, boxcount, move, radius: Integer;
Stmp, S, box, myposx, myposy, boxposx, boxposy, boxtype, lastfoundbox, myid, PcollectBB: string;
collectnext, activ, booster: boolean;

procedure onCreate;
begin
hbox := TStringList.Create;
boxlist := TStringList.Create;
boxCoor := TStringList.Create;
mypos := TStringList.Create;
boxtmp := TStringList.Create;
hbox.LoadFromFile(_gCustomDir+'honey.txt');
collectnext := true;
booster := true;
boxcount := 1;
move := 1;
PcollectBB := '000B3E8900000005';
listSettings := TStringList.Create;
try
listSettings.LoadFromFile('custom\VacuumCleanerBB. txt');
except
listSettings.add('500');
end;
if (StrtoInt(listSettings[0])>0) then
begin
radius := StrtoInt(listSettings[0]);
end
else
begin
radius := 500;
end;
end;

procedure OnDestroy;
begin
boxlist.free;
boxCoor.free;
hbox.free;
end;

procedure Parser(s, delim: string; var test: TStringList);
var
p: integer;
z: string;
begin
z := s;
p := Pos(delim, z);
while p>0 do
begin
test.add(copy(z, 1, p-1));
delete(z, 1, p+length(delim)-1);
p := Pos(delim, z);
end;
if length(z)>0 then
test.add(z);
end;

function posbetween(pos, x1, x2: integer): integer;
begin
if (pos>=x1)and(pos<=x2) then
begin
Result := 1;
end
else
Result := 0;
end;

function TakeBox(x1, y1, x2, y2: integer): integer;
begin
if posbetween(x1, x2-radius, x2+radius) and posbetween(y1, y2-radius, y2+radius) then
begin
Result := 1;
end
else
Result := 0;
end;

function OnTimer(ntimer, count: integer): boolean;
begin
if (_gAbsNumPkt>30) then
begin
if ntimer=3 then
begin
if collectnext then
begin
if boxlist.count>0 then
begin
for j:=0 to (boxlist.Count-1) do
begin
boxCoor.Clear;
Parser(boxlist[j], Hstr('7C'), boxCoor);
if (TakeBox(StrToint(myposx), StrToint(myposy), StrToint(boxCoor[1]), StrToint(boxCoor[2]))=1) then
begin
lastfoundboxid := j;
lastfoundbox := boxCoor[0];
gSys.SendS(HStr(PcollectBB)+boxCoor[0]);
boxlist.Delete(j);
end;
if posbetween(STRtoINT(myposx), STRtoINT(boxCoor[1])-1000, STRtoINT(boxCoor[1])+1000) and posbetween(STRtoINT(myposy), STRtoINT(boxCoor[2])-1000, STRtoINT(boxCoor[2])+1000) then
begin
end
else
begin
end;
end;
gSys.SetTimer(3, 100);
end
else
begin
gSys.SetTimer(3, 0);
end;
end;
end;
end;
end;

begin
if (_gFromServ)and(hbox.count>1)and(_gAbsNumPkt>30) then
begin
S := _gBuff;
Stmp := S;
for i:=1 to 10 do
begin
lastPackStartPos := 0;
lastPackStartPos := Pos('0|A|SLA|', copy(S, 1, length(S)));
if lastPackStartPos>0 then
begin
S[lastPackStartPos+1] := #10;
S[lastPackStartPos+2] := #10;
S[lastPackStartPos+3] := #10;
end
else
begin
Break;
end;
end;
Stmp := S;
for i:=1 to 100 do
begin
lastPackStartPos := 0;
lastPackStartPos := Pos('0|c|', copy(Stmp, 1, length(Stmp)));
if lastPackStartPos>0 then
begin
boxtmp.Clear;
Parser(copy(Stmp, lastPackStartPos, 100), Hstr('7C'), boxtmp);
box := boxtmp[2];
boxposx := boxtmp[4];
boxposy := boxtmp[5];
boxtype := boxtmp[3];
if not (hbox.IndexOf(box)>-1)and((boxtype='2')or(boxtype='220')) then
begin
boxcount := boxcount+1;
boxlist.Add(box+'|'+boxposx+'|'+boxposy+'|'+boxtyp e+'|'+INTtoSTR(boxcount));
if boxtype='22' then
begin
end;
if boxlist.count>0 then
gSys.SetTimer(3, 100);
end;
end
else
begin
Break;
end;
Stmp[lastPackStartPos+1] := '0';
end;
Stmp := S;
for i:=1 to 100 do
begin
lastPackStartPos := 0;
lastPackStartPos := Pos('0|2|', copy(Stmp, 1, length(Stmp)));
if lastPackStartPos>0 then
begin
boxtmp.Clear;
Parser(copy(Stmp, lastPackStartPos, 100), Hstr('7C'), boxtmp);
box := boxtmp[2];
for j:=0 to (boxlist.Count-1) do
begin
boxCoor.Clear;
Parser(boxlist[j], Hstr('7C'), boxCoor);
if boxCoor[0]=box then
begin
boxlist.Delete(j);
end;
end;
end
else
begin
Break;
end;
Stmp[lastPackStartPos+1] := '0';
end;
Stmp := S;
lastPackStartPos := 0;
lastPackStartPos := Pos('0|D|', copy(Stmp, 1, length(Stmp)));
if lastPackStartPos>0 then
begin
mypos.Clear;
Parser(copy(Stmp, lastPackStartPos, 100), Hstr('7C'), mypos);
myposx := mypos[2];
myposy := mypos[3];
if move>0 then
begin
if StrToint(myposx)>27058 then
move := 1;
if StrToint(myposx)<14207 then
move := 2;
end;
end;
_gOutBuff := S;
end;
end.

-------------------

Для совсем ленивых, уже исправленный файлик можно скачать здесь:
[Ссылки могут видеть только зарегистрированные пользователи. ]